Upgrade to Encode 0.93, from Dan Kogai.

p4raw-id: //depot/perl@15371

2 files changed, 32 insertions, 0 deletions

diff --git a/ext/Encode/t/CJKalias.t b/ext/Encode/t/CJKalias.t
new file mode 100644
index 0000000000..be4dd5e607
--- /dev/null
+++ b/ext/Encode/t/CJKalias.t
@@ -0,0 +1,29 @@
+use strict;
+#use Test::More tests => 27;
+use Test::More qw(no_plan);
+use Encode::CN;
+use Encode::JP;
+use Encode::KR;
+use Encode::TW;
+
+print "# alias test\n";
+
+my %a2c = qw(
+	     ja_JP.euc	euc-jp
+	     x-euc-jp   euc-jp
+	     zh_CN.euc	euc-cn
+	     x-euc-cn   euc-cn
+	     ko_KR.euc	euc-kr
+	     x-euc-kr   euc-kr
+	     ujis       euc-jp
+	     Shift_JIS  shiftjis
+	     x-sjis     shiftjis
+	     jis        7bit-jis
+	     );
+
+foreach my $a (keys %a2c){	     
+    my $e = Encode::find_encoding($a);
+    my $n =  $e->name || $e->{name};
+    is($n, $a2c{$a});
+}
+
diff --git a/ext/Encode/t/JP.t b/ext/Encode/t/JP.t
index 7b4bf14500..733aeb9a15 100644
--- a/ext/Encode/t/JP.t
+++ b/ext/Encode/t/JP.t
@@ -18,6 +18,7 @@ BEGIN {
 }
 use strict;
 use Test::More tests => 27;
+#use Test::More qw(no_plan);
 use Encode;
 use File::Basename;
 use File::Spec;
@@ -88,6 +89,7 @@ while (<$src>)
  }
 close($dst);
 close($src);
+
 TODO:
 {
   local $TODO = 'needs debugging on VMS' if $^O eq 'VMS';
@@ -117,6 +119,7 @@ SKIP:
 }
 
 is($enc->name,'euc-jp');
+
 END {
  1 while unlink($utf,$rnd);
 }