1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
|
#!/usr/bin/perl -w
# $File: //member/autrijus/Encode-HanExtra/t/2-alias.t $ $Author: autrijus $
# $Revision: #1 $ $Change: 1 $ $DateTime: 2002/06/11 15:35:12 $
use strict;
use Test::More tests => 12;
use Encode;
use Encode::HanExtra;
print "# alias test\n";
my %a2c = qw(
big51984 big5-1984
big5-84 big5-1984
big5-ext big5ext
big5e big5ext
big5+ big5plus
big5p big5plus
big5-plus big5plus
cmex-big5e big5ext
ccag-cccii cccii
zh_TW.euc euc-tw
x-euc-tw euc-tw
gb-18030 gb18030
);
foreach my $a (keys %a2c){
my $e = Encode::find_encoding($a) or die "Cannot find the $a encoding";
my $n = $e->name || $e->{name};
is($n, $a2c{$a});
}
|
