projects
/
p5sagit/p5-mst-13.2.git
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
A plan is better.
[p5sagit/p5-mst-13.2.git]
/
ext
/
Encode
/
t
/
CJKalias.t
1
use strict;
2
use Encode::CN;
3
use Encode::JP;
4
use Encode::KR;
5
use Encode::TW;
6
7
print "# alias test\n";
8
9
my %a2c;
10
11
BEGIN {
12
%a2c = qw(
13
ja_JP.euc euc-jp
14
x-euc-jp euc-jp
15
zh_CN.euc euc-cn
16
x-euc-cn euc-cn
17
ko_KR.euc euc-kr
18
x-euc-kr euc-kr
19
ujis euc-jp
20
Shift_JIS shiftjis
21
x-sjis shiftjis
22
jis 7bit-jis
23
big-5 big5
24
zh_TW.Big5 big5
25
big5-hk big5-hkscs
26
);
27
}
28
29
use Test::More tests => scalar keys %a2c;
30
31
foreach my $a (keys %a2c){
32
my $e = Encode::find_encoding($a);
33
is($e->name, $a2c{$a});
34
}
35