~ubuntu-branches/ubuntu/raring/libencode-perl/raring-proposed

 

use Test::More tests => 14;

 

use strict;

use Encode;

 

BEGIN{

    use_ok('Encode::MIME::Header::ISO_2022_JP');

}

 

require_ok('Encode::MIME::Header::ISO_2022_JP');

 

#  below codes are from mime.t in Jcode

 

my %mime = (

    "�������������ʡ��Ҥ餬��"

     => "=?ISO-2022-JP?B?GyRCNEE7eiEiJSslPyUrJUohIiRSJGkkLCRKGyhC?=",

    "foo bar"

     => "foo bar",

    "�������������ʡ��Ҥ餬�ʤκ����ä�Subject Header."

     => "=?ISO-2022-JP?B?GyRCNEE7eiEiJSslPyUrJUohIiRSJGkkLCRKJE46LiQ4JEMkPxsoQlN1?=\n =?ISO-2022-JP?B?YmplY3Q=?= Header.",

);

 

 

for my $k (keys %mime){

    $mime{"$k\n"} = $mime{$k} . "\n";

}

 

 

for my $decoded (sort keys %mime){

    my $encoded = $mime{$decoded};

 

    my $header = Encode::encode('MIME-Header-ISO_2022_JP', decode('euc-jp', $decoded));

    my $utf8   = Encode::decode('MIME-Header', $header);

 

    is(encode('euc-jp', $utf8), $decoded);

    is($header, $encoded);

}

 

__END__