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