PATCH: Large omnibus patch to clean up the JRRT quotes

[p5sagit/p5-mst-13.2.git] / ext / Encode / t / mime_header_iso2022jp.t

diff --git a/ext/Encode/t/mime_header_iso2022jp.t b/ext/Encode/t/mime_header_iso2022jp.t
index ffc77e0..818443a 100644 (file)
--- a/ext/Encode/t/mime_header_iso2022jp.t
+++ b/ext/Encode/t/mime_header_iso2022jp.t
@@ -1,11 +1,19 @@
 
-use Test::More tests => 14;
+use Test::More;
+
+BEGIN {
+    if( ord("A") == 193 ) {
+       plan skip_all => 'No Encode::MIME::Header::ISO_2022_JP on EBCDIC Platforms';
+    } else {
+       plan tests => 14;
+    }
+}
 
 use strict;
 use Encode;
 
 BEGIN{
-       use_ok('Encode::MIME::Header::ISO_2022_JP');
+    use_ok('Encode::MIME::Header::ISO_2022_JP');
 }
 
 require_ok('Encode::MIME::Header::ISO_2022_JP');
@@ -13,12 +21,12 @@ 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.",
+    "´Á»ú¡¢¥«¥¿¥«¥Ê¡¢¤Ò¤é¤¬¤Ê"
+     => "=?ISO-2022-JP?B?GyRCNEE7eiEiJSslPyUrJUohIiRSJGkkLCRKGyhC?=",
+    "foo bar"
+     => "foo bar",
+    "´Á»ú¡¢¥«¥¿¥«¥Ê¡¢¤Ò¤é¤¬¤Ê¤Îº®¤¸¤Ã¤¿Subject Header."
+     => "=?ISO-2022-JP?B?GyRCNEE7eiEiJSslPyUrJUohIiRSJGkkLCRKJE46LiQ4JEMkPxsoQlN1?=\n =?ISO-2022-JP?B?YmplY3Q=?= Header.",
 );
 
 
@@ -28,13 +36,13 @@ for my $k (keys %mime){
 
 
 for my $decoded (sort keys %mime){
-       my $encoded = $mime{$decoded};
+    my $encoded = $mime{$decoded};
 
-       my $header = Encode::encode('MIME-Header-ISO_2022_JP', decode('euc-jp', $decoded));
-       my $utf8   = Encode::decode('MIME-Header', $header);
+    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);
+    is(encode('euc-jp', $utf8), $decoded);
+    is($header, $encoded);
 }
 
 __END__