Commit | Line | Data |
60f80d08 |
1 | |
78b7ef06 |
2 | use Test::More; |
3 | |
c5b83279 |
4 | BEGIN { |
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 | } |
78b7ef06 |
10 | } |
60f80d08 |
11 | |
12 | use strict; |
13 | use Encode; |
14 | |
15 | BEGIN{ |
d1256cb1 |
16 | use_ok('Encode::MIME::Header::ISO_2022_JP'); |
60f80d08 |
17 | } |
18 | |
19 | require_ok('Encode::MIME::Header::ISO_2022_JP'); |
20 | |
21 | # below codes are from mime.t in Jcode |
22 | |
23 | my %mime = ( |
d1256cb1 |
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.", |
60f80d08 |
30 | ); |
31 | |
32 | |
33 | for my $k (keys %mime){ |
34 | $mime{"$k\n"} = $mime{$k} . "\n"; |
35 | } |
36 | |
37 | |
38 | for my $decoded (sort keys %mime){ |
d1256cb1 |
39 | my $encoded = $mime{$decoded}; |
60f80d08 |
40 | |
d1256cb1 |
41 | my $header = Encode::encode('MIME-Header-ISO_2022_JP', decode('euc-jp', $decoded)); |
42 | my $utf8 = Encode::decode('MIME-Header', $header); |
60f80d08 |
43 | |
d1256cb1 |
44 | is(encode('euc-jp', $utf8), $decoded); |
45 | is($header, $encoded); |
60f80d08 |
46 | } |
47 | |
48 | __END__ |