use Test::More;
use lib qw( ../lib ./lib );
use Egg::Helper;

eval{ require Jcode };
if ($@) { plan skip_all=> "Jcode is not installed." } else {

plan tests=> 21;

my $s= '£Í£Ö£Ã¥Õ¥ì¡¼¥à¥ï¡¼¥¯';

my $e= Egg::Helper->run( Vtest=> {
  vtest_name    => 'euc_jp',
  vtest_plugins => [qw/ Charset::EUC_JP /],
  } );

is $e->config->{content_language}, 'ja',
   q{$e->config->{content_language}, 'ja'};
is $e->config->{content_type}, 'text/html',
   q{$e->config->{content_type}, 'text/html'};
is $e->config->{charset_out}, 'euc-jp',
   q{$e->config->{charset_out}, 'euc-jp'};

can_ok $e, '_output';
can_ok $e, '_convert_output_body';
  my $str= $s;
  ok $e->_convert_output_body(\$str), q{$e->_convert_output_body(\$str)};
  is Jcode::getcode($str), 'euc', q{Jcode::getcode($str), 'euc'};

$e= Egg::Helper->run( Vtest=> {
  vtest_name=> 'sjis',
  vtest_plugins=> [qw/ Charset::Shift_JIS /],
  } );

is $e->config->{content_language}, 'ja',
   q{$e->config->{content_language}, 'ja'};
is $e->config->{content_type}, 'text/html',
   q{$e->config->{content_type}, 'text/html'};
is $e->config->{charset_out}, 'Shift_JIS',
   q{$e->config->{charset_out}, 'Shift_JIS'};

can_ok $e, '_output';
can_ok $e, '_convert_output_body';
  $str= $s;
  ok $e->_convert_output_body(\$str), q{$e->_convert_output_body(\$str)};
  is Jcode::getcode($str), 'sjis', q{Jcode::getcode($str), 'sjis'};

$e= Egg::Helper->run( Vtest=> {
  vtest_name=> 'utf8',
  vtest_plugins=> [qw/ Charset::UTF8 /],
  } );

is $e->config->{content_language}, 'ja',
   q{$e->config->{content_language}, 'ja'};
is $e->config->{content_type}, 'text/html',
   q{$e->config->{content_type}, 'text/html'};
is $e->config->{charset_out}, 'utf-8',
   q{$e->config->{charset_out}, 'utf-8'};

can_ok $e, '_output';
can_ok $e, '_convert_output_body';
  $str= $s;
  ok $e->_convert_output_body(\$str), q{$e->_convert_output_body(\$str)};
  is Jcode::getcode($str), 'utf8', q{Jcode::getcode($str), 'utf8'};

}