Commit | Line | Data |
7e19fb92 |
1 | # |
f0a41339 |
2 | # $Id: mime-header.t,v 1.5 2002/05/23 19:10:10 dankogai Exp $ |
7e19fb92 |
3 | # This script is written in utf8 |
4 | # |
af1f55d9 |
5 | BEGIN { |
6 | if ($ENV{'PERL_CORE'}){ |
7 | chdir 't'; |
8 | unshift @INC, '../lib'; |
9 | } |
10 | require Config; import Config; |
11 | if ($Config{'extensions'} !~ /\bEncode\b/) { |
12 | print "1..0 # Skip: Encode was not built\n"; |
13 | exit 0; |
14 | } |
982a4085 |
15 | if (ord("A") == 193) { |
16 | print "1..0 # Skip: EBCDIC\n"; |
17 | exit 0; |
18 | } |
af1f55d9 |
19 | $| = 1; |
20 | } |
21 | |
b7d70e14 |
22 | no utf8; |
23 | |
af1f55d9 |
24 | use strict; |
7e19fb92 |
25 | #use Test::More qw(no_plan); |
26 | use Test::More tests => 6; |
af1f55d9 |
27 | use_ok("Encode::MIME::Header"); |
28 | |
7e19fb92 |
29 | my $eheader =<<'EOS'; |
30 | From: =?US-ASCII?Q?Keith_Moore?= <moore@cs.utk.edu> |
31 | To: =?ISO-8859-1?Q?Keld_J=F8rn_Simonsen?= <keld@dkuug.dk> |
32 | CC: =?ISO-8859-1?Q?Andr=E9?= Pirard <PIRARD@vm1.ulg.ac.be> |
33 | Subject: =?ISO-8859-1?B?SWYgeW91IGNhbiByZWFkIHRoaXMgeW8=?= |
34 | =?ISO-8859-2?B?dSB1bmRlcnN0YW5kIHRoZSBleGFtcGxlLg==?= |
35 | EOS |
af1f55d9 |
36 | |
7e19fb92 |
37 | my $dheader=<<"EOS"; |
38 | From: Keith Moore <moore\@cs.utk.edu> |
39 | To: Keld J\xF8rn Simonsen <keld\@dkuug.dk> |
40 | CC: Andr\xE9 Pirard <PIRARD\@vm1.ulg.ac.be> |
41 | Subject: If you can read this you understand the example. |
42 | EOS |
43 | |
44 | is(Encode::decode('MIME-Header', $eheader), $dheader, "decode (RFC2047)"); |
45 | |
46 | use utf8; |
47 | |
48 | $dheader=<<'EOS'; |
49 | From: 小飼 弾 <dankogai@dan.co.jp> |
50 | To: dankogai@dan.co.jp (小飼=Kogai, 弾=Dan) |
51 | Subject: 漢字、カタカナ、ひらがなを含む、非常に長いタイトル行が一体全体どのようにしてEncodeされるのか? |
52 | EOS |
53 | |
54 | my $bheader =<<'EOS'; |
55 | From:=?UTF-8?B?IOWwj+mjvCDlvL4g?=<dankogai@dan.co.jp> |
56 | To: dankogai@dan.co.jp (=?UTF-8?B?5bCP6aO8?==Kogai,=?UTF-8?B?IOW8vg==?==Dan |
57 | ) |
58 | Subject: |
59 | =?UTF-8?B?IOa8ouWtl+OAgeOCq+OCv+OCq+ODiuOAgeOBsuOCieOBjOOBquOCkuWQq+OCgA==?= |
60 | =?UTF-8?B?44CB6Z2e5bi444Gr6ZW344GE44K/44Kk44OI44Or6KGM44GM5LiA5L2T5YWo?= |
61 | =?UTF-8?B?5L2T44Gp44Gu44KI44GG44Gr44GX44GmRW5jb2Rl44GV44KM44KL44Gu44GL?= |
62 | =?UTF-8?B?77yf?= |
63 | EOS |
64 | |
65 | my $qheader=<<'EOS'; |
66 | From:=?UTF-8?Q?=20=E5=B0=8F=E9=A3=BC=20=E5=BC=BE=20?=<dankogai@dan.co.jp> |
67 | To: dankogai@dan.co.jp (=?UTF-8?Q?=E5=B0=8F=E9=A3=BC?==Kogai, |
68 | =?UTF-8?Q?=20=E5=BC=BE?==Dan) |
69 | Subject: |
70 | =?UTF-8?Q?=20=E6=BC=A2=E5=AD=97=E3=80=81=E3=82=AB=E3=82=BF=E3=82=AB?= |
71 | =?UTF-8?Q?=E3=83=8A=E3=80=81=E3=81=B2=E3=82=89=E3=81=8C=E3=81=AA=E3=82=92?= |
72 | =?UTF-8?Q?=E5=90=AB=E3=82=80=E3=80=81=E9=9D=9E=E5=B8=B8=E3=81=AB=E9=95=B7?= |
73 | =?UTF-8?Q?=E3=81=84=E3=82=BF=E3=82=A4=E3=83=88=E3=83=AB=E8=A1=8C=E3=81=8C?= |
74 | =?UTF-8?Q?=E4=B8=80=E4=BD=93=E5=85=A8=E4=BD=93=E3=81=A9=E3=81=AE=E3=82=88?= |
75 | =?UTF-8?Q?=E3=81=86=E3=81=AB=E3=81=97=E3=81=A6Encode=E3=81=95?= |
76 | =?UTF-8?Q?=E3=82=8C=E3=82=8B=E3=81=AE=E3=81=8B=EF=BC=9F?= |
77 | EOS |
78 | |
79 | is(Encode::decode('MIME-Header', $bheader), $dheader, "decode B"); |
80 | is(Encode::decode('MIME-Header', $qheader), $dheader, "decode Q"); |
81 | is(Encode::encode('MIME-B', $dheader)."\n", $bheader, "encode B"); |
82 | is(Encode::encode('MIME-Q', $dheader)."\n", $qheader, "encode Q"); |
af1f55d9 |
83 | __END__; |