ext/Encode/t/mime_header_iso2022jp.t

   1
   2 use Test::More;
   3
   4 if( ord("A") == 193 ) {
   5     plan skip_all => 'No Encode::MIME::Header::ISO_2022_JP on EBCDIC Platforms';
   6 } else {
   7     plan tests => 14;
   8 }
   9
  10 use strict;
  11 use Encode;
  12
  13 BEGIN{
  14     use_ok('Encode::MIME::Header::ISO_2022_JP');
  15 }
  16
  17 require_ok('Encode::MIME::Header::ISO_2022_JP');
  18
  19 #  below codes are from mime.t in Jcode
  20
  21 my %mime = (
  22     "´Á»ú¡¢¥«¥¿¥«¥Ê¡¢¤Ò¤é¤¬¤Ê"
  23      => "=?ISO-2022-JP?B?GyRCNEE7eiEiJSslPyUrJUohIiRSJGkkLCRKGyhC?=",
  24     "foo bar"
  25      => "foo bar",
  26     "´Á»ú¡¢¥«¥¿¥«¥Ê¡¢¤Ò¤é¤¬¤Ê¤Îº®¤¸¤Ã¤¿Subject Header."
  27      => "=?ISO-2022-JP?B?GyRCNEE7eiEiJSslPyUrJUohIiRSJGkkLCRKJE46LiQ4JEMkPxsoQlN1?=\n =?ISO-2022-JP?B?YmplY3Q=?= Header.",
  28 );
  29
  30
  31 for my $k (keys %mime){
  32     $mime{"$k\n"} = $mime{$k} . "\n";
  33 }
  34
  35
  36 for my $decoded (sort keys %mime){
  37     my $encoded = $mime{$decoded};
  38
  39     my $header = Encode::encode('MIME-Header-ISO_2022_JP', decode('euc-jp', $decoded));
  40     my $utf8   = Encode::decode('MIME-Header', $header);
  41
  42     is(encode('euc-jp', $utf8), $decoded);
  43     is($header, $encoded);
  44 }
  45
  46 __END__