be4dd5e60770423e2dcf6bdeef4f53803e419438
[p5sagit/p5-mst-13.2.git] / ext / Encode / t / CJKalias.t
1 use strict;
2 #use Test::More tests => 27;
3 use Test::More qw(no_plan);
4 use Encode::CN;
5 use Encode::JP;
6 use Encode::KR;
7 use Encode::TW;
8
9 print "# alias test\n";
10
11 my %a2c = qw(
12              ja_JP.euc  euc-jp
13              x-euc-jp   euc-jp
14              zh_CN.euc  euc-cn
15              x-euc-cn   euc-cn
16              ko_KR.euc  euc-kr
17              x-euc-kr   euc-kr
18              ujis       euc-jp
19              Shift_JIS  shiftjis
20              x-sjis     shiftjis
21              jis        7bit-jis
22              );
23
24 foreach my $a (keys %a2c){           
25     my $e = Encode::find_encoding($a);
26     my $n =  $e->name || $e->{name};
27     is($n, $a2c{$a});
28 }
29