818443a11a0ba3933f1c459af2eb57913213fdc6
[perl.git] / ext / Encode / t / mime_header_iso2022jp.t
1
2 use Test::More;
3
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     }
10 }
11
12 use strict;
13 use Encode;
14
15 BEGIN{
16     use_ok('Encode::MIME::Header::ISO_2022_JP');
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 = (
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
33 for my $k (keys %mime){
34     $mime{"$k\n"} = $mime{$k} . "\n";
35 }
36
37
38 for 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__