diff options
| author | fukachan <fukachan> | 2001-06-01 14:27:20 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-06-01 14:27:20 +0000 |
| commit | b9f628acbd9ade8eac8cb0b77d9c28611120f33e (patch) | |
| tree | da2b07299f4a0396062241a2a3d3fcffa6be7d32 /cpan/dist/Jcode/t/mime.t | |
| parent | 741843f930a4aa542ca51e7e27b9b2871f36a66b (diff) | |
| download | fml8-Jcode-0-71.tar.gz fml8-Jcode-0-71.tar.bz2 fml8-Jcode-0-71.zip | |
Jcode-0.71Jcode-0-71
Diffstat (limited to 'cpan/dist/Jcode/t/mime.t')
| -rw-r--r-- | cpan/dist/Jcode/t/mime.t | 28 |
1 files changed, 23 insertions, 5 deletions
diff --git a/cpan/dist/Jcode/t/mime.t b/cpan/dist/Jcode/t/mime.t index 236e8985..f00931b3 100644 --- a/cpan/dist/Jcode/t/mime.t +++ b/cpan/dist/Jcode/t/mime.t @@ -31,12 +31,12 @@ my $file; my %mime = ( - "テストtestです" => - "=?ISO-2022-JP?B?GyRCJUYlOSVIGyhCdGVzdBskQiRHJDkbKEI=?=", + "漢字、カタカナ、ひらがな" => + "=?ISO-2022-JP?B?GyRCNEE7eiEiJSslPyUrJUohIiRSJGkkLCRKGyhC?=", "foo bar" => "foo bar", - "０１２３４５６７８９０１２３４５６７８９０１２３４５６７８９０１２３４５６７８９０１２３４５６７８９" => - "=?ISO-2022-JP?B?GyRCIzAjMSMyIzMjNCM1IzYjNyM4IzkjMCMxIzIjMyM0IzUjNiM3GyhC?=\n =?ISO-2022-JP?B?GyRCIzgjOSMwIzEjMiMzIzQjNSM2IzcjOCM5IzAjMSMyIzMjNCM1GyhC?=\n =?ISO-2022-JP?B?GyRCIzYjNyM4IzkjMCMxIzIjMyM0IzUjNiM3IzgjORsoQg==?=", + "漢字、カタカナ、ひらがなの混じったSubject Header." => + "=?ISO-2022-JP?B?GyRCNEE7eiEiJSslPyUrJUohIiRSJGkkLCRKJE46LiQ4JEMkPxsoQlN1?=\n =?ISO-2022-JP?B?YmplY3Q=?= Header.", ); for my $k (keys %mime){ @@ -45,12 +45,17 @@ for my $k (keys %mime){ for my $decoded (sort keys %mime){ my ($ok, $out); + my $encoded = $mime{$decoded}; my $encoded_i = $encoded; $encoded_i =~ s/^(=\?ISO-2022-JP\?B\?)/lc($1)/eo; + my $t_encoded = jcode($decoded)->mime_encode; my $t_decoded = jcode($encoded)->mime_decode; my $t_decoded_i = jcode($encoded_i)->mime_decode; + my $decoded_h = jcode($decoded)->h2z->euc; + my $t_encoded_h = jcode($decoded_h)->mime_encode; + if ($t_decoded eq $decoded){ $ok = "ok"; }else{ @@ -66,7 +71,7 @@ EOF if ($t_decoded_i eq $decoded){ $ok = "ok"; - print $encoded_i, "\n"; + #print $encoded_i, "\n"; }else{ $ok = "not ok"; print <<"EOF"; @@ -88,6 +93,19 @@ EOF } profile(sprintf("MIME encode: %s -> %s %s %d\n", $decoded, $encoded, $ok, ++$n )); + + if ($t_encoded_h eq $encoded){ + $ok = "ok"; + }else{ + $ok = "not ok"; + print <<"EOF"; +E>$decoded_h< +E>$t_encoded_h< +EOF + } + profile(sprintf("MIME encode: %s -> %s %s %d\n", + $decoded_h, $t_encoded_h, $ok, ++$n )); + } |