Upgrade to Encode 0.94, from Dan Kogai.

[p5sagit/p5-mst-13.2.git] / ext / Encode / t / CJKalias.t

use strict;
#use Test::More tests => 29;
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
	     big-5      big5
	     zh_TW.Big5 big5
	     big5-hk    big5-hkscs
	     );

foreach my $a (keys %a2c){	     
    my $e = Encode::find_encoding($a);
    is($e->name, $a2c{$a});
}