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
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
|
use Test;
use Unicode::Japanese qw(PurePerl);
BEGIN { plan tests => 15 }
## getcode method
sub test
{
my $src = shift;
my $icode = shift;
my $code = Unicode::Japanese->new->getcode($src);
ok($code, $icode, 'src:'.unpack('H*',$src));
}
my $code;
$code = Unicode::Japanese->new->getcode("\x00\x00\xfe\xff");
ok($code, 'utf32');
$code = Unicode::Japanese->new->getcode("\xff\xfe\x00\x00");
ok($code, 'utf32');
$code = Unicode::Japanese->new->getcode("\xfe\xff");
ok($code, 'utf16');
$code = Unicode::Japanese->new->getcode("\xff\xfe");
ok($code, 'utf16');
$code = Unicode::Japanese->new->getcode("\x00\x00\x61\x1b");
ok($code, 'utf32-be');
$code = Unicode::Japanese->new->getcode("\x1b\x61\x00\x00");
ok($code, 'utf32-le');
$code = Unicode::Japanese->new->getcode("love");
ok($code, 'ascii');
$code = Unicode::Japanese->new->getcode("\x1b\x24\x42\x30\x26\x1b\x28\x42");
ok($code, 'jis');
$code = Unicode::Japanese->new->getcode("\e\$EE\x0f");
ok($code, 'sjis-jsky');
$code = Unicode::Japanese->new->getcode("\xb0\xa6");
ok($code, 'euc');
$code = Unicode::Japanese->new->getcode("\x88\xa4");
ok($code, 'sjis');
test("\x88\xa4\xf8\xdf", 'sjis-imode');
$code = Unicode::Japanese->new->getcode("\x88\xa4\xf1\xb5");
ok($code, 'sjis-doti');
$code = Unicode::Japanese->new->getcode("\xe6\x84\x9b");
ok($code, 'utf8');
$code = Unicode::Japanese->new->getcode("\xcd\x10\x89\x01");
ok($code, 'unknown');
|
