Change 16152 by jhi@alpha on 2002/04/25 12:59:50
Cleaner Encode tests under -Mutf8.
Affected files ...
.... //depot/perl/ext/Encode/t/at-cn.t#2 edit
.... //depot/perl/ext/Encode/t/at-tw.t#2 edit
.... //depot/perl/ext/Encode/t/jperl.t#7 edit
Differences ...
==== //depot/perl/ext/Encode/t/at-cn.t#2 (text) ====
Index: perl/ext/Encode/t/at-cn.t
--- perl/ext/Encode/t/at-cn.t.~1~ Thu Apr 25 07:15:05 2002
+++ perl/ext/Encode/t/at-cn.t Thu Apr 25 07:15:05 2002
@@ -19,9 +19,11 @@
use Test::More tests => 29;
use Encode;
+no utf8; # we have raw Chinese encodings here
+
use_ok('Encode::CN');
-# Since JP.t already test basic file IO, we will just focus on
+# Since JP.t already tests basic file IO, we will just focus on
# internal encode / decode test here. Unfortunately, to test
# against all the UniHan characters will take a huge disk space,
# not to mention the time it will take, and the fact that Perl
==== //depot/perl/ext/Encode/t/at-tw.t#2 (text) ====
Index: perl/ext/Encode/t/at-tw.t
--- perl/ext/Encode/t/at-tw.t.~1~ Thu Apr 25 07:15:05 2002
+++ perl/ext/Encode/t/at-tw.t Thu Apr 25 07:15:05 2002
@@ -21,9 +21,11 @@
use Test::More tests => 17;
use Encode;
+no utf8; # we have raw Chinese encodings here
+
use_ok('Encode::TW');
-# Since JP.t already test basic file IO, we will just focus on
+# Since JP.t already tests basic file IO, we will just focus on
# internal encode / decode test here. Unfortunately, to test
# against all the UniHan characters will take a huge disk space,
# not to mention the time it will take, and the fact that Perl
==== //depot/perl/ext/Encode/t/jperl.t#7 (text) ====
Index: perl/ext/Encode/t/jperl.t
--- perl/ext/Encode/t/jperl.t.~1~ Thu Apr 25 07:15:05 2002
+++ perl/ext/Encode/t/jperl.t Thu Apr 25 07:15:05 2002
@@ -20,6 +20,8 @@
$| = 1;
}
+no utf8; # we have raw Japanese encodings here
+
use strict;
use Test::More tests => 18;
my $Debug = shift;
End of Patch.
