Commit | Line | Data |
60f80d08 |
1 | |
78b7ef06 |
2 | use Test::More; |
3 | |
4 | if( ord("A") == 193 ) { |
5 | plan skip_all => 'No Encode::MIME::Header::ISO_2022_JP on EBCDIC Platforms'; |
6 | } else { |
7 | plan tests => 14; |
8 | } |
60f80d08 |
9 | |
10 | use strict; |
11 | use Encode; |
12 | |
13 | BEGIN{ |
d1256cb1 |
14 | use_ok('Encode::MIME::Header::ISO_2022_JP'); |
60f80d08 |
15 | } |
16 | |
17 | require_ok('Encode::MIME::Header::ISO_2022_JP'); |
18 | |
19 | # below codes are from mime.t in Jcode |
20 | |
21 | my %mime = ( |
d1256cb1 |
22 | "´Á»ú¡¢¥«¥¿¥«¥Ê¡¢¤Ò¤é¤¬¤Ê" |
23 | => "=?ISO-2022-JP?B?GyRCNEE7eiEiJSslPyUrJUohIiRSJGkkLCRKGyhC?=", |
24 | "foo bar" |
25 | => "foo bar", |
26 | "´Á»ú¡¢¥«¥¿¥«¥Ê¡¢¤Ò¤é¤¬¤Ê¤Îº®¤¸¤Ã¤¿Subject Header." |
27 | => "=?ISO-2022-JP?B?GyRCNEE7eiEiJSslPyUrJUohIiRSJGkkLCRKJE46LiQ4JEMkPxsoQlN1?=\n =?ISO-2022-JP?B?YmplY3Q=?= Header.", |
60f80d08 |
28 | ); |
29 | |
30 | |
31 | for my $k (keys %mime){ |
32 | $mime{"$k\n"} = $mime{$k} . "\n"; |
33 | } |
34 | |
35 | |
36 | for my $decoded (sort keys %mime){ |
d1256cb1 |
37 | my $encoded = $mime{$decoded}; |
60f80d08 |
38 | |
d1256cb1 |
39 | my $header = Encode::encode('MIME-Header-ISO_2022_JP', decode('euc-jp', $decoded)); |
40 | my $utf8 = Encode::decode('MIME-Header', $header); |
60f80d08 |
41 | |
d1256cb1 |
42 | is(encode('euc-jp', $utf8), $decoded); |
43 | is($header, $encoded); |
60f80d08 |
44 | } |
45 | |
46 | __END__ |