1
2BEGIN {
3    unless ('A' eq pack('U', 0x41)) {
4	print "1..0 # Unicode::Collate cannot pack a Unicode code point\n";
5	exit 0;
6    }
7    unless (0x41 == unpack('U', 'A')) {
8	print "1..0 # Unicode::Collate cannot get a Unicode code point\n";
9	exit 0;
10    }
11    if ($ENV{PERL_CORE}) {
12	chdir('t') if -d 't';
13	@INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
14    }
15}
16
17use strict;
18use warnings;
19BEGIN { $| = 1; print "1..602\n"; }
20my $count = 0;
21sub ok ($;$) {
22    my $p = my $r = shift;
23    if (@_) {
24	my $x = shift;
25	$p = !defined $x ? !defined $r : !defined $r ? 0 : $r eq $x;
26    }
27    print $p ? "ok" : "not ok", ' ', ++$count, "\n";
28}
29
30use Unicode::Collate::Locale;
31
32ok(1);
33
34#########################
35
36my $objJa = Unicode::Collate::Locale->
37    new(locale => 'JA', normalization => undef);
38
39ok($objJa->getlocale, 'ja');
40
41$objJa->change(level => 2);
42
43ok($objJa->eq("\x{30A1}\x{30FC}", "\x{30A1}\x{30A1}"));
44ok($objJa->eq("\x{30A2}\x{30FC}", "\x{30A2}\x{30A1}"));
45ok($objJa->eq("\x{30AB}\x{30FC}", "\x{30AB}\x{30A1}"));
46ok($objJa->eq("\x{30AC}\x{30FC}", "\x{30AC}\x{30A1}"));
47ok($objJa->eq("\x{30B5}\x{30FC}", "\x{30B5}\x{30A1}"));
48ok($objJa->eq("\x{30B6}\x{30FC}", "\x{30B6}\x{30A1}"));
49ok($objJa->eq("\x{30BF}\x{30FC}", "\x{30BF}\x{30A1}"));
50ok($objJa->eq("\x{30C0}\x{30FC}", "\x{30C0}\x{30A1}"));
51ok($objJa->eq("\x{30CA}\x{30FC}", "\x{30CA}\x{30A1}"));
52ok($objJa->eq("\x{30CF}\x{30FC}", "\x{30CF}\x{30A1}"));
53ok($objJa->eq("\x{30D0}\x{30FC}", "\x{30D0}\x{30A1}"));
54ok($objJa->eq("\x{30D1}\x{30FC}", "\x{30D1}\x{30A1}"));
55ok($objJa->eq("\x{30DE}\x{30FC}", "\x{30DE}\x{30A1}"));
56ok($objJa->eq("\x{30E3}\x{30FC}", "\x{30E3}\x{30A1}"));
57ok($objJa->eq("\x{30E4}\x{30FC}", "\x{30E4}\x{30A1}"));
58ok($objJa->eq("\x{30E9}\x{30FC}", "\x{30E9}\x{30A1}"));
59ok($objJa->eq("\x{30EE}\x{30FC}", "\x{30EE}\x{30A1}"));
60ok($objJa->eq("\x{30EF}\x{30FC}", "\x{30EF}\x{30A1}"));
61ok($objJa->eq("\x{30F7}\x{30FC}", "\x{30F7}\x{30A1}"));
62ok($objJa->eq("\x{30F5}\x{30FC}", "\x{30F5}\x{30A1}"));
63ok($objJa->eq("\x{31F5}\x{30FC}", "\x{31F5}\x{30A1}"));
64ok($objJa->eq("\x{31FB}\x{30FC}", "\x{31FB}\x{30A1}"));
65ok($objJa->eq("\x{30A3}\x{30FC}", "\x{30A3}\x{30A3}"));
66ok($objJa->eq("\x{30A4}\x{30FC}", "\x{30A4}\x{30A3}"));
67ok($objJa->eq("\x{30AD}\x{30FC}", "\x{30AD}\x{30A3}"));
68ok($objJa->eq("\x{30AE}\x{30FC}", "\x{30AE}\x{30A3}"));
69ok($objJa->eq("\x{30B7}\x{30FC}", "\x{30B7}\x{30A3}"));
70ok($objJa->eq("\x{30B8}\x{30FC}", "\x{30B8}\x{30A3}"));
71ok($objJa->eq("\x{30C1}\x{30FC}", "\x{30C1}\x{30A3}"));
72ok($objJa->eq("\x{30C2}\x{30FC}", "\x{30C2}\x{30A3}"));
73ok($objJa->eq("\x{30CB}\x{30FC}", "\x{30CB}\x{30A3}"));
74ok($objJa->eq("\x{30D2}\x{30FC}", "\x{30D2}\x{30A3}"));
75ok($objJa->eq("\x{30D3}\x{30FC}", "\x{30D3}\x{30A3}"));
76ok($objJa->eq("\x{30D4}\x{30FC}", "\x{30D4}\x{30A3}"));
77ok($objJa->eq("\x{30DF}\x{30FC}", "\x{30DF}\x{30A3}"));
78ok($objJa->eq("\x{30EA}\x{30FC}", "\x{30EA}\x{30A3}"));
79ok($objJa->eq("\x{30F0}\x{30FC}", "\x{30F0}\x{30A3}"));
80ok($objJa->eq("\x{30F8}\x{30FC}", "\x{30F8}\x{30A3}"));
81ok($objJa->eq("\x{31F1}\x{30FC}", "\x{31F1}\x{30A3}"));
82ok($objJa->eq("\x{31F6}\x{30FC}", "\x{31F6}\x{30A3}"));
83ok($objJa->eq("\x{31FC}\x{30FC}", "\x{31FC}\x{30A3}"));
84ok($objJa->eq("\x{30A5}\x{30FC}", "\x{30A5}\x{30A5}"));
85ok($objJa->eq("\x{30A6}\x{30FC}", "\x{30A6}\x{30A5}"));
86ok($objJa->eq("\x{30AF}\x{30FC}", "\x{30AF}\x{30A5}"));
87ok($objJa->eq("\x{30B0}\x{30FC}", "\x{30B0}\x{30A5}"));
88ok($objJa->eq("\x{30B9}\x{30FC}", "\x{30B9}\x{30A5}"));
89ok($objJa->eq("\x{30BA}\x{30FC}", "\x{30BA}\x{30A5}"));
90ok($objJa->eq("\x{30C3}\x{30FC}", "\x{30C3}\x{30A5}"));
91ok($objJa->eq("\x{30C4}\x{30FC}", "\x{30C4}\x{30A5}"));
92ok($objJa->eq("\x{30C5}\x{30FC}", "\x{30C5}\x{30A5}"));
93ok($objJa->eq("\x{30CC}\x{30FC}", "\x{30CC}\x{30A5}"));
94ok($objJa->eq("\x{30D5}\x{30FC}", "\x{30D5}\x{30A5}"));
95ok($objJa->eq("\x{30D6}\x{30FC}", "\x{30D6}\x{30A5}"));
96ok($objJa->eq("\x{30D7}\x{30FC}", "\x{30D7}\x{30A5}"));
97ok($objJa->eq("\x{30E0}\x{30FC}", "\x{30E0}\x{30A5}"));
98ok($objJa->eq("\x{30E5}\x{30FC}", "\x{30E5}\x{30A5}"));
99ok($objJa->eq("\x{30E6}\x{30FC}", "\x{30E6}\x{30A5}"));
100ok($objJa->eq("\x{30EB}\x{30FC}", "\x{30EB}\x{30A5}"));
101ok($objJa->eq("\x{30F4}\x{30FC}", "\x{30F4}\x{30A5}"));
102ok($objJa->eq("\x{31F0}\x{30FC}", "\x{31F0}\x{30A5}"));
103ok($objJa->eq("\x{31F2}\x{30FC}", "\x{31F2}\x{30A5}"));
104ok($objJa->eq("\x{31F4}\x{30FC}", "\x{31F4}\x{30A5}"));
105ok($objJa->eq("\x{31F7}\x{30FC}", "\x{31F7}\x{30A5}"));
106ok($objJa->eq("\x{31FA}\x{30FC}", "\x{31FA}\x{30A5}"));
107ok($objJa->eq("\x{31FD}\x{30FC}", "\x{31FD}\x{30A5}"));
108ok($objJa->eq("\x{30A7}\x{30FC}", "\x{30A7}\x{30A7}"));
109ok($objJa->eq("\x{30A8}\x{30FC}", "\x{30A8}\x{30A7}"));
110ok($objJa->eq("\x{30B1}\x{30FC}", "\x{30B1}\x{30A7}"));
111ok($objJa->eq("\x{30B2}\x{30FC}", "\x{30B2}\x{30A7}"));
112ok($objJa->eq("\x{30BB}\x{30FC}", "\x{30BB}\x{30A7}"));
113ok($objJa->eq("\x{30BC}\x{30FC}", "\x{30BC}\x{30A7}"));
114ok($objJa->eq("\x{30C6}\x{30FC}", "\x{30C6}\x{30A7}"));
115ok($objJa->eq("\x{30C7}\x{30FC}", "\x{30C7}\x{30A7}"));
116ok($objJa->eq("\x{30CD}\x{30FC}", "\x{30CD}\x{30A7}"));
117ok($objJa->eq("\x{30D8}\x{30FC}", "\x{30D8}\x{30A7}"));
118ok($objJa->eq("\x{30D9}\x{30FC}", "\x{30D9}\x{30A7}"));
119ok($objJa->eq("\x{30DA}\x{30FC}", "\x{30DA}\x{30A7}"));
120ok($objJa->eq("\x{30E1}\x{30FC}", "\x{30E1}\x{30A7}"));
121ok($objJa->eq("\x{30EC}\x{30FC}", "\x{30EC}\x{30A7}"));
122ok($objJa->eq("\x{30F1}\x{30FC}", "\x{30F1}\x{30A7}"));
123ok($objJa->eq("\x{30F9}\x{30FC}", "\x{30F9}\x{30A7}"));
124ok($objJa->eq("\x{30F6}\x{30FC}", "\x{30F6}\x{30A7}"));
125ok($objJa->eq("\x{31F8}\x{30FC}", "\x{31F8}\x{30A7}"));
126ok($objJa->eq("\x{31FE}\x{30FC}", "\x{31FE}\x{30A7}"));
127ok($objJa->eq("\x{30A9}\x{30FC}", "\x{30A9}\x{30A9}"));
128ok($objJa->eq("\x{30AA}\x{30FC}", "\x{30AA}\x{30A9}"));
129ok($objJa->eq("\x{30B3}\x{30FC}", "\x{30B3}\x{30A9}"));
130ok($objJa->eq("\x{30B4}\x{30FC}", "\x{30B4}\x{30A9}"));
131ok($objJa->eq("\x{30BD}\x{30FC}", "\x{30BD}\x{30A9}"));
132ok($objJa->eq("\x{30BE}\x{30FC}", "\x{30BE}\x{30A9}"));
133ok($objJa->eq("\x{30C8}\x{30FC}", "\x{30C8}\x{30A9}"));
134ok($objJa->eq("\x{30C9}\x{30FC}", "\x{30C9}\x{30A9}"));
135ok($objJa->eq("\x{30CE}\x{30FC}", "\x{30CE}\x{30A9}"));
136ok($objJa->eq("\x{30DB}\x{30FC}", "\x{30DB}\x{30A9}"));
137ok($objJa->eq("\x{30DC}\x{30FC}", "\x{30DC}\x{30A9}"));
138ok($objJa->eq("\x{30DD}\x{30FC}", "\x{30DD}\x{30A9}"));
139ok($objJa->eq("\x{30E2}\x{30FC}", "\x{30E2}\x{30A9}"));
140ok($objJa->eq("\x{30E7}\x{30FC}", "\x{30E7}\x{30A9}"));
141ok($objJa->eq("\x{30E8}\x{30FC}", "\x{30E8}\x{30A9}"));
142ok($objJa->eq("\x{30ED}\x{30FC}", "\x{30ED}\x{30A9}"));
143ok($objJa->eq("\x{30F2}\x{30FC}", "\x{30F2}\x{30A9}"));
144ok($objJa->eq("\x{30FA}\x{30FC}", "\x{30FA}\x{30A9}"));
145ok($objJa->eq("\x{31F3}\x{30FC}", "\x{31F3}\x{30A9}"));
146ok($objJa->eq("\x{31F9}\x{30FC}", "\x{31F9}\x{30A9}"));
147ok($objJa->eq("\x{31FF}\x{30FC}", "\x{31FF}\x{30A9}"));
148
149# 107
150
151$objJa->change(level => 3);
152
153ok($objJa->lt("\x{30A1}\x{30FC}", "\x{30A1}\x{30A1}"));
154ok($objJa->lt("\x{30A2}\x{30FC}", "\x{30A2}\x{30A1}"));
155ok($objJa->lt("\x{30AB}\x{30FC}", "\x{30AB}\x{30A1}"));
156ok($objJa->lt("\x{30AC}\x{30FC}", "\x{30AC}\x{30A1}"));
157ok($objJa->lt("\x{30B5}\x{30FC}", "\x{30B5}\x{30A1}"));
158ok($objJa->lt("\x{30B6}\x{30FC}", "\x{30B6}\x{30A1}"));
159ok($objJa->lt("\x{30BF}\x{30FC}", "\x{30BF}\x{30A1}"));
160ok($objJa->lt("\x{30C0}\x{30FC}", "\x{30C0}\x{30A1}"));
161ok($objJa->lt("\x{30CA}\x{30FC}", "\x{30CA}\x{30A1}"));
162ok($objJa->lt("\x{30CF}\x{30FC}", "\x{30CF}\x{30A1}"));
163ok($objJa->lt("\x{30D0}\x{30FC}", "\x{30D0}\x{30A1}"));
164ok($objJa->lt("\x{30D1}\x{30FC}", "\x{30D1}\x{30A1}"));
165ok($objJa->lt("\x{30DE}\x{30FC}", "\x{30DE}\x{30A1}"));
166ok($objJa->lt("\x{30E3}\x{30FC}", "\x{30E3}\x{30A1}"));
167ok($objJa->lt("\x{30E4}\x{30FC}", "\x{30E4}\x{30A1}"));
168ok($objJa->lt("\x{30E9}\x{30FC}", "\x{30E9}\x{30A1}"));
169ok($objJa->lt("\x{30EE}\x{30FC}", "\x{30EE}\x{30A1}"));
170ok($objJa->lt("\x{30EF}\x{30FC}", "\x{30EF}\x{30A1}"));
171ok($objJa->lt("\x{30F7}\x{30FC}", "\x{30F7}\x{30A1}"));
172ok($objJa->lt("\x{30F5}\x{30FC}", "\x{30F5}\x{30A1}"));
173ok($objJa->lt("\x{31F5}\x{30FC}", "\x{31F5}\x{30A1}"));
174ok($objJa->lt("\x{31FB}\x{30FC}", "\x{31FB}\x{30A1}"));
175ok($objJa->lt("\x{30A3}\x{30FC}", "\x{30A3}\x{30A3}"));
176ok($objJa->lt("\x{30A4}\x{30FC}", "\x{30A4}\x{30A3}"));
177ok($objJa->lt("\x{30AD}\x{30FC}", "\x{30AD}\x{30A3}"));
178ok($objJa->lt("\x{30AE}\x{30FC}", "\x{30AE}\x{30A3}"));
179ok($objJa->lt("\x{30B7}\x{30FC}", "\x{30B7}\x{30A3}"));
180ok($objJa->lt("\x{30B8}\x{30FC}", "\x{30B8}\x{30A3}"));
181ok($objJa->lt("\x{30C1}\x{30FC}", "\x{30C1}\x{30A3}"));
182ok($objJa->lt("\x{30C2}\x{30FC}", "\x{30C2}\x{30A3}"));
183ok($objJa->lt("\x{30CB}\x{30FC}", "\x{30CB}\x{30A3}"));
184ok($objJa->lt("\x{30D2}\x{30FC}", "\x{30D2}\x{30A3}"));
185ok($objJa->lt("\x{30D3}\x{30FC}", "\x{30D3}\x{30A3}"));
186ok($objJa->lt("\x{30D4}\x{30FC}", "\x{30D4}\x{30A3}"));
187ok($objJa->lt("\x{30DF}\x{30FC}", "\x{30DF}\x{30A3}"));
188ok($objJa->lt("\x{30EA}\x{30FC}", "\x{30EA}\x{30A3}"));
189ok($objJa->lt("\x{30F0}\x{30FC}", "\x{30F0}\x{30A3}"));
190ok($objJa->lt("\x{30F8}\x{30FC}", "\x{30F8}\x{30A3}"));
191ok($objJa->lt("\x{31F1}\x{30FC}", "\x{31F1}\x{30A3}"));
192ok($objJa->lt("\x{31F6}\x{30FC}", "\x{31F6}\x{30A3}"));
193ok($objJa->lt("\x{31FC}\x{30FC}", "\x{31FC}\x{30A3}"));
194ok($objJa->lt("\x{30A5}\x{30FC}", "\x{30A5}\x{30A5}"));
195ok($objJa->lt("\x{30A6}\x{30FC}", "\x{30A6}\x{30A5}"));
196ok($objJa->lt("\x{30AF}\x{30FC}", "\x{30AF}\x{30A5}"));
197ok($objJa->lt("\x{30B0}\x{30FC}", "\x{30B0}\x{30A5}"));
198ok($objJa->lt("\x{30B9}\x{30FC}", "\x{30B9}\x{30A5}"));
199ok($objJa->lt("\x{30BA}\x{30FC}", "\x{30BA}\x{30A5}"));
200ok($objJa->lt("\x{30C3}\x{30FC}", "\x{30C3}\x{30A5}"));
201ok($objJa->lt("\x{30C4}\x{30FC}", "\x{30C4}\x{30A5}"));
202ok($objJa->lt("\x{30C5}\x{30FC}", "\x{30C5}\x{30A5}"));
203ok($objJa->lt("\x{30CC}\x{30FC}", "\x{30CC}\x{30A5}"));
204ok($objJa->lt("\x{30D5}\x{30FC}", "\x{30D5}\x{30A5}"));
205ok($objJa->lt("\x{30D6}\x{30FC}", "\x{30D6}\x{30A5}"));
206ok($objJa->lt("\x{30D7}\x{30FC}", "\x{30D7}\x{30A5}"));
207ok($objJa->lt("\x{30E0}\x{30FC}", "\x{30E0}\x{30A5}"));
208ok($objJa->lt("\x{30E5}\x{30FC}", "\x{30E5}\x{30A5}"));
209ok($objJa->lt("\x{30E6}\x{30FC}", "\x{30E6}\x{30A5}"));
210ok($objJa->lt("\x{30EB}\x{30FC}", "\x{30EB}\x{30A5}"));
211ok($objJa->lt("\x{30F4}\x{30FC}", "\x{30F4}\x{30A5}"));
212ok($objJa->lt("\x{31F0}\x{30FC}", "\x{31F0}\x{30A5}"));
213ok($objJa->lt("\x{31F2}\x{30FC}", "\x{31F2}\x{30A5}"));
214ok($objJa->lt("\x{31F4}\x{30FC}", "\x{31F4}\x{30A5}"));
215ok($objJa->lt("\x{31F7}\x{30FC}", "\x{31F7}\x{30A5}"));
216ok($objJa->lt("\x{31FA}\x{30FC}", "\x{31FA}\x{30A5}"));
217ok($objJa->lt("\x{31FD}\x{30FC}", "\x{31FD}\x{30A5}"));
218ok($objJa->lt("\x{30A7}\x{30FC}", "\x{30A7}\x{30A7}"));
219ok($objJa->lt("\x{30A8}\x{30FC}", "\x{30A8}\x{30A7}"));
220ok($objJa->lt("\x{30B1}\x{30FC}", "\x{30B1}\x{30A7}"));
221ok($objJa->lt("\x{30B2}\x{30FC}", "\x{30B2}\x{30A7}"));
222ok($objJa->lt("\x{30BB}\x{30FC}", "\x{30BB}\x{30A7}"));
223ok($objJa->lt("\x{30BC}\x{30FC}", "\x{30BC}\x{30A7}"));
224ok($objJa->lt("\x{30C6}\x{30FC}", "\x{30C6}\x{30A7}"));
225ok($objJa->lt("\x{30C7}\x{30FC}", "\x{30C7}\x{30A7}"));
226ok($objJa->lt("\x{30CD}\x{30FC}", "\x{30CD}\x{30A7}"));
227ok($objJa->lt("\x{30D8}\x{30FC}", "\x{30D8}\x{30A7}"));
228ok($objJa->lt("\x{30D9}\x{30FC}", "\x{30D9}\x{30A7}"));
229ok($objJa->lt("\x{30DA}\x{30FC}", "\x{30DA}\x{30A7}"));
230ok($objJa->lt("\x{30E1}\x{30FC}", "\x{30E1}\x{30A7}"));
231ok($objJa->lt("\x{30EC}\x{30FC}", "\x{30EC}\x{30A7}"));
232ok($objJa->lt("\x{30F1}\x{30FC}", "\x{30F1}\x{30A7}"));
233ok($objJa->lt("\x{30F9}\x{30FC}", "\x{30F9}\x{30A7}"));
234ok($objJa->lt("\x{30F6}\x{30FC}", "\x{30F6}\x{30A7}"));
235ok($objJa->lt("\x{31F8}\x{30FC}", "\x{31F8}\x{30A7}"));
236ok($objJa->lt("\x{31FE}\x{30FC}", "\x{31FE}\x{30A7}"));
237ok($objJa->lt("\x{30A9}\x{30FC}", "\x{30A9}\x{30A9}"));
238ok($objJa->lt("\x{30AA}\x{30FC}", "\x{30AA}\x{30A9}"));
239ok($objJa->lt("\x{30B3}\x{30FC}", "\x{30B3}\x{30A9}"));
240ok($objJa->lt("\x{30B4}\x{30FC}", "\x{30B4}\x{30A9}"));
241ok($objJa->lt("\x{30BD}\x{30FC}", "\x{30BD}\x{30A9}"));
242ok($objJa->lt("\x{30BE}\x{30FC}", "\x{30BE}\x{30A9}"));
243ok($objJa->lt("\x{30C8}\x{30FC}", "\x{30C8}\x{30A9}"));
244ok($objJa->lt("\x{30C9}\x{30FC}", "\x{30C9}\x{30A9}"));
245ok($objJa->lt("\x{30CE}\x{30FC}", "\x{30CE}\x{30A9}"));
246ok($objJa->lt("\x{30DB}\x{30FC}", "\x{30DB}\x{30A9}"));
247ok($objJa->lt("\x{30DC}\x{30FC}", "\x{30DC}\x{30A9}"));
248ok($objJa->lt("\x{30DD}\x{30FC}", "\x{30DD}\x{30A9}"));
249ok($objJa->lt("\x{30E2}\x{30FC}", "\x{30E2}\x{30A9}"));
250ok($objJa->lt("\x{30E7}\x{30FC}", "\x{30E7}\x{30A9}"));
251ok($objJa->lt("\x{30E8}\x{30FC}", "\x{30E8}\x{30A9}"));
252ok($objJa->lt("\x{30ED}\x{30FC}", "\x{30ED}\x{30A9}"));
253ok($objJa->lt("\x{30F2}\x{30FC}", "\x{30F2}\x{30A9}"));
254ok($objJa->lt("\x{30FA}\x{30FC}", "\x{30FA}\x{30A9}"));
255ok($objJa->lt("\x{31F3}\x{30FC}", "\x{31F3}\x{30A9}"));
256ok($objJa->lt("\x{31F9}\x{30FC}", "\x{31F9}\x{30A9}"));
257ok($objJa->lt("\x{31FF}\x{30FC}", "\x{31FF}\x{30A9}"));
258
259# 212
260
261ok($objJa->eq("\x{3041}\x{30FC}", "\x{30A1}\x{30FC}"));
262ok($objJa->eq("\x{3042}\x{30FC}", "\x{30A2}\x{30FC}"));
263ok($objJa->eq("\x{304B}\x{30FC}", "\x{30AB}\x{30FC}"));
264ok($objJa->eq("\x{304C}\x{30FC}", "\x{30AC}\x{30FC}"));
265ok($objJa->eq("\x{3055}\x{30FC}", "\x{30B5}\x{30FC}"));
266ok($objJa->eq("\x{3056}\x{30FC}", "\x{30B6}\x{30FC}"));
267ok($objJa->eq("\x{305F}\x{30FC}", "\x{30BF}\x{30FC}"));
268ok($objJa->eq("\x{3060}\x{30FC}", "\x{30C0}\x{30FC}"));
269ok($objJa->eq("\x{306A}\x{30FC}", "\x{30CA}\x{30FC}"));
270ok($objJa->eq("\x{306F}\x{30FC}", "\x{30CF}\x{30FC}"));
271ok($objJa->eq("\x{3070}\x{30FC}", "\x{30D0}\x{30FC}"));
272ok($objJa->eq("\x{3071}\x{30FC}", "\x{30D1}\x{30FC}"));
273ok($objJa->eq("\x{307E}\x{30FC}", "\x{30DE}\x{30FC}"));
274ok($objJa->eq("\x{3083}\x{30FC}", "\x{30E3}\x{30FC}"));
275ok($objJa->eq("\x{3084}\x{30FC}", "\x{30E4}\x{30FC}"));
276ok($objJa->eq("\x{3089}\x{30FC}", "\x{30E9}\x{30FC}"));
277ok($objJa->eq("\x{308E}\x{30FC}", "\x{30EE}\x{30FC}"));
278ok($objJa->eq("\x{308F}\x{30FC}", "\x{30EF}\x{30FC}"));
279ok($objJa->eq("\x{3095}\x{30FC}", "\x{30F5}\x{30FC}"));
280ok($objJa->eq("\x{3043}\x{30FC}", "\x{30A3}\x{30FC}"));
281ok($objJa->eq("\x{3044}\x{30FC}", "\x{30A4}\x{30FC}"));
282ok($objJa->eq("\x{304D}\x{30FC}", "\x{30AD}\x{30FC}"));
283ok($objJa->eq("\x{304E}\x{30FC}", "\x{30AE}\x{30FC}"));
284ok($objJa->eq("\x{3057}\x{30FC}", "\x{30B7}\x{30FC}"));
285ok($objJa->eq("\x{3058}\x{30FC}", "\x{30B8}\x{30FC}"));
286ok($objJa->eq("\x{3061}\x{30FC}", "\x{30C1}\x{30FC}"));
287ok($objJa->eq("\x{3062}\x{30FC}", "\x{30C2}\x{30FC}"));
288ok($objJa->eq("\x{306B}\x{30FC}", "\x{30CB}\x{30FC}"));
289ok($objJa->eq("\x{3072}\x{30FC}", "\x{30D2}\x{30FC}"));
290ok($objJa->eq("\x{3073}\x{30FC}", "\x{30D3}\x{30FC}"));
291ok($objJa->eq("\x{3074}\x{30FC}", "\x{30D4}\x{30FC}"));
292ok($objJa->eq("\x{307F}\x{30FC}", "\x{30DF}\x{30FC}"));
293ok($objJa->eq("\x{308A}\x{30FC}", "\x{30EA}\x{30FC}"));
294ok($objJa->eq("\x{3090}\x{30FC}", "\x{30F0}\x{30FC}"));
295ok($objJa->eq("\x{3045}\x{30FC}", "\x{30A5}\x{30FC}"));
296ok($objJa->eq("\x{3046}\x{30FC}", "\x{30A6}\x{30FC}"));
297ok($objJa->eq("\x{304F}\x{30FC}", "\x{30AF}\x{30FC}"));
298ok($objJa->eq("\x{3050}\x{30FC}", "\x{30B0}\x{30FC}"));
299ok($objJa->eq("\x{3059}\x{30FC}", "\x{30B9}\x{30FC}"));
300ok($objJa->eq("\x{305A}\x{30FC}", "\x{30BA}\x{30FC}"));
301ok($objJa->eq("\x{3063}\x{30FC}", "\x{30C3}\x{30FC}"));
302ok($objJa->eq("\x{3064}\x{30FC}", "\x{30C4}\x{30FC}"));
303ok($objJa->eq("\x{3065}\x{30FC}", "\x{30C5}\x{30FC}"));
304ok($objJa->eq("\x{306C}\x{30FC}", "\x{30CC}\x{30FC}"));
305ok($objJa->eq("\x{3075}\x{30FC}", "\x{30D5}\x{30FC}"));
306ok($objJa->eq("\x{3076}\x{30FC}", "\x{30D6}\x{30FC}"));
307ok($objJa->eq("\x{3077}\x{30FC}", "\x{30D7}\x{30FC}"));
308ok($objJa->eq("\x{3080}\x{30FC}", "\x{30E0}\x{30FC}"));
309ok($objJa->eq("\x{3085}\x{30FC}", "\x{30E5}\x{30FC}"));
310ok($objJa->eq("\x{3086}\x{30FC}", "\x{30E6}\x{30FC}"));
311ok($objJa->eq("\x{308B}\x{30FC}", "\x{30EB}\x{30FC}"));
312ok($objJa->eq("\x{3094}\x{30FC}", "\x{30F4}\x{30FC}"));
313ok($objJa->eq("\x{3047}\x{30FC}", "\x{30A7}\x{30FC}"));
314ok($objJa->eq("\x{3048}\x{30FC}", "\x{30A8}\x{30FC}"));
315ok($objJa->eq("\x{3051}\x{30FC}", "\x{30B1}\x{30FC}"));
316ok($objJa->eq("\x{3052}\x{30FC}", "\x{30B2}\x{30FC}"));
317ok($objJa->eq("\x{305B}\x{30FC}", "\x{30BB}\x{30FC}"));
318ok($objJa->eq("\x{305C}\x{30FC}", "\x{30BC}\x{30FC}"));
319ok($objJa->eq("\x{3066}\x{30FC}", "\x{30C6}\x{30FC}"));
320ok($objJa->eq("\x{3067}\x{30FC}", "\x{30C7}\x{30FC}"));
321ok($objJa->eq("\x{306D}\x{30FC}", "\x{30CD}\x{30FC}"));
322ok($objJa->eq("\x{3078}\x{30FC}", "\x{30D8}\x{30FC}"));
323ok($objJa->eq("\x{3079}\x{30FC}", "\x{30D9}\x{30FC}"));
324ok($objJa->eq("\x{307A}\x{30FC}", "\x{30DA}\x{30FC}"));
325ok($objJa->eq("\x{3081}\x{30FC}", "\x{30E1}\x{30FC}"));
326ok($objJa->eq("\x{308C}\x{30FC}", "\x{30EC}\x{30FC}"));
327ok($objJa->eq("\x{3091}\x{30FC}", "\x{30F1}\x{30FC}"));
328ok($objJa->eq("\x{3096}\x{30FC}", "\x{30F6}\x{30FC}"));
329ok($objJa->eq("\x{3049}\x{30FC}", "\x{30A9}\x{30FC}"));
330ok($objJa->eq("\x{304A}\x{30FC}", "\x{30AA}\x{30FC}"));
331ok($objJa->eq("\x{3053}\x{30FC}", "\x{30B3}\x{30FC}"));
332ok($objJa->eq("\x{3054}\x{30FC}", "\x{30B4}\x{30FC}"));
333ok($objJa->eq("\x{305D}\x{30FC}", "\x{30BD}\x{30FC}"));
334ok($objJa->eq("\x{305E}\x{30FC}", "\x{30BE}\x{30FC}"));
335ok($objJa->eq("\x{3068}\x{30FC}", "\x{30C8}\x{30FC}"));
336ok($objJa->eq("\x{3069}\x{30FC}", "\x{30C9}\x{30FC}"));
337ok($objJa->eq("\x{306E}\x{30FC}", "\x{30CE}\x{30FC}"));
338ok($objJa->eq("\x{307B}\x{30FC}", "\x{30DB}\x{30FC}"));
339ok($objJa->eq("\x{307C}\x{30FC}", "\x{30DC}\x{30FC}"));
340ok($objJa->eq("\x{307D}\x{30FC}", "\x{30DD}\x{30FC}"));
341ok($objJa->eq("\x{3082}\x{30FC}", "\x{30E2}\x{30FC}"));
342ok($objJa->eq("\x{3087}\x{30FC}", "\x{30E7}\x{30FC}"));
343ok($objJa->eq("\x{3088}\x{30FC}", "\x{30E8}\x{30FC}"));
344ok($objJa->eq("\x{308D}\x{30FC}", "\x{30ED}\x{30FC}"));
345ok($objJa->eq("\x{3092}\x{30FC}", "\x{30F2}\x{30FC}"));
346
347# 297
348
349$objJa->change(level => 4);
350
351$objJa->change(variable => 'Non-ignorable');
352
353ok($objJa->lt("\x{3041}\x{30FC}", "\x{30A1}\x{30FC}"));
354ok($objJa->lt("\x{3042}\x{30FC}", "\x{30A2}\x{30FC}"));
355ok($objJa->lt("\x{304B}\x{30FC}", "\x{30AB}\x{30FC}"));
356ok($objJa->lt("\x{304C}\x{30FC}", "\x{30AC}\x{30FC}"));
357ok($objJa->lt("\x{3055}\x{30FC}", "\x{30B5}\x{30FC}"));
358ok($objJa->lt("\x{3056}\x{30FC}", "\x{30B6}\x{30FC}"));
359ok($objJa->lt("\x{305F}\x{30FC}", "\x{30BF}\x{30FC}"));
360ok($objJa->lt("\x{3060}\x{30FC}", "\x{30C0}\x{30FC}"));
361ok($objJa->lt("\x{306A}\x{30FC}", "\x{30CA}\x{30FC}"));
362ok($objJa->lt("\x{306F}\x{30FC}", "\x{30CF}\x{30FC}"));
363ok($objJa->lt("\x{3070}\x{30FC}", "\x{30D0}\x{30FC}"));
364ok($objJa->lt("\x{3071}\x{30FC}", "\x{30D1}\x{30FC}"));
365ok($objJa->lt("\x{307E}\x{30FC}", "\x{30DE}\x{30FC}"));
366ok($objJa->lt("\x{3083}\x{30FC}", "\x{30E3}\x{30FC}"));
367ok($objJa->lt("\x{3084}\x{30FC}", "\x{30E4}\x{30FC}"));
368ok($objJa->lt("\x{3089}\x{30FC}", "\x{30E9}\x{30FC}"));
369ok($objJa->lt("\x{308E}\x{30FC}", "\x{30EE}\x{30FC}"));
370ok($objJa->lt("\x{308F}\x{30FC}", "\x{30EF}\x{30FC}"));
371ok($objJa->lt("\x{3095}\x{30FC}", "\x{30F5}\x{30FC}"));
372ok($objJa->lt("\x{3043}\x{30FC}", "\x{30A3}\x{30FC}"));
373ok($objJa->lt("\x{3044}\x{30FC}", "\x{30A4}\x{30FC}"));
374ok($objJa->lt("\x{304D}\x{30FC}", "\x{30AD}\x{30FC}"));
375ok($objJa->lt("\x{304E}\x{30FC}", "\x{30AE}\x{30FC}"));
376ok($objJa->lt("\x{3057}\x{30FC}", "\x{30B7}\x{30FC}"));
377ok($objJa->lt("\x{3058}\x{30FC}", "\x{30B8}\x{30FC}"));
378ok($objJa->lt("\x{3061}\x{30FC}", "\x{30C1}\x{30FC}"));
379ok($objJa->lt("\x{3062}\x{30FC}", "\x{30C2}\x{30FC}"));
380ok($objJa->lt("\x{306B}\x{30FC}", "\x{30CB}\x{30FC}"));
381ok($objJa->lt("\x{3072}\x{30FC}", "\x{30D2}\x{30FC}"));
382ok($objJa->lt("\x{3073}\x{30FC}", "\x{30D3}\x{30FC}"));
383ok($objJa->lt("\x{3074}\x{30FC}", "\x{30D4}\x{30FC}"));
384ok($objJa->lt("\x{307F}\x{30FC}", "\x{30DF}\x{30FC}"));
385ok($objJa->lt("\x{308A}\x{30FC}", "\x{30EA}\x{30FC}"));
386ok($objJa->lt("\x{3090}\x{30FC}", "\x{30F0}\x{30FC}"));
387ok($objJa->lt("\x{3045}\x{30FC}", "\x{30A5}\x{30FC}"));
388ok($objJa->lt("\x{3046}\x{30FC}", "\x{30A6}\x{30FC}"));
389ok($objJa->lt("\x{304F}\x{30FC}", "\x{30AF}\x{30FC}"));
390ok($objJa->lt("\x{3050}\x{30FC}", "\x{30B0}\x{30FC}"));
391ok($objJa->lt("\x{3059}\x{30FC}", "\x{30B9}\x{30FC}"));
392ok($objJa->lt("\x{305A}\x{30FC}", "\x{30BA}\x{30FC}"));
393ok($objJa->lt("\x{3063}\x{30FC}", "\x{30C3}\x{30FC}"));
394ok($objJa->lt("\x{3064}\x{30FC}", "\x{30C4}\x{30FC}"));
395ok($objJa->lt("\x{3065}\x{30FC}", "\x{30C5}\x{30FC}"));
396ok($objJa->lt("\x{306C}\x{30FC}", "\x{30CC}\x{30FC}"));
397ok($objJa->lt("\x{3075}\x{30FC}", "\x{30D5}\x{30FC}"));
398ok($objJa->lt("\x{3076}\x{30FC}", "\x{30D6}\x{30FC}"));
399ok($objJa->lt("\x{3077}\x{30FC}", "\x{30D7}\x{30FC}"));
400ok($objJa->lt("\x{3080}\x{30FC}", "\x{30E0}\x{30FC}"));
401ok($objJa->lt("\x{3085}\x{30FC}", "\x{30E5}\x{30FC}"));
402ok($objJa->lt("\x{3086}\x{30FC}", "\x{30E6}\x{30FC}"));
403ok($objJa->lt("\x{308B}\x{30FC}", "\x{30EB}\x{30FC}"));
404ok($objJa->lt("\x{3094}\x{30FC}", "\x{30F4}\x{30FC}"));
405ok($objJa->lt("\x{3047}\x{30FC}", "\x{30A7}\x{30FC}"));
406ok($objJa->lt("\x{3048}\x{30FC}", "\x{30A8}\x{30FC}"));
407ok($objJa->lt("\x{3051}\x{30FC}", "\x{30B1}\x{30FC}"));
408ok($objJa->lt("\x{3052}\x{30FC}", "\x{30B2}\x{30FC}"));
409ok($objJa->lt("\x{305B}\x{30FC}", "\x{30BB}\x{30FC}"));
410ok($objJa->lt("\x{305C}\x{30FC}", "\x{30BC}\x{30FC}"));
411ok($objJa->lt("\x{3066}\x{30FC}", "\x{30C6}\x{30FC}"));
412ok($objJa->lt("\x{3067}\x{30FC}", "\x{30C7}\x{30FC}"));
413ok($objJa->lt("\x{306D}\x{30FC}", "\x{30CD}\x{30FC}"));
414ok($objJa->lt("\x{3078}\x{30FC}", "\x{30D8}\x{30FC}"));
415ok($objJa->lt("\x{3079}\x{30FC}", "\x{30D9}\x{30FC}"));
416ok($objJa->lt("\x{307A}\x{30FC}", "\x{30DA}\x{30FC}"));
417ok($objJa->lt("\x{3081}\x{30FC}", "\x{30E1}\x{30FC}"));
418ok($objJa->lt("\x{308C}\x{30FC}", "\x{30EC}\x{30FC}"));
419ok($objJa->lt("\x{3091}\x{30FC}", "\x{30F1}\x{30FC}"));
420ok($objJa->lt("\x{3096}\x{30FC}", "\x{30F6}\x{30FC}"));
421ok($objJa->lt("\x{3049}\x{30FC}", "\x{30A9}\x{30FC}"));
422ok($objJa->lt("\x{304A}\x{30FC}", "\x{30AA}\x{30FC}"));
423ok($objJa->lt("\x{3053}\x{30FC}", "\x{30B3}\x{30FC}"));
424ok($objJa->lt("\x{3054}\x{30FC}", "\x{30B4}\x{30FC}"));
425ok($objJa->lt("\x{305D}\x{30FC}", "\x{30BD}\x{30FC}"));
426ok($objJa->lt("\x{305E}\x{30FC}", "\x{30BE}\x{30FC}"));
427ok($objJa->lt("\x{3068}\x{30FC}", "\x{30C8}\x{30FC}"));
428ok($objJa->lt("\x{3069}\x{30FC}", "\x{30C9}\x{30FC}"));
429ok($objJa->lt("\x{306E}\x{30FC}", "\x{30CE}\x{30FC}"));
430ok($objJa->lt("\x{307B}\x{30FC}", "\x{30DB}\x{30FC}"));
431ok($objJa->lt("\x{307C}\x{30FC}", "\x{30DC}\x{30FC}"));
432ok($objJa->lt("\x{307D}\x{30FC}", "\x{30DD}\x{30FC}"));
433ok($objJa->lt("\x{3082}\x{30FC}", "\x{30E2}\x{30FC}"));
434ok($objJa->lt("\x{3087}\x{30FC}", "\x{30E7}\x{30FC}"));
435ok($objJa->lt("\x{3088}\x{30FC}", "\x{30E8}\x{30FC}"));
436ok($objJa->lt("\x{308D}\x{30FC}", "\x{30ED}\x{30FC}"));
437ok($objJa->lt("\x{3092}\x{30FC}", "\x{30F2}\x{30FC}"));
438
439# 382
440
441ok($objJa->eq("\x{30A1}\x{30FC}", "\x{FF67}\x{30FC}"));
442ok($objJa->eq("\x{30A1}\x{30FC}", "\x{FF67}\x{FF70}"));
443ok($objJa->eq("\x{30A2}\x{30FC}", "\x{FF71}\x{30FC}"));
444ok($objJa->eq("\x{30A2}\x{30FC}", "\x{FF71}\x{FF70}"));
445ok($objJa->eq("\x{30AB}\x{30FC}", "\x{FF76}\x{30FC}"));
446ok($objJa->eq("\x{30AB}\x{30FC}", "\x{FF76}\x{FF70}"));
447ok($objJa->eq("\x{30AC}\x{30FC}", "\x{30AB}\x{3099}\x{30FC}"));
448ok($objJa->eq("\x{30AC}\x{30FC}", "\x{FF76}\x{FF9E}\x{30FC}"));
449ok($objJa->eq("\x{30AC}\x{30FC}", "\x{FF76}\x{FF9E}\x{FF70}"));
450ok($objJa->eq("\x{304C}\x{30FC}", "\x{304B}\x{3099}\x{30FC}"));
451ok($objJa->eq("\x{30B5}\x{30FC}", "\x{FF7B}\x{30FC}"));
452ok($objJa->eq("\x{30B5}\x{30FC}", "\x{FF7B}\x{FF70}"));
453ok($objJa->eq("\x{30B6}\x{30FC}", "\x{30B5}\x{3099}\x{30FC}"));
454ok($objJa->eq("\x{30B6}\x{30FC}", "\x{FF7B}\x{FF9E}\x{30FC}"));
455ok($objJa->eq("\x{30B6}\x{30FC}", "\x{FF7B}\x{FF9E}\x{FF70}"));
456ok($objJa->eq("\x{3056}\x{30FC}", "\x{3055}\x{3099}\x{30FC}"));
457ok($objJa->eq("\x{30BF}\x{30FC}", "\x{FF80}\x{30FC}"));
458ok($objJa->eq("\x{30BF}\x{30FC}", "\x{FF80}\x{FF70}"));
459ok($objJa->eq("\x{30C0}\x{30FC}", "\x{30BF}\x{3099}\x{30FC}"));
460ok($objJa->eq("\x{30C0}\x{30FC}", "\x{FF80}\x{FF9E}\x{30FC}"));
461ok($objJa->eq("\x{30C0}\x{30FC}", "\x{FF80}\x{FF9E}\x{FF70}"));
462ok($objJa->eq("\x{3060}\x{30FC}", "\x{305F}\x{3099}\x{30FC}"));
463ok($objJa->eq("\x{30CA}\x{30FC}", "\x{FF85}\x{30FC}"));
464ok($objJa->eq("\x{30CA}\x{30FC}", "\x{FF85}\x{FF70}"));
465ok($objJa->eq("\x{30CF}\x{30FC}", "\x{FF8A}\x{30FC}"));
466ok($objJa->eq("\x{30CF}\x{30FC}", "\x{FF8A}\x{FF70}"));
467ok($objJa->eq("\x{30D0}\x{30FC}", "\x{30CF}\x{3099}\x{30FC}"));
468ok($objJa->eq("\x{30D0}\x{30FC}", "\x{FF8A}\x{FF9E}\x{30FC}"));
469ok($objJa->eq("\x{30D0}\x{30FC}", "\x{FF8A}\x{FF9E}\x{FF70}"));
470ok($objJa->eq("\x{3070}\x{30FC}", "\x{306F}\x{3099}\x{30FC}"));
471ok($objJa->eq("\x{30D1}\x{30FC}", "\x{30CF}\x{309A}\x{30FC}"));
472ok($objJa->eq("\x{30D1}\x{30FC}", "\x{FF8A}\x{FF9F}\x{30FC}"));
473ok($objJa->eq("\x{30D1}\x{30FC}", "\x{FF8A}\x{FF9F}\x{FF70}"));
474ok($objJa->eq("\x{3071}\x{30FC}", "\x{306F}\x{309A}\x{30FC}"));
475ok($objJa->eq("\x{30DE}\x{30FC}", "\x{FF8F}\x{30FC}"));
476ok($objJa->eq("\x{30DE}\x{30FC}", "\x{FF8F}\x{FF70}"));
477ok($objJa->eq("\x{30E3}\x{30FC}", "\x{FF6C}\x{30FC}"));
478ok($objJa->eq("\x{30E3}\x{30FC}", "\x{FF6C}\x{FF70}"));
479ok($objJa->eq("\x{30E4}\x{30FC}", "\x{FF94}\x{30FC}"));
480ok($objJa->eq("\x{30E4}\x{30FC}", "\x{FF94}\x{FF70}"));
481ok($objJa->eq("\x{30E9}\x{30FC}", "\x{FF97}\x{30FC}"));
482ok($objJa->eq("\x{30E9}\x{30FC}", "\x{FF97}\x{FF70}"));
483ok($objJa->eq("\x{30EF}\x{30FC}", "\x{FF9C}\x{30FC}"));
484ok($objJa->eq("\x{30EF}\x{30FC}", "\x{FF9C}\x{FF70}"));
485ok($objJa->eq("\x{30F7}\x{30FC}", "\x{30EF}\x{3099}\x{30FC}"));
486ok($objJa->eq("\x{30F7}\x{30FC}", "\x{FF9C}\x{FF9E}\x{30FC}"));
487ok($objJa->eq("\x{30F7}\x{30FC}", "\x{FF9C}\x{FF9E}\x{FF70}"));
488ok($objJa->eq("\x{30A3}\x{30FC}", "\x{FF68}\x{30FC}"));
489ok($objJa->eq("\x{30A3}\x{30FC}", "\x{FF68}\x{FF70}"));
490ok($objJa->eq("\x{30A4}\x{30FC}", "\x{FF72}\x{30FC}"));
491ok($objJa->eq("\x{30A4}\x{30FC}", "\x{FF72}\x{FF70}"));
492ok($objJa->eq("\x{30AD}\x{30FC}", "\x{FF77}\x{30FC}"));
493ok($objJa->eq("\x{30AD}\x{30FC}", "\x{FF77}\x{FF70}"));
494ok($objJa->eq("\x{30AE}\x{30FC}", "\x{30AD}\x{3099}\x{30FC}"));
495ok($objJa->eq("\x{30AE}\x{30FC}", "\x{FF77}\x{FF9E}\x{30FC}"));
496ok($objJa->eq("\x{30AE}\x{30FC}", "\x{FF77}\x{FF9E}\x{FF70}"));
497ok($objJa->eq("\x{304E}\x{30FC}", "\x{304D}\x{3099}\x{30FC}"));
498ok($objJa->eq("\x{30B7}\x{30FC}", "\x{FF7C}\x{30FC}"));
499ok($objJa->eq("\x{30B7}\x{30FC}", "\x{FF7C}\x{FF70}"));
500ok($objJa->eq("\x{30B8}\x{30FC}", "\x{30B7}\x{3099}\x{30FC}"));
501ok($objJa->eq("\x{30B8}\x{30FC}", "\x{FF7C}\x{FF9E}\x{30FC}"));
502ok($objJa->eq("\x{30B8}\x{30FC}", "\x{FF7C}\x{FF9E}\x{FF70}"));
503ok($objJa->eq("\x{3058}\x{30FC}", "\x{3057}\x{3099}\x{30FC}"));
504ok($objJa->eq("\x{30C1}\x{30FC}", "\x{FF81}\x{30FC}"));
505ok($objJa->eq("\x{30C1}\x{30FC}", "\x{FF81}\x{FF70}"));
506ok($objJa->eq("\x{30C2}\x{30FC}", "\x{30C1}\x{3099}\x{30FC}"));
507ok($objJa->eq("\x{30C2}\x{30FC}", "\x{FF81}\x{FF9E}\x{30FC}"));
508ok($objJa->eq("\x{30C2}\x{30FC}", "\x{FF81}\x{FF9E}\x{FF70}"));
509ok($objJa->eq("\x{3062}\x{30FC}", "\x{3061}\x{3099}\x{30FC}"));
510ok($objJa->eq("\x{30CB}\x{30FC}", "\x{FF86}\x{30FC}"));
511ok($objJa->eq("\x{30CB}\x{30FC}", "\x{FF86}\x{FF70}"));
512ok($objJa->eq("\x{30D2}\x{30FC}", "\x{FF8B}\x{30FC}"));
513ok($objJa->eq("\x{30D2}\x{30FC}", "\x{FF8B}\x{FF70}"));
514ok($objJa->eq("\x{30D3}\x{30FC}", "\x{30D2}\x{3099}\x{30FC}"));
515ok($objJa->eq("\x{30D3}\x{30FC}", "\x{FF8B}\x{FF9E}\x{30FC}"));
516ok($objJa->eq("\x{30D3}\x{30FC}", "\x{FF8B}\x{FF9E}\x{FF70}"));
517ok($objJa->eq("\x{3073}\x{30FC}", "\x{3072}\x{3099}\x{30FC}"));
518ok($objJa->eq("\x{30D4}\x{30FC}", "\x{30D2}\x{309A}\x{30FC}"));
519ok($objJa->eq("\x{30D4}\x{30FC}", "\x{FF8B}\x{FF9F}\x{30FC}"));
520ok($objJa->eq("\x{30D4}\x{30FC}", "\x{FF8B}\x{FF9F}\x{FF70}"));
521ok($objJa->eq("\x{3074}\x{30FC}", "\x{3072}\x{309A}\x{30FC}"));
522ok($objJa->eq("\x{30DF}\x{30FC}", "\x{FF90}\x{30FC}"));
523ok($objJa->eq("\x{30DF}\x{30FC}", "\x{FF90}\x{FF70}"));
524ok($objJa->eq("\x{30EA}\x{30FC}", "\x{FF98}\x{30FC}"));
525ok($objJa->eq("\x{30EA}\x{30FC}", "\x{FF98}\x{FF70}"));
526ok($objJa->eq("\x{30F8}\x{30FC}", "\x{30F0}\x{3099}\x{30FC}"));
527ok($objJa->eq("\x{30A5}\x{30FC}", "\x{FF69}\x{30FC}"));
528ok($objJa->eq("\x{30A5}\x{30FC}", "\x{FF69}\x{FF70}"));
529ok($objJa->eq("\x{30A6}\x{30FC}", "\x{FF73}\x{30FC}"));
530ok($objJa->eq("\x{30A6}\x{30FC}", "\x{FF73}\x{FF70}"));
531ok($objJa->eq("\x{30AF}\x{30FC}", "\x{FF78}\x{30FC}"));
532ok($objJa->eq("\x{30AF}\x{30FC}", "\x{FF78}\x{FF70}"));
533ok($objJa->eq("\x{30B0}\x{30FC}", "\x{30AF}\x{3099}\x{30FC}"));
534ok($objJa->eq("\x{30B0}\x{30FC}", "\x{FF78}\x{FF9E}\x{30FC}"));
535ok($objJa->eq("\x{30B0}\x{30FC}", "\x{FF78}\x{FF9E}\x{FF70}"));
536ok($objJa->eq("\x{3050}\x{30FC}", "\x{304F}\x{3099}\x{30FC}"));
537ok($objJa->eq("\x{30B9}\x{30FC}", "\x{FF7D}\x{30FC}"));
538ok($objJa->eq("\x{30B9}\x{30FC}", "\x{FF7D}\x{FF70}"));
539ok($objJa->eq("\x{30BA}\x{30FC}", "\x{30B9}\x{3099}\x{30FC}"));
540ok($objJa->eq("\x{30BA}\x{30FC}", "\x{FF7D}\x{FF9E}\x{30FC}"));
541ok($objJa->eq("\x{30BA}\x{30FC}", "\x{FF7D}\x{FF9E}\x{FF70}"));
542ok($objJa->eq("\x{305A}\x{30FC}", "\x{3059}\x{3099}\x{30FC}"));
543ok($objJa->eq("\x{30C3}\x{30FC}", "\x{FF6F}\x{30FC}"));
544ok($objJa->eq("\x{30C3}\x{30FC}", "\x{FF6F}\x{FF70}"));
545ok($objJa->eq("\x{30C4}\x{30FC}", "\x{FF82}\x{30FC}"));
546ok($objJa->eq("\x{30C4}\x{30FC}", "\x{FF82}\x{FF70}"));
547ok($objJa->eq("\x{30C5}\x{30FC}", "\x{30C4}\x{3099}\x{30FC}"));
548ok($objJa->eq("\x{30C5}\x{30FC}", "\x{FF82}\x{FF9E}\x{30FC}"));
549ok($objJa->eq("\x{30C5}\x{30FC}", "\x{FF82}\x{FF9E}\x{FF70}"));
550ok($objJa->eq("\x{3065}\x{30FC}", "\x{3064}\x{3099}\x{30FC}"));
551ok($objJa->eq("\x{30CC}\x{30FC}", "\x{FF87}\x{30FC}"));
552ok($objJa->eq("\x{30CC}\x{30FC}", "\x{FF87}\x{FF70}"));
553ok($objJa->eq("\x{30D5}\x{30FC}", "\x{FF8C}\x{30FC}"));
554ok($objJa->eq("\x{30D5}\x{30FC}", "\x{FF8C}\x{FF70}"));
555ok($objJa->eq("\x{30D6}\x{30FC}", "\x{30D5}\x{3099}\x{30FC}"));
556ok($objJa->eq("\x{30D6}\x{30FC}", "\x{FF8C}\x{FF9E}\x{30FC}"));
557ok($objJa->eq("\x{30D6}\x{30FC}", "\x{FF8C}\x{FF9E}\x{FF70}"));
558ok($objJa->eq("\x{3076}\x{30FC}", "\x{3075}\x{3099}\x{30FC}"));
559ok($objJa->eq("\x{30D7}\x{30FC}", "\x{30D5}\x{309A}\x{30FC}"));
560ok($objJa->eq("\x{30D7}\x{30FC}", "\x{FF8C}\x{FF9F}\x{30FC}"));
561ok($objJa->eq("\x{30D7}\x{30FC}", "\x{FF8C}\x{FF9F}\x{FF70}"));
562ok($objJa->eq("\x{3077}\x{30FC}", "\x{3075}\x{309A}\x{30FC}"));
563ok($objJa->eq("\x{30E0}\x{30FC}", "\x{FF91}\x{30FC}"));
564ok($objJa->eq("\x{30E0}\x{30FC}", "\x{FF91}\x{FF70}"));
565ok($objJa->eq("\x{30E5}\x{30FC}", "\x{FF6D}\x{30FC}"));
566ok($objJa->eq("\x{30E5}\x{30FC}", "\x{FF6D}\x{FF70}"));
567ok($objJa->eq("\x{30E6}\x{30FC}", "\x{FF95}\x{30FC}"));
568ok($objJa->eq("\x{30E6}\x{30FC}", "\x{FF95}\x{FF70}"));
569ok($objJa->eq("\x{30EB}\x{30FC}", "\x{FF99}\x{30FC}"));
570ok($objJa->eq("\x{30EB}\x{30FC}", "\x{FF99}\x{FF70}"));
571ok($objJa->eq("\x{30F4}\x{30FC}", "\x{30A6}\x{3099}\x{30FC}"));
572ok($objJa->eq("\x{30F4}\x{30FC}", "\x{FF73}\x{FF9E}\x{30FC}"));
573ok($objJa->eq("\x{30F4}\x{30FC}", "\x{FF73}\x{FF9E}\x{FF70}"));
574ok($objJa->eq("\x{3094}\x{30FC}", "\x{3046}\x{3099}\x{30FC}"));
575ok($objJa->eq("\x{30A7}\x{30FC}", "\x{FF6A}\x{30FC}"));
576ok($objJa->eq("\x{30A7}\x{30FC}", "\x{FF6A}\x{FF70}"));
577ok($objJa->eq("\x{30A8}\x{30FC}", "\x{FF74}\x{30FC}"));
578ok($objJa->eq("\x{30A8}\x{30FC}", "\x{FF74}\x{FF70}"));
579ok($objJa->eq("\x{30B1}\x{30FC}", "\x{FF79}\x{30FC}"));
580ok($objJa->eq("\x{30B1}\x{30FC}", "\x{FF79}\x{FF70}"));
581ok($objJa->eq("\x{30B2}\x{30FC}", "\x{30B1}\x{3099}\x{30FC}"));
582ok($objJa->eq("\x{30B2}\x{30FC}", "\x{FF79}\x{FF9E}\x{30FC}"));
583ok($objJa->eq("\x{30B2}\x{30FC}", "\x{FF79}\x{FF9E}\x{FF70}"));
584ok($objJa->eq("\x{3052}\x{30FC}", "\x{3051}\x{3099}\x{30FC}"));
585ok($objJa->eq("\x{30BB}\x{30FC}", "\x{FF7E}\x{30FC}"));
586ok($objJa->eq("\x{30BB}\x{30FC}", "\x{FF7E}\x{FF70}"));
587ok($objJa->eq("\x{30BC}\x{30FC}", "\x{30BB}\x{3099}\x{30FC}"));
588ok($objJa->eq("\x{30BC}\x{30FC}", "\x{FF7E}\x{FF9E}\x{30FC}"));
589ok($objJa->eq("\x{30BC}\x{30FC}", "\x{FF7E}\x{FF9E}\x{FF70}"));
590ok($objJa->eq("\x{305C}\x{30FC}", "\x{305B}\x{3099}\x{30FC}"));
591ok($objJa->eq("\x{30C6}\x{30FC}", "\x{FF83}\x{30FC}"));
592ok($objJa->eq("\x{30C6}\x{30FC}", "\x{FF83}\x{FF70}"));
593ok($objJa->eq("\x{30C7}\x{30FC}", "\x{30C6}\x{3099}\x{30FC}"));
594ok($objJa->eq("\x{30C7}\x{30FC}", "\x{FF83}\x{FF9E}\x{30FC}"));
595ok($objJa->eq("\x{30C7}\x{30FC}", "\x{FF83}\x{FF9E}\x{FF70}"));
596ok($objJa->eq("\x{3067}\x{30FC}", "\x{3066}\x{3099}\x{30FC}"));
597ok($objJa->eq("\x{30CD}\x{30FC}", "\x{FF88}\x{30FC}"));
598ok($objJa->eq("\x{30CD}\x{30FC}", "\x{FF88}\x{FF70}"));
599ok($objJa->eq("\x{30D8}\x{30FC}", "\x{FF8D}\x{30FC}"));
600ok($objJa->eq("\x{30D8}\x{30FC}", "\x{FF8D}\x{FF70}"));
601ok($objJa->eq("\x{30D9}\x{30FC}", "\x{30D8}\x{3099}\x{30FC}"));
602ok($objJa->eq("\x{30D9}\x{30FC}", "\x{FF8D}\x{FF9E}\x{30FC}"));
603ok($objJa->eq("\x{30D9}\x{30FC}", "\x{FF8D}\x{FF9E}\x{FF70}"));
604ok($objJa->eq("\x{3079}\x{30FC}", "\x{3078}\x{3099}\x{30FC}"));
605ok($objJa->eq("\x{30DA}\x{30FC}", "\x{30D8}\x{309A}\x{30FC}"));
606ok($objJa->eq("\x{30DA}\x{30FC}", "\x{FF8D}\x{FF9F}\x{30FC}"));
607ok($objJa->eq("\x{30DA}\x{30FC}", "\x{FF8D}\x{FF9F}\x{FF70}"));
608ok($objJa->eq("\x{307A}\x{30FC}", "\x{3078}\x{309A}\x{30FC}"));
609ok($objJa->eq("\x{30E1}\x{30FC}", "\x{FF92}\x{30FC}"));
610ok($objJa->eq("\x{30E1}\x{30FC}", "\x{FF92}\x{FF70}"));
611ok($objJa->eq("\x{30EC}\x{30FC}", "\x{FF9A}\x{30FC}"));
612ok($objJa->eq("\x{30EC}\x{30FC}", "\x{FF9A}\x{FF70}"));
613ok($objJa->eq("\x{30F9}\x{30FC}", "\x{30F1}\x{3099}\x{30FC}"));
614ok($objJa->eq("\x{30A9}\x{30FC}", "\x{FF6B}\x{30FC}"));
615ok($objJa->eq("\x{30A9}\x{30FC}", "\x{FF6B}\x{FF70}"));
616ok($objJa->eq("\x{30AA}\x{30FC}", "\x{FF75}\x{30FC}"));
617ok($objJa->eq("\x{30AA}\x{30FC}", "\x{FF75}\x{FF70}"));
618ok($objJa->eq("\x{30B3}\x{30FC}", "\x{FF7A}\x{30FC}"));
619ok($objJa->eq("\x{30B3}\x{30FC}", "\x{FF7A}\x{FF70}"));
620ok($objJa->eq("\x{30B4}\x{30FC}", "\x{30B3}\x{3099}\x{30FC}"));
621ok($objJa->eq("\x{30B4}\x{30FC}", "\x{FF7A}\x{FF9E}\x{30FC}"));
622ok($objJa->eq("\x{30B4}\x{30FC}", "\x{FF7A}\x{FF9E}\x{FF70}"));
623ok($objJa->eq("\x{3054}\x{30FC}", "\x{3053}\x{3099}\x{30FC}"));
624ok($objJa->eq("\x{30BD}\x{30FC}", "\x{FF7F}\x{30FC}"));
625ok($objJa->eq("\x{30BD}\x{30FC}", "\x{FF7F}\x{FF70}"));
626ok($objJa->eq("\x{30BE}\x{30FC}", "\x{30BD}\x{3099}\x{30FC}"));
627ok($objJa->eq("\x{30BE}\x{30FC}", "\x{FF7F}\x{FF9E}\x{30FC}"));
628ok($objJa->eq("\x{30BE}\x{30FC}", "\x{FF7F}\x{FF9E}\x{FF70}"));
629ok($objJa->eq("\x{305E}\x{30FC}", "\x{305D}\x{3099}\x{30FC}"));
630ok($objJa->eq("\x{30C8}\x{30FC}", "\x{FF84}\x{30FC}"));
631ok($objJa->eq("\x{30C8}\x{30FC}", "\x{FF84}\x{FF70}"));
632ok($objJa->eq("\x{30C9}\x{30FC}", "\x{30C8}\x{3099}\x{30FC}"));
633ok($objJa->eq("\x{30C9}\x{30FC}", "\x{FF84}\x{FF9E}\x{30FC}"));
634ok($objJa->eq("\x{30C9}\x{30FC}", "\x{FF84}\x{FF9E}\x{FF70}"));
635ok($objJa->eq("\x{3069}\x{30FC}", "\x{3068}\x{3099}\x{30FC}"));
636ok($objJa->eq("\x{30CE}\x{30FC}", "\x{FF89}\x{30FC}"));
637ok($objJa->eq("\x{30CE}\x{30FC}", "\x{FF89}\x{FF70}"));
638ok($objJa->eq("\x{30DB}\x{30FC}", "\x{FF8E}\x{30FC}"));
639ok($objJa->eq("\x{30DB}\x{30FC}", "\x{FF8E}\x{FF70}"));
640ok($objJa->eq("\x{30DC}\x{30FC}", "\x{30DB}\x{3099}\x{30FC}"));
641ok($objJa->eq("\x{30DC}\x{30FC}", "\x{FF8E}\x{FF9E}\x{30FC}"));
642ok($objJa->eq("\x{30DC}\x{30FC}", "\x{FF8E}\x{FF9E}\x{FF70}"));
643ok($objJa->eq("\x{307C}\x{30FC}", "\x{307B}\x{3099}\x{30FC}"));
644ok($objJa->eq("\x{30DD}\x{30FC}", "\x{30DB}\x{309A}\x{30FC}"));
645ok($objJa->eq("\x{30DD}\x{30FC}", "\x{FF8E}\x{FF9F}\x{30FC}"));
646ok($objJa->eq("\x{30DD}\x{30FC}", "\x{FF8E}\x{FF9F}\x{FF70}"));
647ok($objJa->eq("\x{307D}\x{30FC}", "\x{307B}\x{309A}\x{30FC}"));
648ok($objJa->eq("\x{30E2}\x{30FC}", "\x{FF93}\x{30FC}"));
649ok($objJa->eq("\x{30E2}\x{30FC}", "\x{FF93}\x{FF70}"));
650ok($objJa->eq("\x{30E7}\x{30FC}", "\x{FF6E}\x{30FC}"));
651ok($objJa->eq("\x{30E7}\x{30FC}", "\x{FF6E}\x{FF70}"));
652ok($objJa->eq("\x{30E8}\x{30FC}", "\x{FF96}\x{30FC}"));
653ok($objJa->eq("\x{30E8}\x{30FC}", "\x{FF96}\x{FF70}"));
654ok($objJa->eq("\x{30ED}\x{30FC}", "\x{FF9B}\x{30FC}"));
655ok($objJa->eq("\x{30ED}\x{30FC}", "\x{FF9B}\x{FF70}"));
656ok($objJa->eq("\x{30F2}\x{30FC}", "\x{FF66}\x{30FC}"));
657ok($objJa->eq("\x{30F2}\x{30FC}", "\x{FF66}\x{FF70}"));
658ok($objJa->eq("\x{30FA}\x{30FC}", "\x{30F2}\x{3099}\x{30FC}"));
659ok($objJa->eq("\x{30FA}\x{30FC}", "\x{FF66}\x{FF9E}\x{30FC}"));
660ok($objJa->eq("\x{30FA}\x{30FC}", "\x{FF66}\x{FF9E}\x{FF70}"));
661
662# 602
663