From: Jarkko Hietaniemi <jhi@iki.fi>
Date: Wed, 20 Mar 2002 21:50:11 +0000 (+0000)
Subject: A plan is better.
X-Git-Url: http://git.shadowcat.co.uk/gitweb/gitweb.cgi?a=commitdiff_plain;h=a634c1702b9b72e0d5017b79d9c7d13ca05c52b9;p=p5sagit%2Fp5-mst-13.2.git

A plan is better.

p4raw-id: //depot/perl@15377
---

diff --git a/ext/Encode/t/CJKalias.t b/ext/Encode/t/CJKalias.t
index 160f5ab..cc1efe5 100644
--- a/ext/Encode/t/CJKalias.t
+++ b/ext/Encode/t/CJKalias.t
@@ -1,6 +1,4 @@
 use strict;
-#use Test::More tests => 29;
-use Test::More qw(no_plan);
 use Encode::CN;
 use Encode::JP;
 use Encode::KR;
@@ -8,21 +6,27 @@ 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
-	     big-5      big5
-	     zh_TW.Big5 big5
-	     big5-hk    big5-hkscs
-	     );
+my %a2c;
+
+BEGIN {
+	%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
+		  big-5		big5
+		  zh_TW.Big5	big5
+		  big5-hk	big5-hkscs
+		  );
+}
+
+use Test::More tests => scalar keys %a2c;
 
 foreach my $a (keys %a2c){	     
     my $e = Encode::find_encoding($a);