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
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
|
## ----------------------------------------------------------------------------
# t/illegal.t
# -----------------------------------------------------------------------------
# Mastering programed by YAMASHINA Hio
#
# Copyright YMIRLINK,Inc.
# -----------------------------------------------------------------------------
# $Id$
# -----------------------------------------------------------------------------
use strict;
use Test::More tests => 72;
use Unicode::Japanese;
my $Z1 = "\0"; # U+0000 in 1 byte.
my $Z2 = "\xc0\x80"; # U+0000 in 2 bytes.
my $Z3 = "\xe0\x80\x80"; # U+0000 in 3 bytes.
my $Z4 = "\xf0\x80\x80\x80"; # U+0000 in 4 bytes.
my $Z5 = "\xf8\x80\x80\x80\x80"; # U+0000 in 5 bytes.
my $Z6 = "\xfc\x80\x80\x80\x80\x80"; # U+0000 in 6 bytes.
sub u{ unpack("H*",$_[0]) }
# -----------------------------------------------------------------------------
# internal data
#
{
my $d = "internal data / \\x00";
my $U = Unicode::Japanese->new();
my $PPU = Unicode::Japanese::PurePerl->new();
is(u($U->set($Z1)->{str}), u("\x00"), "$d (1 byte)");
is(u($U->set($Z2)->{str}), u("?"), "$d (2 bytes)");
is(u($U->set($Z3)->{str}), u("?"), "$d (3 bytes)");
is(u($U->set($Z4)->{str}), u("?"), "$d (4 bytes)");
is(u($U->set($Z5)->{str}), u("?"), "$d (5 bytes)");
is(u($U->set($Z6)->{str}), u("?"), "$d (6 bytes)");
is(u($PPU->set($Z1)->{str}), u("\x00"), "$d (1 byte) [PP]");
is(u($PPU->set($Z2)->{str}), u("?"), "$d (2 bytes) [PP]");
is(u($PPU->set($Z3)->{str}), u("?"), "$d (3 bytes) [PP]");
is(u($PPU->set($Z4)->{str}), u("?"), "$d (4 bytes) [PP]");
is(u($PPU->set($Z5)->{str}), u("?"), "$d (5 bytes) [PP]");
is(u($PPU->set($Z6)->{str}), u("?"), "$d (6 bytes) [PP]");
}
# -----------------------------------------------------------------------------
# sjis
#
{
my $d = "sjis / \\x00";
my $U = Unicode::Japanese->new();
my $PPU = Unicode::Japanese::PurePerl->new();
$U->{str}=$Z1; is(u($U->sjis()), u("\x00"), "$d (1 byte)");
$U->{str}=$Z2; is(u($U->sjis()), u("?"), "$d (2 bytes)");
$U->{str}=$Z3; is(u($U->sjis()), u("?"), "$d (3 bytes)");
$U->{str}=$Z4; is(u($U->sjis()), u("?"), "$d (4 bytes)");
$U->{str}=$Z5; is(u($U->sjis()), u("?"), "$d (5 bytes)");
$U->{str}=$Z6; is(u($U->sjis()), u("?"), "$d (6 bytes)");
$PPU->{str}=$Z1; is(u($PPU->sjis()), u("\x00"), "$d (1 byte) [PP]");
$PPU->{str}=$Z2; is(u($PPU->sjis()), u("?"), "$d (2 bytes) [PP]");
$PPU->{str}=$Z3; is(u($PPU->sjis()), u("?"), "$d (3 bytes) [PP]");
$PPU->{str}=$Z4; is(u($PPU->sjis()), u("?"), "$d (4 bytes) [PP]");
$PPU->{str}=$Z5; is(u($PPU->sjis()), u("?"), "$d (5 bytes) [PP]");
$PPU->{str}=$Z6; is(u($PPU->sjis()), u("?"), "$d (6 bytes) [PP]");
}
# -----------------------------------------------------------------------------
# utf8
#
{
my $d = "utf8 / \\x00";
my $U = Unicode::Japanese->new();
my $PPU = Unicode::Japanese::PurePerl->new();
$U->{str}=$Z1; is(u($U->utf8()), u("\x00"), "$d (1 byte)");
$U->{str}=$Z2; is(u($U->utf8()), u("?"), "$d (2 bytes)");
$U->{str}=$Z3; is(u($U->utf8()), u("?"), "$d (3 bytes)");
$U->{str}=$Z4; is(u($U->utf8()), u("?"), "$d (4 bytes)");
$U->{str}=$Z5; is(u($U->utf8()), u("?"), "$d (5 bytes)");
$U->{str}=$Z6; is(u($U->utf8()), u("?"), "$d (6 bytes)");
$PPU->{str}=$Z1; is(u($PPU->utf8()), u("\x00"), "$d (1 byte) [PP]");
$PPU->{str}=$Z2; is(u($PPU->utf8()), u("?"), "$d (2 bytes) [PP]");
$PPU->{str}=$Z3; is(u($PPU->utf8()), u("?"), "$d (3 bytes) [PP]");
$PPU->{str}=$Z4; is(u($PPU->utf8()), u("?"), "$d (4 bytes) [PP]");
$PPU->{str}=$Z5; is(u($PPU->utf8()), u("?"), "$d (5 bytes) [PP]");
$PPU->{str}=$Z6; is(u($PPU->utf8()), u("?"), "$d (6 bytes) [PP]");
}
# -----------------------------------------------------------------------------
# ucs2
#
{
my $d = "ucs2 / \\x00";
my $U = Unicode::Japanese->new();
my $PPU = Unicode::Japanese::PurePerl->new();
$U->{str}=$Z1; is(u($U->ucs2()), u("\x00\x00"), "$d (1 byte)");
$U->{str}=$Z2; is(u($U->ucs2()), u("\x00?"), "$d (2 bytes)");
$U->{str}=$Z3; is(u($U->ucs2()), u("\x00?"), "$d (3 bytes)");
$U->{str}=$Z4; is(u($U->ucs2()), u("\x00?"), "$d (4 bytes)");
$U->{str}=$Z5; is(u($U->ucs2()), u("\x00?"), "$d (5 bytes)");
$U->{str}=$Z6; is(u($U->ucs2()), u("\x00?"), "$d (6 bytes)");
$PPU->{str}=$Z1; is(u($PPU->ucs2()), u("\x00\x00"), "$d (1 byte) [PP]");
$PPU->{str}=$Z2; is(u($PPU->ucs2()), u("\x00?"), "$d (2 bytes) [PP]");
$PPU->{str}=$Z3; is(u($PPU->ucs2()), u("\x00?"), "$d (3 bytes) [PP]");
$PPU->{str}=$Z4; is(u($PPU->ucs2()), u("\x00?"), "$d (4 bytes) [PP]");
$PPU->{str}=$Z5; is(u($PPU->ucs2()), u("\x00?"), "$d (5 bytes) [PP]");
$PPU->{str}=$Z6; is(u($PPU->ucs2()), u("\x00?"), "$d (6 bytes) [PP]");
}
# -----------------------------------------------------------------------------
# ucs4
#
{
my $d = "ucs4 / \\x00";
my $U = Unicode::Japanese->new();
my $PPU = Unicode::Japanese::PurePerl->new();
$U->{str}=$Z1; is(u($U->ucs4()), u("\x00\x00\x00\x00"), "$d (1 byte)");
$U->{str}=$Z2; is(u($U->ucs4()), u("\x00\x00\x00?"), "$d (2 bytes)");
$U->{str}=$Z3; is(u($U->ucs4()), u("\x00\x00\x00?"), "$d (3 bytes)");
$U->{str}=$Z4; is(u($U->ucs4()), u("\x00\x00\x00?"), "$d (4 bytes)");
$U->{str}=$Z5; is(u($U->ucs4()), u("\x00\x00\x00?"), "$d (5 bytes)");
$U->{str}=$Z6; is(u($U->ucs4()), u("\x00\x00\x00?"), "$d (6 bytes)");
$PPU->{str}=$Z1; is(u($PPU->ucs4()), u("\x00\x00\x00\x00"), "$d (1 byte) [PP]");
$PPU->{str}=$Z2; is(u($PPU->ucs4()), u("\x00\x00\x00?"), "$d (2 bytes) [PP]");
$PPU->{str}=$Z3; is(u($PPU->ucs4()), u("\x00\x00\x00?"), "$d (3 bytes) [PP]");
$PPU->{str}=$Z4; is(u($PPU->ucs4()), u("\x00\x00\x00?"), "$d (4 bytes) [PP]");
$PPU->{str}=$Z5; is(u($PPU->ucs4()), u("\x00\x00\x00?"), "$d (5 bytes) [PP]");
$PPU->{str}=$Z6; is(u($PPU->ucs4()), u("\x00\x00\x00?"), "$d (6 bytes) [PP]");
}
# -----------------------------------------------------------------------------
# utf16
#
{
my $d = "utf16 / \\x00";
my $U = Unicode::Japanese->new();
my $PPU = Unicode::Japanese::PurePerl->new();
$U->{str}=$Z1; is(u($U->utf16()), u("\x00\x00"), "$d (1 byte)");
$U->{str}=$Z2; is(u($U->utf16()), u("\x00?"), "$d (2 bytes)");
$U->{str}=$Z3; is(u($U->utf16()), u("\x00?"), "$d (3 bytes)");
$U->{str}=$Z4; is(u($U->utf16()), u("\x00?"), "$d (4 bytes)");
$U->{str}=$Z5; is(u($U->utf16()), u("\x00?"), "$d (5 bytes)");
$U->{str}=$Z6; is(u($U->utf16()), u("\x00?"), "$d (6 bytes)");
$PPU->{str}=$Z1; is(u($PPU->utf16()), u("\x00\x00"), "$d (1 byte) [PP]");
$PPU->{str}=$Z2; is(u($PPU->utf16()), u("\x00?"), "$d (2 bytes) [PP]");
$PPU->{str}=$Z3; is(u($PPU->utf16()), u("\x00?"), "$d (3 bytes) [PP]");
$PPU->{str}=$Z4; is(u($PPU->utf16()), u("\x00?"), "$d (4 bytes) [PP]");
$PPU->{str}=$Z5; is(u($PPU->utf16()), u("\x00?"), "$d (5 bytes) [PP]");
$PPU->{str}=$Z6; is(u($PPU->utf16()), u("\x00?"), "$d (6 bytes) [PP]");
}
# -----------------------------------------------------------------------------
# End Of File.
# -----------------------------------------------------------------------------
|
