Upgrade to Encode 2.00.

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

diff --git a/ext/Encode/t/enc_data.t b/ext/Encode/t/enc_data.t
index f47d083..4d9b544 100644 (file)
--- a/ext/Encode/t/enc_data.t
+++ b/ext/Encode/t/enc_data.t
@@ -1,5 +1,29 @@
+# $Id: enc_data.t,v 2.0 2004/05/16 20:55:18 dankogai Exp $
+
+BEGIN {
+    require Config; import Config;
+    if ($Config{'extensions'} !~ /\bEncode\b/) {
+      print "1..0 # Skip: Encode was not built\n";
+      exit 0;
+    }
+    unless (find PerlIO::Layer 'perlio') {
+       print "1..0 # Skip: PerlIO was not built\n";
+       exit 0;
+    }
+    if (ord("A") == 193) {
+       print "1..0 # encoding pragma does not support EBCDIC platforms\n";
+       exit(0);
+    }
+    if ($] <= 5.008 and !$Config{perl_patchlevel}){
+       print "1..0 # Skip: Perl 5.8.1 or later required\n";
+       exit 0;
+    }
+}
+
+
+use strict;
 use encoding 'euc-jp';
-use Test::More tests => 1;
+use Test::More tests => 4;
 
 my @a;
 
@@ -9,14 +33,10 @@ while (<DATA>) {
   push @a, $_;
 }
 
-SKIP: {
-  skip("pre-5.8.1 does not do utf8 DATA", 1) if $] < 5.008001;
-  ok(@a == 3 &&
-     $a[0] eq "¥³¥ì¥ÏDATA¤Õ¤¡¤¤¤ë¤Ï¤ó¤É¤ë¥Î¤Æ¤¹¤È¥Ç¥¹¡£" &&
-     $a[1] eq "ÆüËܸ쥬¥Á¥ã¥ó¥ÈÊÑ´¹¥Ç¥­¥ë¥«" &&
-     $a[2] eq "¥É¥¦¥«¥Î¤Æ¤¹¤È¥ò¥·¥Æ¥¤¥Þ¥¹¡£",
-     "utf8 (euc-jp) DATA")
-}
+is(scalar @a, 3);
+is($a[0], "¥³¥ì¥ÏDATA¤Õ¤¡¤¤¤ë¤Ï¤ó¤É¤ë¥Î¤Æ¤¹¤È¥Ç¥¹¡£");
+is($a[1], "ÆüËܸ쥬¥Á¥ã¥ó¥ÈÊÑ´¹¥Ç¥­¥ë¥«");
+is($a[2], "¥É¥¦¥«¥Î¤Æ¤¹¤È¥ò¥·¥Æ¥¤¥Þ¥¹¡£");
 
 __DATA__
 ¤³¤ì¤ÏDATA¥Õ¥¡¥¤¥ë¥Ï¥ó¥É¥ë¤Î¥Æ¥¹¥È¤Ç¤¹¡£