ext/Encode/t/mime_header_iso2022jp.t

   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__