ext/Encode/t/mime-header.t

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