Cleaner Encode tests under -Mutf8.

p4raw-id: //depot/perl@16152

diff --git a/ext/Encode/t/at-cn.t b/ext/Encode/t/at-cn.t
index 893c29f..6249fee 100644 (file)
--- a/ext/Encode/t/at-cn.t
+++ b/ext/Encode/t/at-cn.t
@@ -19,9 +19,11 @@ use strict;
 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

diff --git a/ext/Encode/t/at-tw.t b/ext/Encode/t/at-tw.t
index 830eb86..11abbf3 100644 (file)
--- a/ext/Encode/t/at-tw.t
+++ b/ext/Encode/t/at-tw.t
@@ -21,9 +21,11 @@ use strict;
 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

diff --git a/ext/Encode/t/jperl.t b/ext/Encode/t/jperl.t
index faaf743..4c2ef4d 100644 (file)
--- a/ext/Encode/t/jperl.t
+++ b/ext/Encode/t/jperl.t
@@ -20,6 +20,8 @@ BEGIN {
     $| = 1;
 }
 
+no utf8; # we have raw Japanese encodings here
+
 use strict;
 use Test::More tests => 18;
 my $Debug = shift;