cpan/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__