As using -C to turn on utf8 IO is equivalent to the open pragma,

[p5sagit/p5-mst-13.2.git] / ext / Encode / t / mime_header_iso2022jp.t

use Test::More tests => 14;

use strict;
use Encode;

BEGIN{
	use_ok('Encode::MIME::Header::ISO_2022_JP');
}

require_ok('Encode::MIME::Header::ISO_2022_JP');

#  below codes are from mime.t in Jcode

my %mime = (
	"´Á»ú¡¢¥«¥¿¥«¥Ê¡¢¤Ò¤é¤¬¤Ê"
	 => "=?ISO-2022-JP?B?GyRCNEE7eiEiJSslPyUrJUohIiRSJGkkLCRKGyhC?=",
	"foo bar"
	 => "foo bar",
	"´Á»ú¡¢¥«¥¿¥«¥Ê¡¢¤Ò¤é¤¬¤Ê¤Îº®¤¸¤Ã¤¿Subject Header."
	 => "=?ISO-2022-JP?B?GyRCNEE7eiEiJSslPyUrJUohIiRSJGkkLCRKJE46LiQ4JEMkPxsoQlN1?=\n =?ISO-2022-JP?B?YmplY3Q=?= Header.",
);


for my $k (keys %mime){
    $mime{"$k\n"} = $mime{$k} . "\n";
}


for my $decoded (sort keys %mime){
	my $encoded = $mime{$decoded};

	my $header = Encode::encode('MIME-Header-ISO_2022_JP', decode('euc-jp', $decoded));
	my $utf8   = Encode::decode('MIME-Header', $header);

	is(encode('euc-jp', $utf8), $decoded);
	is($header, $encoded);
}

__END__