Commit | Line | Data |
60f80d08 |
1 | |
2 | use Test::More tests => 14; |
3 | |
4 | use strict; |
5 | use Encode; |
6 | |
7 | BEGIN{ |
8 | use_ok('Encode::MIME::Header::ISO_2022_JP'); |
9 | } |
10 | |
11 | require_ok('Encode::MIME::Header::ISO_2022_JP'); |
12 | |
13 | # below codes are from mime.t in Jcode |
14 | |
15 | my %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 | |
25 | for my $k (keys %mime){ |
26 | $mime{"$k\n"} = $mime{$k} . "\n"; |
27 | } |
28 | |
29 | |
30 | for 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__ |