Upgrade to Encode 2.00.

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

diff --git a/ext/Encode/t/Unicode.t b/ext/Encode/t/Unicode.t
index fb0ca1a..928a1d6 100644 (file)
--- a/ext/Encode/t/Unicode.t
+++ b/ext/Encode/t/Unicode.t
@@ -1,24 +1,26 @@
 #
-# $Id: Unicode.t,v 1.9 2002/05/06 10:26:48 dankogai Exp $
+# $Id: Unicode.t,v 2.0 2004/05/16 20:55:17 dankogai Exp $
 #
 # This script is written entirely in ASCII, even though quoted literals
 # do include non-BMP unicode characters -- Are you happy, jhi?
 #
 
-our $ON_EBCDIC;
 BEGIN {
     require Config; import Config;
     if ($Config{'extensions'} !~ /\bEncode\b/) {
       print "1..0 # Skip: Encode was not built\n";
       exit 0;
     }
-    $ON_EBCDIC = (ord("A") == 193) || $ARGV[0];
+    if (ord("A") == 193) {
+        print "1..0 # Skip: EBCDIC\n";
+       exit 0;
+    }
     $| = 1;
 }
 
 use strict;
 #use Test::More 'no_plan';
-use Test::More tests => 30;
+use Test::More tests => 37;
 use Encode qw(encode decode);
 
 #
@@ -87,7 +89,6 @@ is(index($@, 'UCS-2LE'), 0, "encode UCS-2LE: exception");
 # SvGROW test for (en|de)code_xs
 #
 SKIP: {
-    skip "Not on EBCDIC", 8 if $ON_EBCDIC;
     my $utf8 = '';
     for my $j (0,0x10){
        for my $i (0..0xffff){
@@ -103,6 +104,32 @@ SKIP: {
     }
 };
 
+#
+# CJKT vs. UTF-7
+#
+
+use File::Spec;
+use File::Basename;
 
+my $dir =  dirname(__FILE__);
+opendir my $dh, $dir or die "$dir:$!";
+my @file = sort grep {/\.utf$/o} readdir $dh;
+closedir $dh;
+for my $file (@file){
+    my $path = File::Spec->catfile($dir, $file);
+    open my $fh, '<', $path or die "$path:$!";
+    my $content;
+    if (PerlIO::Layer->find('perlio')){
+       binmode $fh => ':utf8';
+       $content = join('' => <$fh>);
+    }else{ # ugh!
+       binmode $fh;
+       $content = join('' => <$fh>);
+       Encode::_utf8_on($content)
+    }
+    close $fh;
+    is(decode("UTF-7", encode("UTF-7", $content)), $content, 
+       "UTF-7 RT:$file");
+}
 1;
 __END__