diff options
Diffstat (limited to 'ext/Encode/t/CJKalias.t')
| -rw-r--r-- | ext/Encode/t/CJKalias.t | 35 |
1 files changed, 35 insertions, 0 deletions
diff --git a/ext/Encode/t/CJKalias.t b/ext/Encode/t/CJKalias.t new file mode 100644 index 0000000000..cc1efe5870 --- /dev/null +++ b/ext/Encode/t/CJKalias.t @@ -0,0 +1,35 @@ +use strict; +use Encode::CN; +use Encode::JP; +use Encode::KR; +use Encode::TW; + +print "# alias test\n"; + +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); + is($e->name, $a2c{$a}); +} + |