1
2use Test::More tests => 14;
3
4use strict;
5use Encode;
6
7BEGIN{
8	use_ok('Encode::MIME::Header::ISO_2022_JP');
9}
10
11require_ok('Encode::MIME::Header::ISO_2022_JP');
12
13#  below codes are from mime.t in Jcode
14
15my %mime = (
16	"�������������ʡ��Ҥ餬��"
17	 => "=?ISO-2022-JP?B?GyRCNEE7eiEiJSslPyUrJUohIiRSJGkkLCRKGyhC?=",
18	"foo bar"
19	 => "foo bar",
20	"�������������ʡ��Ҥ餬�ʤκ����ä�Subject Header."
21	 => "=?ISO-2022-JP?B?GyRCNEE7eiEiJSslPyUrJUohIiRSJGkkLCRKJE46LiQ4JEMkPxsoQlN1?=\n =?ISO-2022-JP?B?YmplY3Q=?= Header.",
22);
23
24
25for my $k (keys %mime){
26    $mime{"$k\n"} = $mime{$k} . "\n";
27}
28
29
30for my $decoded (sort keys %mime){
31	my $encoded = $mime{$decoded};
32
33	my $header = Encode::encode('MIME-Header-ISO_2022_JP', decode('euc-jp', $decoded));
34	my $utf8   = Encode::decode('MIME-Header', $header);
35
36	is(encode('euc-jp', $utf8), $decoded);
37	is($header, $encoded);
38}
39
40__END__
41