diff options
| -rw-r--r-- | ext/Encode/t/CJKalias.t | 38 |
1 files changed, 21 insertions, 17 deletions
diff --git a/ext/Encode/t/CJKalias.t b/ext/Encode/t/CJKalias.t index 160f5ab4f9..cc1efe5870 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); |