blob: 891e6d67089512382d1d5046707e3da49f963370 (
plain)
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
|
use Test;
use Unicode::Japanese;
BEGIN { plan tests => 6 }
## check from utf8 convert
my $string;
# sjis
$string = new Unicode::Japanese "\xe2\x99\xa5";
ok($string->sjis, "♥", "U+2665 (9829) => sjis");
# euc
$string = new Unicode::Japanese "\xe2\x99\xa5";
ok($string->euc, "♥", "U+2665 (9829) => eucjp");
# jis(iso-2022-jp)
$string = new Unicode::Japanese "\xe2\x99\xa5";
ok($string->jis, "♥", "U+2665 (9829) => jis");
# imode
$string = new Unicode::Japanese "\xe2\x99\xa5";
ok($string->sjis_imode, "?", "U+2665 (9829) => imode");
# dot-i
$string = new Unicode::Japanese "\xe2\x99\xa5";
ok($string->sjis_doti, "?", "U+2665 (9829) => doti");
# j-sky
$string = new Unicode::Japanese "\xe2\x99\xa5";
ok($string->sjis_jsky, "?", "U+2665 (9829) => jsky");
|
