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..759\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{30FD}", "\x{30A1}\x{30A2}"));
44ok($objJa->eq("\x{30A2}\x{30FD}", "\x{30A2}\x{30A2}"));
45ok($objJa->eq("\x{30A3}\x{30FD}", "\x{30A3}\x{30A4}"));
46ok($objJa->eq("\x{30A4}\x{30FD}", "\x{30A4}\x{30A4}"));
47ok($objJa->eq("\x{30A5}\x{30FD}", "\x{30A5}\x{30A6}"));
48ok($objJa->eq("\x{30A6}\x{30FD}", "\x{30A6}\x{30A6}"));
49ok($objJa->eq("\x{30A7}\x{30FD}", "\x{30A7}\x{30A8}"));
50ok($objJa->eq("\x{30A8}\x{30FD}", "\x{30A8}\x{30A8}"));
51ok($objJa->eq("\x{30A9}\x{30FD}", "\x{30A9}\x{30AA}"));
52ok($objJa->eq("\x{30AA}\x{30FD}", "\x{30AA}\x{30AA}"));
53ok($objJa->eq("\x{30AB}\x{30FD}", "\x{30AB}\x{30AB}"));
54ok($objJa->eq("\x{30AC}\x{30FD}", "\x{30AC}\x{30AB}"));
55ok($objJa->eq("\x{30AD}\x{30FD}", "\x{30AD}\x{30AD}"));
56ok($objJa->eq("\x{30AE}\x{30FD}", "\x{30AE}\x{30AD}"));
57ok($objJa->eq("\x{30AF}\x{30FD}", "\x{30AF}\x{30AF}"));
58ok($objJa->eq("\x{30B0}\x{30FD}", "\x{30B0}\x{30AF}"));
59ok($objJa->eq("\x{30B1}\x{30FD}", "\x{30B1}\x{30B1}"));
60ok($objJa->eq("\x{30B2}\x{30FD}", "\x{30B2}\x{30B1}"));
61ok($objJa->eq("\x{30B3}\x{30FD}", "\x{30B3}\x{30B3}"));
62ok($objJa->eq("\x{30B4}\x{30FD}", "\x{30B4}\x{30B3}"));
63ok($objJa->eq("\x{30B5}\x{30FD}", "\x{30B5}\x{30B5}"));
64ok($objJa->eq("\x{30B6}\x{30FD}", "\x{30B6}\x{30B5}"));
65ok($objJa->eq("\x{30B7}\x{30FD}", "\x{30B7}\x{30B7}"));
66ok($objJa->eq("\x{30B8}\x{30FD}", "\x{30B8}\x{30B7}"));
67ok($objJa->eq("\x{30B9}\x{30FD}", "\x{30B9}\x{30B9}"));
68ok($objJa->eq("\x{30BA}\x{30FD}", "\x{30BA}\x{30B9}"));
69ok($objJa->eq("\x{30BB}\x{30FD}", "\x{30BB}\x{30BB}"));
70ok($objJa->eq("\x{30BC}\x{30FD}", "\x{30BC}\x{30BB}"));
71ok($objJa->eq("\x{30BD}\x{30FD}", "\x{30BD}\x{30BD}"));
72ok($objJa->eq("\x{30BE}\x{30FD}", "\x{30BE}\x{30BD}"));
73ok($objJa->eq("\x{30BF}\x{30FD}", "\x{30BF}\x{30BF}"));
74ok($objJa->eq("\x{30C0}\x{30FD}", "\x{30C0}\x{30BF}"));
75ok($objJa->eq("\x{30C1}\x{30FD}", "\x{30C1}\x{30C1}"));
76ok($objJa->eq("\x{30C2}\x{30FD}", "\x{30C2}\x{30C1}"));
77ok($objJa->eq("\x{30C3}\x{30FD}", "\x{30C3}\x{30C4}"));
78ok($objJa->eq("\x{30C4}\x{30FD}", "\x{30C4}\x{30C4}"));
79ok($objJa->eq("\x{30C5}\x{30FD}", "\x{30C5}\x{30C4}"));
80ok($objJa->eq("\x{30C6}\x{30FD}", "\x{30C6}\x{30C6}"));
81ok($objJa->eq("\x{30C7}\x{30FD}", "\x{30C7}\x{30C6}"));
82ok($objJa->eq("\x{30C8}\x{30FD}", "\x{30C8}\x{30C8}"));
83ok($objJa->eq("\x{30C9}\x{30FD}", "\x{30C9}\x{30C8}"));
84ok($objJa->eq("\x{30CA}\x{30FD}", "\x{30CA}\x{30CA}"));
85ok($objJa->eq("\x{30CB}\x{30FD}", "\x{30CB}\x{30CB}"));
86ok($objJa->eq("\x{30CC}\x{30FD}", "\x{30CC}\x{30CC}"));
87ok($objJa->eq("\x{30CD}\x{30FD}", "\x{30CD}\x{30CD}"));
88ok($objJa->eq("\x{30CE}\x{30FD}", "\x{30CE}\x{30CE}"));
89ok($objJa->eq("\x{30CF}\x{30FD}", "\x{30CF}\x{30CF}"));
90ok($objJa->eq("\x{30D0}\x{30FD}", "\x{30D0}\x{30CF}"));
91ok($objJa->eq("\x{30D1}\x{30FD}", "\x{30D1}\x{30CF}"));
92ok($objJa->eq("\x{30D2}\x{30FD}", "\x{30D2}\x{30D2}"));
93ok($objJa->eq("\x{30D3}\x{30FD}", "\x{30D3}\x{30D2}"));
94ok($objJa->eq("\x{30D4}\x{30FD}", "\x{30D4}\x{30D2}"));
95ok($objJa->eq("\x{30D5}\x{30FD}", "\x{30D5}\x{30D5}"));
96ok($objJa->eq("\x{30D6}\x{30FD}", "\x{30D6}\x{30D5}"));
97ok($objJa->eq("\x{30D7}\x{30FD}", "\x{30D7}\x{30D5}"));
98ok($objJa->eq("\x{30D8}\x{30FD}", "\x{30D8}\x{30D8}"));
99ok($objJa->eq("\x{30D9}\x{30FD}", "\x{30D9}\x{30D8}"));
100ok($objJa->eq("\x{30DA}\x{30FD}", "\x{30DA}\x{30D8}"));
101ok($objJa->eq("\x{30DB}\x{30FD}", "\x{30DB}\x{30DB}"));
102ok($objJa->eq("\x{30DC}\x{30FD}", "\x{30DC}\x{30DB}"));
103ok($objJa->eq("\x{30DD}\x{30FD}", "\x{30DD}\x{30DB}"));
104ok($objJa->eq("\x{30DE}\x{30FD}", "\x{30DE}\x{30DE}"));
105ok($objJa->eq("\x{30DF}\x{30FD}", "\x{30DF}\x{30DF}"));
106ok($objJa->eq("\x{30E0}\x{30FD}", "\x{30E0}\x{30E0}"));
107ok($objJa->eq("\x{30E1}\x{30FD}", "\x{30E1}\x{30E1}"));
108ok($objJa->eq("\x{30E2}\x{30FD}", "\x{30E2}\x{30E2}"));
109ok($objJa->eq("\x{30E3}\x{30FD}", "\x{30E3}\x{30E4}"));
110ok($objJa->eq("\x{30E4}\x{30FD}", "\x{30E4}\x{30E4}"));
111ok($objJa->eq("\x{30E5}\x{30FD}", "\x{30E5}\x{30E6}"));
112ok($objJa->eq("\x{30E6}\x{30FD}", "\x{30E6}\x{30E6}"));
113ok($objJa->eq("\x{30E7}\x{30FD}", "\x{30E7}\x{30E8}"));
114ok($objJa->eq("\x{30E8}\x{30FD}", "\x{30E8}\x{30E8}"));
115ok($objJa->eq("\x{30E9}\x{30FD}", "\x{30E9}\x{30E9}"));
116ok($objJa->eq("\x{30EA}\x{30FD}", "\x{30EA}\x{30EA}"));
117ok($objJa->eq("\x{30EB}\x{30FD}", "\x{30EB}\x{30EB}"));
118ok($objJa->eq("\x{30EC}\x{30FD}", "\x{30EC}\x{30EC}"));
119ok($objJa->eq("\x{30ED}\x{30FD}", "\x{30ED}\x{30ED}"));
120ok($objJa->eq("\x{30EE}\x{30FD}", "\x{30EE}\x{30EF}"));
121ok($objJa->eq("\x{30EF}\x{30FD}", "\x{30EF}\x{30EF}"));
122ok($objJa->eq("\x{30F0}\x{30FD}", "\x{30F0}\x{30F0}"));
123ok($objJa->eq("\x{30F1}\x{30FD}", "\x{30F1}\x{30F1}"));
124ok($objJa->eq("\x{30F2}\x{30FD}", "\x{30F2}\x{30F2}"));
125ok($objJa->eq("\x{30F3}\x{30FD}", "\x{30F3}\x{30F3}"));
126ok($objJa->eq("\x{30F4}\x{30FD}", "\x{30F4}\x{30A6}"));
127ok($objJa->eq("\x{30F5}\x{30FD}", "\x{30F5}\x{30AB}"));
128ok($objJa->eq("\x{30F6}\x{30FD}", "\x{30F6}\x{30B1}"));
129ok($objJa->eq("\x{30F7}\x{30FD}", "\x{30F7}\x{30EF}"));
130ok($objJa->eq("\x{30F8}\x{30FD}", "\x{30F8}\x{30F0}"));
131ok($objJa->eq("\x{30F9}\x{30FD}", "\x{30F9}\x{30F1}"));
132ok($objJa->eq("\x{30FA}\x{30FD}", "\x{30FA}\x{30F2}"));
133ok($objJa->eq("\x{31F0}\x{30FD}", "\x{31F0}\x{30AF}"));
134ok($objJa->eq("\x{31F1}\x{30FD}", "\x{31F1}\x{30B7}"));
135ok($objJa->eq("\x{31F2}\x{30FD}", "\x{31F2}\x{30B9}"));
136ok($objJa->eq("\x{31F3}\x{30FD}", "\x{31F3}\x{30C8}"));
137ok($objJa->eq("\x{31F4}\x{30FD}", "\x{31F4}\x{30CC}"));
138ok($objJa->eq("\x{31F5}\x{30FD}", "\x{31F5}\x{30CF}"));
139ok($objJa->eq("\x{31F6}\x{30FD}", "\x{31F6}\x{30D2}"));
140ok($objJa->eq("\x{31F7}\x{30FD}", "\x{31F7}\x{30D5}"));
141ok($objJa->eq("\x{31F8}\x{30FD}", "\x{31F8}\x{30D8}"));
142ok($objJa->eq("\x{31F9}\x{30FD}", "\x{31F9}\x{30DB}"));
143ok($objJa->eq("\x{31FA}\x{30FD}", "\x{31FA}\x{30E0}"));
144ok($objJa->eq("\x{31FB}\x{30FD}", "\x{31FB}\x{30E9}"));
145ok($objJa->eq("\x{31FC}\x{30FD}", "\x{31FC}\x{30EA}"));
146ok($objJa->eq("\x{31FD}\x{30FD}", "\x{31FD}\x{30EB}"));
147ok($objJa->eq("\x{31FE}\x{30FD}", "\x{31FE}\x{30EC}"));
148ok($objJa->eq("\x{31FF}\x{30FD}", "\x{31FF}\x{30ED}"));
149
150# 108
151
152$objJa->change(level => 3);
153
154ok($objJa->lt("\x{30A1}\x{30FD}", "\x{30A1}\x{30A2}"));
155ok($objJa->lt("\x{30A2}\x{30FD}", "\x{30A2}\x{30A2}"));
156ok($objJa->lt("\x{30A3}\x{30FD}", "\x{30A3}\x{30A4}"));
157ok($objJa->lt("\x{30A4}\x{30FD}", "\x{30A4}\x{30A4}"));
158ok($objJa->lt("\x{30A5}\x{30FD}", "\x{30A5}\x{30A6}"));
159ok($objJa->lt("\x{30A6}\x{30FD}", "\x{30A6}\x{30A6}"));
160ok($objJa->lt("\x{30A7}\x{30FD}", "\x{30A7}\x{30A8}"));
161ok($objJa->lt("\x{30A8}\x{30FD}", "\x{30A8}\x{30A8}"));
162ok($objJa->lt("\x{30A9}\x{30FD}", "\x{30A9}\x{30AA}"));
163ok($objJa->lt("\x{30AA}\x{30FD}", "\x{30AA}\x{30AA}"));
164ok($objJa->lt("\x{30AB}\x{30FD}", "\x{30AB}\x{30AB}"));
165ok($objJa->lt("\x{30AC}\x{30FD}", "\x{30AC}\x{30AB}"));
166ok($objJa->lt("\x{30AD}\x{30FD}", "\x{30AD}\x{30AD}"));
167ok($objJa->lt("\x{30AE}\x{30FD}", "\x{30AE}\x{30AD}"));
168ok($objJa->lt("\x{30AF}\x{30FD}", "\x{30AF}\x{30AF}"));
169ok($objJa->lt("\x{30B0}\x{30FD}", "\x{30B0}\x{30AF}"));
170ok($objJa->lt("\x{30B1}\x{30FD}", "\x{30B1}\x{30B1}"));
171ok($objJa->lt("\x{30B2}\x{30FD}", "\x{30B2}\x{30B1}"));
172ok($objJa->lt("\x{30B3}\x{30FD}", "\x{30B3}\x{30B3}"));
173ok($objJa->lt("\x{30B4}\x{30FD}", "\x{30B4}\x{30B3}"));
174ok($objJa->lt("\x{30B5}\x{30FD}", "\x{30B5}\x{30B5}"));
175ok($objJa->lt("\x{30B6}\x{30FD}", "\x{30B6}\x{30B5}"));
176ok($objJa->lt("\x{30B7}\x{30FD}", "\x{30B7}\x{30B7}"));
177ok($objJa->lt("\x{30B8}\x{30FD}", "\x{30B8}\x{30B7}"));
178ok($objJa->lt("\x{30B9}\x{30FD}", "\x{30B9}\x{30B9}"));
179ok($objJa->lt("\x{30BA}\x{30FD}", "\x{30BA}\x{30B9}"));
180ok($objJa->lt("\x{30BB}\x{30FD}", "\x{30BB}\x{30BB}"));
181ok($objJa->lt("\x{30BC}\x{30FD}", "\x{30BC}\x{30BB}"));
182ok($objJa->lt("\x{30BD}\x{30FD}", "\x{30BD}\x{30BD}"));
183ok($objJa->lt("\x{30BE}\x{30FD}", "\x{30BE}\x{30BD}"));
184ok($objJa->lt("\x{30BF}\x{30FD}", "\x{30BF}\x{30BF}"));
185ok($objJa->lt("\x{30C0}\x{30FD}", "\x{30C0}\x{30BF}"));
186ok($objJa->lt("\x{30C1}\x{30FD}", "\x{30C1}\x{30C1}"));
187ok($objJa->lt("\x{30C2}\x{30FD}", "\x{30C2}\x{30C1}"));
188ok($objJa->lt("\x{30C3}\x{30FD}", "\x{30C3}\x{30C4}"));
189ok($objJa->lt("\x{30C4}\x{30FD}", "\x{30C4}\x{30C4}"));
190ok($objJa->lt("\x{30C5}\x{30FD}", "\x{30C5}\x{30C4}"));
191ok($objJa->lt("\x{30C6}\x{30FD}", "\x{30C6}\x{30C6}"));
192ok($objJa->lt("\x{30C7}\x{30FD}", "\x{30C7}\x{30C6}"));
193ok($objJa->lt("\x{30C8}\x{30FD}", "\x{30C8}\x{30C8}"));
194ok($objJa->lt("\x{30C9}\x{30FD}", "\x{30C9}\x{30C8}"));
195ok($objJa->lt("\x{30CA}\x{30FD}", "\x{30CA}\x{30CA}"));
196ok($objJa->lt("\x{30CB}\x{30FD}", "\x{30CB}\x{30CB}"));
197ok($objJa->lt("\x{30CC}\x{30FD}", "\x{30CC}\x{30CC}"));
198ok($objJa->lt("\x{30CD}\x{30FD}", "\x{30CD}\x{30CD}"));
199ok($objJa->lt("\x{30CE}\x{30FD}", "\x{30CE}\x{30CE}"));
200ok($objJa->lt("\x{30CF}\x{30FD}", "\x{30CF}\x{30CF}"));
201ok($objJa->lt("\x{30D0}\x{30FD}", "\x{30D0}\x{30CF}"));
202ok($objJa->lt("\x{30D1}\x{30FD}", "\x{30D1}\x{30CF}"));
203ok($objJa->lt("\x{30D2}\x{30FD}", "\x{30D2}\x{30D2}"));
204ok($objJa->lt("\x{30D3}\x{30FD}", "\x{30D3}\x{30D2}"));
205ok($objJa->lt("\x{30D4}\x{30FD}", "\x{30D4}\x{30D2}"));
206ok($objJa->lt("\x{30D5}\x{30FD}", "\x{30D5}\x{30D5}"));
207ok($objJa->lt("\x{30D6}\x{30FD}", "\x{30D6}\x{30D5}"));
208ok($objJa->lt("\x{30D7}\x{30FD}", "\x{30D7}\x{30D5}"));
209ok($objJa->lt("\x{30D8}\x{30FD}", "\x{30D8}\x{30D8}"));
210ok($objJa->lt("\x{30D9}\x{30FD}", "\x{30D9}\x{30D8}"));
211ok($objJa->lt("\x{30DA}\x{30FD}", "\x{30DA}\x{30D8}"));
212ok($objJa->lt("\x{30DB}\x{30FD}", "\x{30DB}\x{30DB}"));
213ok($objJa->lt("\x{30DC}\x{30FD}", "\x{30DC}\x{30DB}"));
214ok($objJa->lt("\x{30DD}\x{30FD}", "\x{30DD}\x{30DB}"));
215ok($objJa->lt("\x{30DE}\x{30FD}", "\x{30DE}\x{30DE}"));
216ok($objJa->lt("\x{30DF}\x{30FD}", "\x{30DF}\x{30DF}"));
217ok($objJa->lt("\x{30E0}\x{30FD}", "\x{30E0}\x{30E0}"));
218ok($objJa->lt("\x{30E1}\x{30FD}", "\x{30E1}\x{30E1}"));
219ok($objJa->lt("\x{30E2}\x{30FD}", "\x{30E2}\x{30E2}"));
220ok($objJa->lt("\x{30E3}\x{30FD}", "\x{30E3}\x{30E4}"));
221ok($objJa->lt("\x{30E4}\x{30FD}", "\x{30E4}\x{30E4}"));
222ok($objJa->lt("\x{30E5}\x{30FD}", "\x{30E5}\x{30E6}"));
223ok($objJa->lt("\x{30E6}\x{30FD}", "\x{30E6}\x{30E6}"));
224ok($objJa->lt("\x{30E7}\x{30FD}", "\x{30E7}\x{30E8}"));
225ok($objJa->lt("\x{30E8}\x{30FD}", "\x{30E8}\x{30E8}"));
226ok($objJa->lt("\x{30E9}\x{30FD}", "\x{30E9}\x{30E9}"));
227ok($objJa->lt("\x{30EA}\x{30FD}", "\x{30EA}\x{30EA}"));
228ok($objJa->lt("\x{30EB}\x{30FD}", "\x{30EB}\x{30EB}"));
229ok($objJa->lt("\x{30EC}\x{30FD}", "\x{30EC}\x{30EC}"));
230ok($objJa->lt("\x{30ED}\x{30FD}", "\x{30ED}\x{30ED}"));
231ok($objJa->lt("\x{30EE}\x{30FD}", "\x{30EE}\x{30EF}"));
232ok($objJa->lt("\x{30EF}\x{30FD}", "\x{30EF}\x{30EF}"));
233ok($objJa->lt("\x{30F0}\x{30FD}", "\x{30F0}\x{30F0}"));
234ok($objJa->lt("\x{30F1}\x{30FD}", "\x{30F1}\x{30F1}"));
235ok($objJa->lt("\x{30F2}\x{30FD}", "\x{30F2}\x{30F2}"));
236ok($objJa->lt("\x{30F3}\x{30FD}", "\x{30F3}\x{30F3}"));
237ok($objJa->lt("\x{30F4}\x{30FD}", "\x{30F4}\x{30A6}"));
238ok($objJa->lt("\x{30F5}\x{30FD}", "\x{30F5}\x{30AB}"));
239ok($objJa->lt("\x{30F6}\x{30FD}", "\x{30F6}\x{30B1}"));
240ok($objJa->lt("\x{30F7}\x{30FD}", "\x{30F7}\x{30EF}"));
241ok($objJa->lt("\x{30F8}\x{30FD}", "\x{30F8}\x{30F0}"));
242ok($objJa->lt("\x{30F9}\x{30FD}", "\x{30F9}\x{30F1}"));
243ok($objJa->lt("\x{30FA}\x{30FD}", "\x{30FA}\x{30F2}"));
244ok($objJa->lt("\x{31F0}\x{30FD}", "\x{31F0}\x{30AF}"));
245ok($objJa->lt("\x{31F1}\x{30FD}", "\x{31F1}\x{30B7}"));
246ok($objJa->lt("\x{31F2}\x{30FD}", "\x{31F2}\x{30B9}"));
247ok($objJa->lt("\x{31F3}\x{30FD}", "\x{31F3}\x{30C8}"));
248ok($objJa->lt("\x{31F4}\x{30FD}", "\x{31F4}\x{30CC}"));
249ok($objJa->lt("\x{31F5}\x{30FD}", "\x{31F5}\x{30CF}"));
250ok($objJa->lt("\x{31F6}\x{30FD}", "\x{31F6}\x{30D2}"));
251ok($objJa->lt("\x{31F7}\x{30FD}", "\x{31F7}\x{30D5}"));
252ok($objJa->lt("\x{31F8}\x{30FD}", "\x{31F8}\x{30D8}"));
253ok($objJa->lt("\x{31F9}\x{30FD}", "\x{31F9}\x{30DB}"));
254ok($objJa->lt("\x{31FA}\x{30FD}", "\x{31FA}\x{30E0}"));
255ok($objJa->lt("\x{31FB}\x{30FD}", "\x{31FB}\x{30E9}"));
256ok($objJa->lt("\x{31FC}\x{30FD}", "\x{31FC}\x{30EA}"));
257ok($objJa->lt("\x{31FD}\x{30FD}", "\x{31FD}\x{30EB}"));
258ok($objJa->lt("\x{31FE}\x{30FD}", "\x{31FE}\x{30EC}"));
259ok($objJa->lt("\x{31FF}\x{30FD}", "\x{31FF}\x{30ED}"));
260
261# 214
262
263ok($objJa->eq("\x{3041}\x{309D}", "\x{30A1}\x{30FD}"));
264ok($objJa->eq("\x{3042}\x{309D}", "\x{30A2}\x{30FD}"));
265ok($objJa->eq("\x{3043}\x{309D}", "\x{30A3}\x{30FD}"));
266ok($objJa->eq("\x{3044}\x{309D}", "\x{30A4}\x{30FD}"));
267ok($objJa->eq("\x{3045}\x{309D}", "\x{30A5}\x{30FD}"));
268ok($objJa->eq("\x{3046}\x{309D}", "\x{30A6}\x{30FD}"));
269ok($objJa->eq("\x{3047}\x{309D}", "\x{30A7}\x{30FD}"));
270ok($objJa->eq("\x{3048}\x{309D}", "\x{30A8}\x{30FD}"));
271ok($objJa->eq("\x{3049}\x{309D}", "\x{30A9}\x{30FD}"));
272ok($objJa->eq("\x{304A}\x{309D}", "\x{30AA}\x{30FD}"));
273ok($objJa->eq("\x{304B}\x{309D}", "\x{30AB}\x{30FD}"));
274ok($objJa->eq("\x{304C}\x{309D}", "\x{30AC}\x{30FD}"));
275ok($objJa->eq("\x{304D}\x{309D}", "\x{30AD}\x{30FD}"));
276ok($objJa->eq("\x{304E}\x{309D}", "\x{30AE}\x{30FD}"));
277ok($objJa->eq("\x{304F}\x{309D}", "\x{30AF}\x{30FD}"));
278ok($objJa->eq("\x{3050}\x{309D}", "\x{30B0}\x{30FD}"));
279ok($objJa->eq("\x{3051}\x{309D}", "\x{30B1}\x{30FD}"));
280ok($objJa->eq("\x{3052}\x{309D}", "\x{30B2}\x{30FD}"));
281ok($objJa->eq("\x{3053}\x{309D}", "\x{30B3}\x{30FD}"));
282ok($objJa->eq("\x{3054}\x{309D}", "\x{30B4}\x{30FD}"));
283ok($objJa->eq("\x{3055}\x{309D}", "\x{30B5}\x{30FD}"));
284ok($objJa->eq("\x{3056}\x{309D}", "\x{30B6}\x{30FD}"));
285ok($objJa->eq("\x{3057}\x{309D}", "\x{30B7}\x{30FD}"));
286ok($objJa->eq("\x{3058}\x{309D}", "\x{30B8}\x{30FD}"));
287ok($objJa->eq("\x{3059}\x{309D}", "\x{30B9}\x{30FD}"));
288ok($objJa->eq("\x{305A}\x{309D}", "\x{30BA}\x{30FD}"));
289ok($objJa->eq("\x{305B}\x{309D}", "\x{30BB}\x{30FD}"));
290ok($objJa->eq("\x{305C}\x{309D}", "\x{30BC}\x{30FD}"));
291ok($objJa->eq("\x{305D}\x{309D}", "\x{30BD}\x{30FD}"));
292ok($objJa->eq("\x{305E}\x{309D}", "\x{30BE}\x{30FD}"));
293ok($objJa->eq("\x{305F}\x{309D}", "\x{30BF}\x{30FD}"));
294ok($objJa->eq("\x{3060}\x{309D}", "\x{30C0}\x{30FD}"));
295ok($objJa->eq("\x{3061}\x{309D}", "\x{30C1}\x{30FD}"));
296ok($objJa->eq("\x{3062}\x{309D}", "\x{30C2}\x{30FD}"));
297ok($objJa->eq("\x{3063}\x{309D}", "\x{30C3}\x{30FD}"));
298ok($objJa->eq("\x{3064}\x{309D}", "\x{30C4}\x{30FD}"));
299ok($objJa->eq("\x{3065}\x{309D}", "\x{30C5}\x{30FD}"));
300ok($objJa->eq("\x{3066}\x{309D}", "\x{30C6}\x{30FD}"));
301ok($objJa->eq("\x{3067}\x{309D}", "\x{30C7}\x{30FD}"));
302ok($objJa->eq("\x{3068}\x{309D}", "\x{30C8}\x{30FD}"));
303ok($objJa->eq("\x{3069}\x{309D}", "\x{30C9}\x{30FD}"));
304ok($objJa->eq("\x{306A}\x{309D}", "\x{30CA}\x{30FD}"));
305ok($objJa->eq("\x{306B}\x{309D}", "\x{30CB}\x{30FD}"));
306ok($objJa->eq("\x{306C}\x{309D}", "\x{30CC}\x{30FD}"));
307ok($objJa->eq("\x{306D}\x{309D}", "\x{30CD}\x{30FD}"));
308ok($objJa->eq("\x{306E}\x{309D}", "\x{30CE}\x{30FD}"));
309ok($objJa->eq("\x{306F}\x{309D}", "\x{30CF}\x{30FD}"));
310ok($objJa->eq("\x{3070}\x{309D}", "\x{30D0}\x{30FD}"));
311ok($objJa->eq("\x{3071}\x{309D}", "\x{30D1}\x{30FD}"));
312ok($objJa->eq("\x{3072}\x{309D}", "\x{30D2}\x{30FD}"));
313ok($objJa->eq("\x{3073}\x{309D}", "\x{30D3}\x{30FD}"));
314ok($objJa->eq("\x{3074}\x{309D}", "\x{30D4}\x{30FD}"));
315ok($objJa->eq("\x{3075}\x{309D}", "\x{30D5}\x{30FD}"));
316ok($objJa->eq("\x{3076}\x{309D}", "\x{30D6}\x{30FD}"));
317ok($objJa->eq("\x{3077}\x{309D}", "\x{30D7}\x{30FD}"));
318ok($objJa->eq("\x{3078}\x{309D}", "\x{30D8}\x{30FD}"));
319ok($objJa->eq("\x{3079}\x{309D}", "\x{30D9}\x{30FD}"));
320ok($objJa->eq("\x{307A}\x{309D}", "\x{30DA}\x{30FD}"));
321ok($objJa->eq("\x{307B}\x{309D}", "\x{30DB}\x{30FD}"));
322ok($objJa->eq("\x{307C}\x{309D}", "\x{30DC}\x{30FD}"));
323ok($objJa->eq("\x{307D}\x{309D}", "\x{30DD}\x{30FD}"));
324ok($objJa->eq("\x{307E}\x{309D}", "\x{30DE}\x{30FD}"));
325ok($objJa->eq("\x{307F}\x{309D}", "\x{30DF}\x{30FD}"));
326ok($objJa->eq("\x{3080}\x{309D}", "\x{30E0}\x{30FD}"));
327ok($objJa->eq("\x{3081}\x{309D}", "\x{30E1}\x{30FD}"));
328ok($objJa->eq("\x{3082}\x{309D}", "\x{30E2}\x{30FD}"));
329ok($objJa->eq("\x{3083}\x{309D}", "\x{30E3}\x{30FD}"));
330ok($objJa->eq("\x{3084}\x{309D}", "\x{30E4}\x{30FD}"));
331ok($objJa->eq("\x{3085}\x{309D}", "\x{30E5}\x{30FD}"));
332ok($objJa->eq("\x{3086}\x{309D}", "\x{30E6}\x{30FD}"));
333ok($objJa->eq("\x{3087}\x{309D}", "\x{30E7}\x{30FD}"));
334ok($objJa->eq("\x{3088}\x{309D}", "\x{30E8}\x{30FD}"));
335ok($objJa->eq("\x{3089}\x{309D}", "\x{30E9}\x{30FD}"));
336ok($objJa->eq("\x{308A}\x{309D}", "\x{30EA}\x{30FD}"));
337ok($objJa->eq("\x{308B}\x{309D}", "\x{30EB}\x{30FD}"));
338ok($objJa->eq("\x{308C}\x{309D}", "\x{30EC}\x{30FD}"));
339ok($objJa->eq("\x{308D}\x{309D}", "\x{30ED}\x{30FD}"));
340ok($objJa->eq("\x{308E}\x{309D}", "\x{30EE}\x{30FD}"));
341ok($objJa->eq("\x{308F}\x{309D}", "\x{30EF}\x{30FD}"));
342ok($objJa->eq("\x{3090}\x{309D}", "\x{30F0}\x{30FD}"));
343ok($objJa->eq("\x{3091}\x{309D}", "\x{30F1}\x{30FD}"));
344ok($objJa->eq("\x{3092}\x{309D}", "\x{30F2}\x{30FD}"));
345ok($objJa->eq("\x{3093}\x{309D}", "\x{30F3}\x{30FD}"));
346ok($objJa->eq("\x{3094}\x{309D}", "\x{30F4}\x{30FD}"));
347ok($objJa->eq("\x{3095}\x{309D}", "\x{30F5}\x{30FD}"));
348ok($objJa->eq("\x{3096}\x{309D}", "\x{30F6}\x{30FD}"));
349
350# 300
351
352$objJa->change(level => 4);
353
354$objJa->change(variable => 'Non-ignorable');
355
356ok($objJa->lt("\x{3041}\x{309D}", "\x{30A1}\x{30FD}"));
357ok($objJa->lt("\x{3042}\x{309D}", "\x{30A2}\x{30FD}"));
358ok($objJa->lt("\x{3043}\x{309D}", "\x{30A3}\x{30FD}"));
359ok($objJa->lt("\x{3044}\x{309D}", "\x{30A4}\x{30FD}"));
360ok($objJa->lt("\x{3045}\x{309D}", "\x{30A5}\x{30FD}"));
361ok($objJa->lt("\x{3046}\x{309D}", "\x{30A6}\x{30FD}"));
362ok($objJa->lt("\x{3047}\x{309D}", "\x{30A7}\x{30FD}"));
363ok($objJa->lt("\x{3048}\x{309D}", "\x{30A8}\x{30FD}"));
364ok($objJa->lt("\x{3049}\x{309D}", "\x{30A9}\x{30FD}"));
365ok($objJa->lt("\x{304A}\x{309D}", "\x{30AA}\x{30FD}"));
366ok($objJa->lt("\x{304B}\x{309D}", "\x{30AB}\x{30FD}"));
367ok($objJa->lt("\x{304C}\x{309D}", "\x{30AC}\x{30FD}"));
368ok($objJa->lt("\x{304D}\x{309D}", "\x{30AD}\x{30FD}"));
369ok($objJa->lt("\x{304E}\x{309D}", "\x{30AE}\x{30FD}"));
370ok($objJa->lt("\x{304F}\x{309D}", "\x{30AF}\x{30FD}"));
371ok($objJa->lt("\x{3050}\x{309D}", "\x{30B0}\x{30FD}"));
372ok($objJa->lt("\x{3051}\x{309D}", "\x{30B1}\x{30FD}"));
373ok($objJa->lt("\x{3052}\x{309D}", "\x{30B2}\x{30FD}"));
374ok($objJa->lt("\x{3053}\x{309D}", "\x{30B3}\x{30FD}"));
375ok($objJa->lt("\x{3054}\x{309D}", "\x{30B4}\x{30FD}"));
376ok($objJa->lt("\x{3055}\x{309D}", "\x{30B5}\x{30FD}"));
377ok($objJa->lt("\x{3056}\x{309D}", "\x{30B6}\x{30FD}"));
378ok($objJa->lt("\x{3057}\x{309D}", "\x{30B7}\x{30FD}"));
379ok($objJa->lt("\x{3058}\x{309D}", "\x{30B8}\x{30FD}"));
380ok($objJa->lt("\x{3059}\x{309D}", "\x{30B9}\x{30FD}"));
381ok($objJa->lt("\x{305A}\x{309D}", "\x{30BA}\x{30FD}"));
382ok($objJa->lt("\x{305B}\x{309D}", "\x{30BB}\x{30FD}"));
383ok($objJa->lt("\x{305C}\x{309D}", "\x{30BC}\x{30FD}"));
384ok($objJa->lt("\x{305D}\x{309D}", "\x{30BD}\x{30FD}"));
385ok($objJa->lt("\x{305E}\x{309D}", "\x{30BE}\x{30FD}"));
386ok($objJa->lt("\x{305F}\x{309D}", "\x{30BF}\x{30FD}"));
387ok($objJa->lt("\x{3060}\x{309D}", "\x{30C0}\x{30FD}"));
388ok($objJa->lt("\x{3061}\x{309D}", "\x{30C1}\x{30FD}"));
389ok($objJa->lt("\x{3062}\x{309D}", "\x{30C2}\x{30FD}"));
390ok($objJa->lt("\x{3063}\x{309D}", "\x{30C3}\x{30FD}"));
391ok($objJa->lt("\x{3064}\x{309D}", "\x{30C4}\x{30FD}"));
392ok($objJa->lt("\x{3065}\x{309D}", "\x{30C5}\x{30FD}"));
393ok($objJa->lt("\x{3066}\x{309D}", "\x{30C6}\x{30FD}"));
394ok($objJa->lt("\x{3067}\x{309D}", "\x{30C7}\x{30FD}"));
395ok($objJa->lt("\x{3068}\x{309D}", "\x{30C8}\x{30FD}"));
396ok($objJa->lt("\x{3069}\x{309D}", "\x{30C9}\x{30FD}"));
397ok($objJa->lt("\x{306A}\x{309D}", "\x{30CA}\x{30FD}"));
398ok($objJa->lt("\x{306B}\x{309D}", "\x{30CB}\x{30FD}"));
399ok($objJa->lt("\x{306C}\x{309D}", "\x{30CC}\x{30FD}"));
400ok($objJa->lt("\x{306D}\x{309D}", "\x{30CD}\x{30FD}"));
401ok($objJa->lt("\x{306E}\x{309D}", "\x{30CE}\x{30FD}"));
402ok($objJa->lt("\x{306F}\x{309D}", "\x{30CF}\x{30FD}"));
403ok($objJa->lt("\x{3070}\x{309D}", "\x{30D0}\x{30FD}"));
404ok($objJa->lt("\x{3071}\x{309D}", "\x{30D1}\x{30FD}"));
405ok($objJa->lt("\x{3072}\x{309D}", "\x{30D2}\x{30FD}"));
406ok($objJa->lt("\x{3073}\x{309D}", "\x{30D3}\x{30FD}"));
407ok($objJa->lt("\x{3074}\x{309D}", "\x{30D4}\x{30FD}"));
408ok($objJa->lt("\x{3075}\x{309D}", "\x{30D5}\x{30FD}"));
409ok($objJa->lt("\x{3076}\x{309D}", "\x{30D6}\x{30FD}"));
410ok($objJa->lt("\x{3077}\x{309D}", "\x{30D7}\x{30FD}"));
411ok($objJa->lt("\x{3078}\x{309D}", "\x{30D8}\x{30FD}"));
412ok($objJa->lt("\x{3079}\x{309D}", "\x{30D9}\x{30FD}"));
413ok($objJa->lt("\x{307A}\x{309D}", "\x{30DA}\x{30FD}"));
414ok($objJa->lt("\x{307B}\x{309D}", "\x{30DB}\x{30FD}"));
415ok($objJa->lt("\x{307C}\x{309D}", "\x{30DC}\x{30FD}"));
416ok($objJa->lt("\x{307D}\x{309D}", "\x{30DD}\x{30FD}"));
417ok($objJa->lt("\x{307E}\x{309D}", "\x{30DE}\x{30FD}"));
418ok($objJa->lt("\x{307F}\x{309D}", "\x{30DF}\x{30FD}"));
419ok($objJa->lt("\x{3080}\x{309D}", "\x{30E0}\x{30FD}"));
420ok($objJa->lt("\x{3081}\x{309D}", "\x{30E1}\x{30FD}"));
421ok($objJa->lt("\x{3082}\x{309D}", "\x{30E2}\x{30FD}"));
422ok($objJa->lt("\x{3083}\x{309D}", "\x{30E3}\x{30FD}"));
423ok($objJa->lt("\x{3084}\x{309D}", "\x{30E4}\x{30FD}"));
424ok($objJa->lt("\x{3085}\x{309D}", "\x{30E5}\x{30FD}"));
425ok($objJa->lt("\x{3086}\x{309D}", "\x{30E6}\x{30FD}"));
426ok($objJa->lt("\x{3087}\x{309D}", "\x{30E7}\x{30FD}"));
427ok($objJa->lt("\x{3088}\x{309D}", "\x{30E8}\x{30FD}"));
428ok($objJa->lt("\x{3089}\x{309D}", "\x{30E9}\x{30FD}"));
429ok($objJa->lt("\x{308A}\x{309D}", "\x{30EA}\x{30FD}"));
430ok($objJa->lt("\x{308B}\x{309D}", "\x{30EB}\x{30FD}"));
431ok($objJa->lt("\x{308C}\x{309D}", "\x{30EC}\x{30FD}"));
432ok($objJa->lt("\x{308D}\x{309D}", "\x{30ED}\x{30FD}"));
433ok($objJa->lt("\x{308E}\x{309D}", "\x{30EE}\x{30FD}"));
434ok($objJa->lt("\x{308F}\x{309D}", "\x{30EF}\x{30FD}"));
435ok($objJa->lt("\x{3090}\x{309D}", "\x{30F0}\x{30FD}"));
436ok($objJa->lt("\x{3091}\x{309D}", "\x{30F1}\x{30FD}"));
437ok($objJa->lt("\x{3092}\x{309D}", "\x{30F2}\x{30FD}"));
438ok($objJa->lt("\x{3093}\x{309D}", "\x{30F3}\x{30FD}"));
439ok($objJa->lt("\x{3094}\x{309D}", "\x{30F4}\x{30FD}"));
440ok($objJa->lt("\x{3095}\x{309D}", "\x{30F5}\x{30FD}"));
441ok($objJa->lt("\x{3096}\x{309D}", "\x{30F6}\x{30FD}"));
442
443# 386
444
445my $vs = "\x{3099}";
446
447ok($objJa->eq("\x{30A1}\x{30FD}", "\x{FF67}\x{30FD}"));
448ok($objJa->eq("\x{30A2}\x{30FD}", "\x{FF71}\x{30FD}"));
449ok($objJa->eq("\x{30A3}\x{30FD}", "\x{FF68}\x{30FD}"));
450ok($objJa->eq("\x{30A4}\x{30FD}", "\x{FF72}\x{30FD}"));
451ok($objJa->eq("\x{30A5}\x{30FD}", "\x{FF69}\x{30FD}"));
452ok($objJa->eq("\x{30A5}\x{30FE}", "\x{30A5}\x{30FD}".$vs));
453ok($objJa->eq("\x{FF69}\x{30FE}", "\x{FF69}\x{30FD}".$vs));
454ok($objJa->eq("\x{3045}\x{309E}", "\x{3045}\x{309D}".$vs));
455ok($objJa->eq("\x{30A6}\x{30FD}", "\x{FF73}\x{30FD}"));
456ok($objJa->eq("\x{30A6}\x{30FE}", "\x{30A6}\x{30FD}".$vs));
457ok($objJa->eq("\x{FF73}\x{30FE}", "\x{FF73}\x{30FD}".$vs));
458ok($objJa->eq("\x{3046}\x{309E}", "\x{3046}\x{309D}".$vs));
459ok($objJa->eq("\x{30A7}\x{30FD}", "\x{FF6A}\x{30FD}"));
460ok($objJa->eq("\x{30A8}\x{30FD}", "\x{FF74}\x{30FD}"));
461ok($objJa->eq("\x{30A9}\x{30FD}", "\x{FF6B}\x{30FD}"));
462ok($objJa->eq("\x{30AA}\x{30FD}", "\x{FF75}\x{30FD}"));
463ok($objJa->eq("\x{30AB}\x{30FD}", "\x{FF76}\x{30FD}"));
464ok($objJa->eq("\x{30AB}\x{30FE}", "\x{30AB}\x{30FD}".$vs));
465ok($objJa->eq("\x{FF76}\x{30FE}", "\x{FF76}\x{30FD}".$vs));
466ok($objJa->eq("\x{304B}\x{309E}", "\x{304B}\x{309D}".$vs));
467ok($objJa->eq("\x{30AC}\x{30FD}", "\x{30AB}\x{3099}\x{30FD}"));
468ok($objJa->eq("\x{30AC}\x{30FD}", "\x{FF76}\x{FF9E}\x{30FD}"));
469ok($objJa->eq("\x{304C}\x{309D}", "\x{304B}\x{3099}\x{309D}"));
470ok($objJa->eq("\x{30AC}\x{30FE}", "\x{30AC}\x{30FD}".$vs));
471ok($objJa->eq("\x{30AB}\x{3099}\x{30FE}", "\x{30AB}\x{3099}\x{30FD}".$vs));
472ok($objJa->eq("\x{FF76}\x{FF9E}\x{30FE}", "\x{FF76}\x{FF9E}\x{30FD}".$vs));
473ok($objJa->eq("\x{304C}\x{309E}", "\x{304C}\x{309D}".$vs));
474ok($objJa->eq("\x{304B}\x{3099}\x{309E}", "\x{304B}\x{3099}\x{309D}".$vs));
475ok($objJa->eq("\x{30AD}\x{30FD}", "\x{FF77}\x{30FD}"));
476ok($objJa->eq("\x{30AD}\x{30FE}", "\x{30AD}\x{30FD}".$vs));
477ok($objJa->eq("\x{FF77}\x{30FE}", "\x{FF77}\x{30FD}".$vs));
478ok($objJa->eq("\x{304D}\x{309E}", "\x{304D}\x{309D}".$vs));
479ok($objJa->eq("\x{30AE}\x{30FD}", "\x{30AD}\x{3099}\x{30FD}"));
480ok($objJa->eq("\x{30AE}\x{30FD}", "\x{FF77}\x{FF9E}\x{30FD}"));
481ok($objJa->eq("\x{304E}\x{309D}", "\x{304D}\x{3099}\x{309D}"));
482ok($objJa->eq("\x{30AE}\x{30FE}", "\x{30AE}\x{30FD}".$vs));
483ok($objJa->eq("\x{30AD}\x{3099}\x{30FE}", "\x{30AD}\x{3099}\x{30FD}".$vs));
484ok($objJa->eq("\x{FF77}\x{FF9E}\x{30FE}", "\x{FF77}\x{FF9E}\x{30FD}".$vs));
485ok($objJa->eq("\x{304E}\x{309E}", "\x{304E}\x{309D}".$vs));
486ok($objJa->eq("\x{304D}\x{3099}\x{309E}", "\x{304D}\x{3099}\x{309D}".$vs));
487ok($objJa->eq("\x{30AF}\x{30FD}", "\x{FF78}\x{30FD}"));
488ok($objJa->eq("\x{30AF}\x{30FE}", "\x{30AF}\x{30FD}".$vs));
489ok($objJa->eq("\x{FF78}\x{30FE}", "\x{FF78}\x{30FD}".$vs));
490ok($objJa->eq("\x{304F}\x{309E}", "\x{304F}\x{309D}".$vs));
491ok($objJa->eq("\x{30B0}\x{30FD}", "\x{30AF}\x{3099}\x{30FD}"));
492ok($objJa->eq("\x{30B0}\x{30FD}", "\x{FF78}\x{FF9E}\x{30FD}"));
493ok($objJa->eq("\x{3050}\x{309D}", "\x{304F}\x{3099}\x{309D}"));
494ok($objJa->eq("\x{30B0}\x{30FE}", "\x{30B0}\x{30FD}".$vs));
495ok($objJa->eq("\x{30AF}\x{3099}\x{30FE}", "\x{30AF}\x{3099}\x{30FD}".$vs));
496ok($objJa->eq("\x{FF78}\x{FF9E}\x{30FE}", "\x{FF78}\x{FF9E}\x{30FD}".$vs));
497ok($objJa->eq("\x{3050}\x{309E}", "\x{3050}\x{309D}".$vs));
498ok($objJa->eq("\x{304F}\x{3099}\x{309E}", "\x{304F}\x{3099}\x{309D}".$vs));
499ok($objJa->eq("\x{30B1}\x{30FD}", "\x{FF79}\x{30FD}"));
500ok($objJa->eq("\x{30B1}\x{30FE}", "\x{30B1}\x{30FD}".$vs));
501ok($objJa->eq("\x{FF79}\x{30FE}", "\x{FF79}\x{30FD}".$vs));
502ok($objJa->eq("\x{3051}\x{309E}", "\x{3051}\x{309D}".$vs));
503ok($objJa->eq("\x{30B2}\x{30FD}", "\x{30B1}\x{3099}\x{30FD}"));
504ok($objJa->eq("\x{30B2}\x{30FD}", "\x{FF79}\x{FF9E}\x{30FD}"));
505ok($objJa->eq("\x{3052}\x{309D}", "\x{3051}\x{3099}\x{309D}"));
506ok($objJa->eq("\x{30B2}\x{30FE}", "\x{30B2}\x{30FD}".$vs));
507ok($objJa->eq("\x{30B1}\x{3099}\x{30FE}", "\x{30B1}\x{3099}\x{30FD}".$vs));
508ok($objJa->eq("\x{FF79}\x{FF9E}\x{30FE}", "\x{FF79}\x{FF9E}\x{30FD}".$vs));
509ok($objJa->eq("\x{3052}\x{309E}", "\x{3052}\x{309D}".$vs));
510ok($objJa->eq("\x{3051}\x{3099}\x{309E}", "\x{3051}\x{3099}\x{309D}".$vs));
511ok($objJa->eq("\x{30B3}\x{30FD}", "\x{FF7A}\x{30FD}"));
512ok($objJa->eq("\x{30B3}\x{30FE}", "\x{30B3}\x{30FD}".$vs));
513ok($objJa->eq("\x{FF7A}\x{30FE}", "\x{FF7A}\x{30FD}".$vs));
514ok($objJa->eq("\x{3053}\x{309E}", "\x{3053}\x{309D}".$vs));
515ok($objJa->eq("\x{30B4}\x{30FD}", "\x{30B3}\x{3099}\x{30FD}"));
516ok($objJa->eq("\x{30B4}\x{30FD}", "\x{FF7A}\x{FF9E}\x{30FD}"));
517ok($objJa->eq("\x{3054}\x{309D}", "\x{3053}\x{3099}\x{309D}"));
518ok($objJa->eq("\x{30B4}\x{30FE}", "\x{30B4}\x{30FD}".$vs));
519ok($objJa->eq("\x{30B3}\x{3099}\x{30FE}", "\x{30B3}\x{3099}\x{30FD}".$vs));
520ok($objJa->eq("\x{FF7A}\x{FF9E}\x{30FE}", "\x{FF7A}\x{FF9E}\x{30FD}".$vs));
521ok($objJa->eq("\x{3054}\x{309E}", "\x{3054}\x{309D}".$vs));
522ok($objJa->eq("\x{3053}\x{3099}\x{309E}", "\x{3053}\x{3099}\x{309D}".$vs));
523ok($objJa->eq("\x{30B5}\x{30FD}", "\x{FF7B}\x{30FD}"));
524ok($objJa->eq("\x{30B5}\x{30FE}", "\x{30B5}\x{30FD}".$vs));
525ok($objJa->eq("\x{FF7B}\x{30FE}", "\x{FF7B}\x{30FD}".$vs));
526ok($objJa->eq("\x{3055}\x{309E}", "\x{3055}\x{309D}".$vs));
527ok($objJa->eq("\x{30B6}\x{30FD}", "\x{30B5}\x{3099}\x{30FD}"));
528ok($objJa->eq("\x{30B6}\x{30FD}", "\x{FF7B}\x{FF9E}\x{30FD}"));
529ok($objJa->eq("\x{3056}\x{309D}", "\x{3055}\x{3099}\x{309D}"));
530ok($objJa->eq("\x{30B6}\x{30FE}", "\x{30B6}\x{30FD}".$vs));
531ok($objJa->eq("\x{30B5}\x{3099}\x{30FE}", "\x{30B5}\x{3099}\x{30FD}".$vs));
532ok($objJa->eq("\x{FF7B}\x{FF9E}\x{30FE}", "\x{FF7B}\x{FF9E}\x{30FD}".$vs));
533ok($objJa->eq("\x{3056}\x{309E}", "\x{3056}\x{309D}".$vs));
534ok($objJa->eq("\x{3055}\x{3099}\x{309E}", "\x{3055}\x{3099}\x{309D}".$vs));
535ok($objJa->eq("\x{30B7}\x{30FD}", "\x{FF7C}\x{30FD}"));
536ok($objJa->eq("\x{30B7}\x{30FE}", "\x{30B7}\x{30FD}".$vs));
537ok($objJa->eq("\x{FF7C}\x{30FE}", "\x{FF7C}\x{30FD}".$vs));
538ok($objJa->eq("\x{3057}\x{309E}", "\x{3057}\x{309D}".$vs));
539ok($objJa->eq("\x{30B8}\x{30FD}", "\x{30B7}\x{3099}\x{30FD}"));
540ok($objJa->eq("\x{30B8}\x{30FD}", "\x{FF7C}\x{FF9E}\x{30FD}"));
541ok($objJa->eq("\x{3058}\x{309D}", "\x{3057}\x{3099}\x{309D}"));
542ok($objJa->eq("\x{30B8}\x{30FE}", "\x{30B8}\x{30FD}".$vs));
543ok($objJa->eq("\x{30B7}\x{3099}\x{30FE}", "\x{30B7}\x{3099}\x{30FD}".$vs));
544ok($objJa->eq("\x{FF7C}\x{FF9E}\x{30FE}", "\x{FF7C}\x{FF9E}\x{30FD}".$vs));
545ok($objJa->eq("\x{3058}\x{309E}", "\x{3058}\x{309D}".$vs));
546ok($objJa->eq("\x{3057}\x{3099}\x{309E}", "\x{3057}\x{3099}\x{309D}".$vs));
547ok($objJa->eq("\x{30B9}\x{30FD}", "\x{FF7D}\x{30FD}"));
548ok($objJa->eq("\x{30B9}\x{30FE}", "\x{30B9}\x{30FD}".$vs));
549ok($objJa->eq("\x{FF7D}\x{30FE}", "\x{FF7D}\x{30FD}".$vs));
550ok($objJa->eq("\x{3059}\x{309E}", "\x{3059}\x{309D}".$vs));
551ok($objJa->eq("\x{30BA}\x{30FD}", "\x{30B9}\x{3099}\x{30FD}"));
552ok($objJa->eq("\x{30BA}\x{30FD}", "\x{FF7D}\x{FF9E}\x{30FD}"));
553ok($objJa->eq("\x{305A}\x{309D}", "\x{3059}\x{3099}\x{309D}"));
554ok($objJa->eq("\x{30BA}\x{30FE}", "\x{30BA}\x{30FD}".$vs));
555ok($objJa->eq("\x{30B9}\x{3099}\x{30FE}", "\x{30B9}\x{3099}\x{30FD}".$vs));
556ok($objJa->eq("\x{FF7D}\x{FF9E}\x{30FE}", "\x{FF7D}\x{FF9E}\x{30FD}".$vs));
557ok($objJa->eq("\x{305A}\x{309E}", "\x{305A}\x{309D}".$vs));
558ok($objJa->eq("\x{3059}\x{3099}\x{309E}", "\x{3059}\x{3099}\x{309D}".$vs));
559ok($objJa->eq("\x{30BB}\x{30FD}", "\x{FF7E}\x{30FD}"));
560ok($objJa->eq("\x{30BB}\x{30FE}", "\x{30BB}\x{30FD}".$vs));
561ok($objJa->eq("\x{FF7E}\x{30FE}", "\x{FF7E}\x{30FD}".$vs));
562ok($objJa->eq("\x{305B}\x{309E}", "\x{305B}\x{309D}".$vs));
563ok($objJa->eq("\x{30BC}\x{30FD}", "\x{30BB}\x{3099}\x{30FD}"));
564ok($objJa->eq("\x{30BC}\x{30FD}", "\x{FF7E}\x{FF9E}\x{30FD}"));
565ok($objJa->eq("\x{305C}\x{309D}", "\x{305B}\x{3099}\x{309D}"));
566ok($objJa->eq("\x{30BC}\x{30FE}", "\x{30BC}\x{30FD}".$vs));
567ok($objJa->eq("\x{30BB}\x{3099}\x{30FE}", "\x{30BB}\x{3099}\x{30FD}".$vs));
568ok($objJa->eq("\x{FF7E}\x{FF9E}\x{30FE}", "\x{FF7E}\x{FF9E}\x{30FD}".$vs));
569ok($objJa->eq("\x{305C}\x{309E}", "\x{305C}\x{309D}".$vs));
570ok($objJa->eq("\x{305B}\x{3099}\x{309E}", "\x{305B}\x{3099}\x{309D}".$vs));
571ok($objJa->eq("\x{30BD}\x{30FD}", "\x{FF7F}\x{30FD}"));
572ok($objJa->eq("\x{30BD}\x{30FE}", "\x{30BD}\x{30FD}".$vs));
573ok($objJa->eq("\x{FF7F}\x{30FE}", "\x{FF7F}\x{30FD}".$vs));
574ok($objJa->eq("\x{305D}\x{309E}", "\x{305D}\x{309D}".$vs));
575ok($objJa->eq("\x{30BE}\x{30FD}", "\x{30BD}\x{3099}\x{30FD}"));
576ok($objJa->eq("\x{30BE}\x{30FD}", "\x{FF7F}\x{FF9E}\x{30FD}"));
577ok($objJa->eq("\x{305E}\x{309D}", "\x{305D}\x{3099}\x{309D}"));
578ok($objJa->eq("\x{30BE}\x{30FE}", "\x{30BE}\x{30FD}".$vs));
579ok($objJa->eq("\x{30BD}\x{3099}\x{30FE}", "\x{30BD}\x{3099}\x{30FD}".$vs));
580ok($objJa->eq("\x{FF7F}\x{FF9E}\x{30FE}", "\x{FF7F}\x{FF9E}\x{30FD}".$vs));
581ok($objJa->eq("\x{305E}\x{309E}", "\x{305E}\x{309D}".$vs));
582ok($objJa->eq("\x{305D}\x{3099}\x{309E}", "\x{305D}\x{3099}\x{309D}".$vs));
583ok($objJa->eq("\x{30BF}\x{30FD}", "\x{FF80}\x{30FD}"));
584ok($objJa->eq("\x{30BF}\x{30FE}", "\x{30BF}\x{30FD}".$vs));
585ok($objJa->eq("\x{FF80}\x{30FE}", "\x{FF80}\x{30FD}".$vs));
586ok($objJa->eq("\x{305F}\x{309E}", "\x{305F}\x{309D}".$vs));
587ok($objJa->eq("\x{30C0}\x{30FD}", "\x{30BF}\x{3099}\x{30FD}"));
588ok($objJa->eq("\x{30C0}\x{30FD}", "\x{FF80}\x{FF9E}\x{30FD}"));
589ok($objJa->eq("\x{3060}\x{309D}", "\x{305F}\x{3099}\x{309D}"));
590ok($objJa->eq("\x{30C0}\x{30FE}", "\x{30C0}\x{30FD}".$vs));
591ok($objJa->eq("\x{30BF}\x{3099}\x{30FE}", "\x{30BF}\x{3099}\x{30FD}".$vs));
592ok($objJa->eq("\x{FF80}\x{FF9E}\x{30FE}", "\x{FF80}\x{FF9E}\x{30FD}".$vs));
593ok($objJa->eq("\x{3060}\x{309E}", "\x{3060}\x{309D}".$vs));
594ok($objJa->eq("\x{305F}\x{3099}\x{309E}", "\x{305F}\x{3099}\x{309D}".$vs));
595ok($objJa->eq("\x{30C1}\x{30FD}", "\x{FF81}\x{30FD}"));
596ok($objJa->eq("\x{30C1}\x{30FE}", "\x{30C1}\x{30FD}".$vs));
597ok($objJa->eq("\x{FF81}\x{30FE}", "\x{FF81}\x{30FD}".$vs));
598ok($objJa->eq("\x{3061}\x{309E}", "\x{3061}\x{309D}".$vs));
599ok($objJa->eq("\x{30C2}\x{30FD}", "\x{30C1}\x{3099}\x{30FD}"));
600ok($objJa->eq("\x{30C2}\x{30FD}", "\x{FF81}\x{FF9E}\x{30FD}"));
601ok($objJa->eq("\x{3062}\x{309D}", "\x{3061}\x{3099}\x{309D}"));
602ok($objJa->eq("\x{30C2}\x{30FE}", "\x{30C2}\x{30FD}".$vs));
603ok($objJa->eq("\x{30C1}\x{3099}\x{30FE}", "\x{30C1}\x{3099}\x{30FD}".$vs));
604ok($objJa->eq("\x{FF81}\x{FF9E}\x{30FE}", "\x{FF81}\x{FF9E}\x{30FD}".$vs));
605ok($objJa->eq("\x{3062}\x{309E}", "\x{3062}\x{309D}".$vs));
606ok($objJa->eq("\x{3061}\x{3099}\x{309E}", "\x{3061}\x{3099}\x{309D}".$vs));
607ok($objJa->eq("\x{30C3}\x{30FD}", "\x{FF6F}\x{30FD}"));
608ok($objJa->eq("\x{30C3}\x{30FE}", "\x{30C3}\x{30FD}".$vs));
609ok($objJa->eq("\x{FF6F}\x{30FE}", "\x{FF6F}\x{30FD}".$vs));
610ok($objJa->eq("\x{3063}\x{309E}", "\x{3063}\x{309D}".$vs));
611ok($objJa->eq("\x{30C4}\x{30FD}", "\x{FF82}\x{30FD}"));
612ok($objJa->eq("\x{30C4}\x{30FE}", "\x{30C4}\x{30FD}".$vs));
613ok($objJa->eq("\x{FF82}\x{30FE}", "\x{FF82}\x{30FD}".$vs));
614ok($objJa->eq("\x{3064}\x{309E}", "\x{3064}\x{309D}".$vs));
615ok($objJa->eq("\x{30C5}\x{30FD}", "\x{30C4}\x{3099}\x{30FD}"));
616ok($objJa->eq("\x{30C5}\x{30FD}", "\x{FF82}\x{FF9E}\x{30FD}"));
617ok($objJa->eq("\x{3065}\x{309D}", "\x{3064}\x{3099}\x{309D}"));
618ok($objJa->eq("\x{30C5}\x{30FE}", "\x{30C5}\x{30FD}".$vs));
619ok($objJa->eq("\x{30C4}\x{3099}\x{30FE}", "\x{30C4}\x{3099}\x{30FD}".$vs));
620ok($objJa->eq("\x{FF82}\x{FF9E}\x{30FE}", "\x{FF82}\x{FF9E}\x{30FD}".$vs));
621ok($objJa->eq("\x{3065}\x{309E}", "\x{3065}\x{309D}".$vs));
622ok($objJa->eq("\x{3064}\x{3099}\x{309E}", "\x{3064}\x{3099}\x{309D}".$vs));
623ok($objJa->eq("\x{30C6}\x{30FD}", "\x{FF83}\x{30FD}"));
624ok($objJa->eq("\x{30C6}\x{30FE}", "\x{30C6}\x{30FD}".$vs));
625ok($objJa->eq("\x{FF83}\x{30FE}", "\x{FF83}\x{30FD}".$vs));
626ok($objJa->eq("\x{3066}\x{309E}", "\x{3066}\x{309D}".$vs));
627ok($objJa->eq("\x{30C7}\x{30FD}", "\x{30C6}\x{3099}\x{30FD}"));
628ok($objJa->eq("\x{30C7}\x{30FD}", "\x{FF83}\x{FF9E}\x{30FD}"));
629ok($objJa->eq("\x{3067}\x{309D}", "\x{3066}\x{3099}\x{309D}"));
630ok($objJa->eq("\x{30C7}\x{30FE}", "\x{30C7}\x{30FD}".$vs));
631ok($objJa->eq("\x{30C6}\x{3099}\x{30FE}", "\x{30C6}\x{3099}\x{30FD}".$vs));
632ok($objJa->eq("\x{FF83}\x{FF9E}\x{30FE}", "\x{FF83}\x{FF9E}\x{30FD}".$vs));
633ok($objJa->eq("\x{3067}\x{309E}", "\x{3067}\x{309D}".$vs));
634ok($objJa->eq("\x{3066}\x{3099}\x{309E}", "\x{3066}\x{3099}\x{309D}".$vs));
635ok($objJa->eq("\x{30C8}\x{30FD}", "\x{FF84}\x{30FD}"));
636ok($objJa->eq("\x{30C8}\x{30FE}", "\x{30C8}\x{30FD}".$vs));
637ok($objJa->eq("\x{FF84}\x{30FE}", "\x{FF84}\x{30FD}".$vs));
638ok($objJa->eq("\x{3068}\x{309E}", "\x{3068}\x{309D}".$vs));
639ok($objJa->eq("\x{30C9}\x{30FD}", "\x{30C8}\x{3099}\x{30FD}"));
640ok($objJa->eq("\x{30C9}\x{30FD}", "\x{FF84}\x{FF9E}\x{30FD}"));
641ok($objJa->eq("\x{3069}\x{309D}", "\x{3068}\x{3099}\x{309D}"));
642ok($objJa->eq("\x{30C9}\x{30FE}", "\x{30C9}\x{30FD}".$vs));
643ok($objJa->eq("\x{30C8}\x{3099}\x{30FE}", "\x{30C8}\x{3099}\x{30FD}".$vs));
644ok($objJa->eq("\x{FF84}\x{FF9E}\x{30FE}", "\x{FF84}\x{FF9E}\x{30FD}".$vs));
645ok($objJa->eq("\x{3069}\x{309E}", "\x{3069}\x{309D}".$vs));
646ok($objJa->eq("\x{3068}\x{3099}\x{309E}", "\x{3068}\x{3099}\x{309D}".$vs));
647ok($objJa->eq("\x{30CA}\x{30FD}", "\x{FF85}\x{30FD}"));
648ok($objJa->eq("\x{30CB}\x{30FD}", "\x{FF86}\x{30FD}"));
649ok($objJa->eq("\x{30CC}\x{30FD}", "\x{FF87}\x{30FD}"));
650ok($objJa->eq("\x{30CD}\x{30FD}", "\x{FF88}\x{30FD}"));
651ok($objJa->eq("\x{30CE}\x{30FD}", "\x{FF89}\x{30FD}"));
652ok($objJa->eq("\x{30CF}\x{30FD}", "\x{FF8A}\x{30FD}"));
653ok($objJa->eq("\x{30CF}\x{30FE}", "\x{30CF}\x{30FD}".$vs));
654ok($objJa->eq("\x{FF8A}\x{30FE}", "\x{FF8A}\x{30FD}".$vs));
655ok($objJa->eq("\x{306F}\x{309E}", "\x{306F}\x{309D}".$vs));
656ok($objJa->eq("\x{30D0}\x{30FD}", "\x{30CF}\x{3099}\x{30FD}"));
657ok($objJa->eq("\x{30D0}\x{30FD}", "\x{FF8A}\x{FF9E}\x{30FD}"));
658ok($objJa->eq("\x{3070}\x{309D}", "\x{306F}\x{3099}\x{309D}"));
659ok($objJa->eq("\x{30D0}\x{30FE}", "\x{30D0}\x{30FD}".$vs));
660ok($objJa->eq("\x{30CF}\x{3099}\x{30FE}", "\x{30CF}\x{3099}\x{30FD}".$vs));
661ok($objJa->eq("\x{FF8A}\x{FF9E}\x{30FE}", "\x{FF8A}\x{FF9E}\x{30FD}".$vs));
662ok($objJa->eq("\x{3070}\x{309E}", "\x{3070}\x{309D}".$vs));
663ok($objJa->eq("\x{306F}\x{3099}\x{309E}", "\x{306F}\x{3099}\x{309D}".$vs));
664ok($objJa->eq("\x{30D1}\x{30FD}", "\x{30CF}\x{309A}\x{30FD}"));
665ok($objJa->eq("\x{30D1}\x{30FD}", "\x{FF8A}\x{FF9F}\x{30FD}"));
666ok($objJa->eq("\x{3071}\x{309D}", "\x{306F}\x{309A}\x{309D}"));
667ok($objJa->eq("\x{30D1}\x{30FE}", "\x{30D1}\x{30FD}".$vs));
668ok($objJa->eq("\x{30CF}\x{309A}\x{30FE}", "\x{30CF}\x{309A}\x{30FD}".$vs));
669ok($objJa->eq("\x{FF8A}\x{FF9F}\x{30FE}", "\x{FF8A}\x{FF9F}\x{30FD}".$vs));
670ok($objJa->eq("\x{3071}\x{309E}", "\x{3071}\x{309D}".$vs));
671ok($objJa->eq("\x{306F}\x{309A}\x{309E}", "\x{306F}\x{309A}\x{309D}".$vs));
672ok($objJa->eq("\x{30D2}\x{30FD}", "\x{FF8B}\x{30FD}"));
673ok($objJa->eq("\x{30D2}\x{30FE}", "\x{30D2}\x{30FD}".$vs));
674ok($objJa->eq("\x{FF8B}\x{30FE}", "\x{FF8B}\x{30FD}".$vs));
675ok($objJa->eq("\x{3072}\x{309E}", "\x{3072}\x{309D}".$vs));
676ok($objJa->eq("\x{30D3}\x{30FD}", "\x{30D2}\x{3099}\x{30FD}"));
677ok($objJa->eq("\x{30D3}\x{30FD}", "\x{FF8B}\x{FF9E}\x{30FD}"));
678ok($objJa->eq("\x{3073}\x{309D}", "\x{3072}\x{3099}\x{309D}"));
679ok($objJa->eq("\x{30D3}\x{30FE}", "\x{30D3}\x{30FD}".$vs));
680ok($objJa->eq("\x{30D2}\x{3099}\x{30FE}", "\x{30D2}\x{3099}\x{30FD}".$vs));
681ok($objJa->eq("\x{FF8B}\x{FF9E}\x{30FE}", "\x{FF8B}\x{FF9E}\x{30FD}".$vs));
682ok($objJa->eq("\x{3073}\x{309E}", "\x{3073}\x{309D}".$vs));
683ok($objJa->eq("\x{3072}\x{3099}\x{309E}", "\x{3072}\x{3099}\x{309D}".$vs));
684ok($objJa->eq("\x{30D4}\x{30FD}", "\x{30D2}\x{309A}\x{30FD}"));
685ok($objJa->eq("\x{30D4}\x{30FD}", "\x{FF8B}\x{FF9F}\x{30FD}"));
686ok($objJa->eq("\x{3074}\x{309D}", "\x{3072}\x{309A}\x{309D}"));
687ok($objJa->eq("\x{30D4}\x{30FE}", "\x{30D4}\x{30FD}".$vs));
688ok($objJa->eq("\x{30D2}\x{309A}\x{30FE}", "\x{30D2}\x{309A}\x{30FD}".$vs));
689ok($objJa->eq("\x{FF8B}\x{FF9F}\x{30FE}", "\x{FF8B}\x{FF9F}\x{30FD}".$vs));
690ok($objJa->eq("\x{3074}\x{309E}", "\x{3074}\x{309D}".$vs));
691ok($objJa->eq("\x{3072}\x{309A}\x{309E}", "\x{3072}\x{309A}\x{309D}".$vs));
692ok($objJa->eq("\x{30D5}\x{30FD}", "\x{FF8C}\x{30FD}"));
693ok($objJa->eq("\x{30D5}\x{30FE}", "\x{30D5}\x{30FD}".$vs));
694ok($objJa->eq("\x{FF8C}\x{30FE}", "\x{FF8C}\x{30FD}".$vs));
695ok($objJa->eq("\x{3075}\x{309E}", "\x{3075}\x{309D}".$vs));
696ok($objJa->eq("\x{30D6}\x{30FD}", "\x{30D5}\x{3099}\x{30FD}"));
697ok($objJa->eq("\x{30D6}\x{30FD}", "\x{FF8C}\x{FF9E}\x{30FD}"));
698ok($objJa->eq("\x{3076}\x{309D}", "\x{3075}\x{3099}\x{309D}"));
699ok($objJa->eq("\x{30D6}\x{30FE}", "\x{30D6}\x{30FD}".$vs));
700ok($objJa->eq("\x{30D5}\x{3099}\x{30FE}", "\x{30D5}\x{3099}\x{30FD}".$vs));
701ok($objJa->eq("\x{FF8C}\x{FF9E}\x{30FE}", "\x{FF8C}\x{FF9E}\x{30FD}".$vs));
702ok($objJa->eq("\x{3076}\x{309E}", "\x{3076}\x{309D}".$vs));
703ok($objJa->eq("\x{3075}\x{3099}\x{309E}", "\x{3075}\x{3099}\x{309D}".$vs));
704ok($objJa->eq("\x{30D7}\x{30FD}", "\x{30D5}\x{309A}\x{30FD}"));
705ok($objJa->eq("\x{30D7}\x{30FD}", "\x{FF8C}\x{FF9F}\x{30FD}"));
706ok($objJa->eq("\x{3077}\x{309D}", "\x{3075}\x{309A}\x{309D}"));
707ok($objJa->eq("\x{30D7}\x{30FE}", "\x{30D7}\x{30FD}".$vs));
708ok($objJa->eq("\x{30D5}\x{309A}\x{30FE}", "\x{30D5}\x{309A}\x{30FD}".$vs));
709ok($objJa->eq("\x{FF8C}\x{FF9F}\x{30FE}", "\x{FF8C}\x{FF9F}\x{30FD}".$vs));
710ok($objJa->eq("\x{3077}\x{309E}", "\x{3077}\x{309D}".$vs));
711ok($objJa->eq("\x{3075}\x{309A}\x{309E}", "\x{3075}\x{309A}\x{309D}".$vs));
712ok($objJa->eq("\x{30D8}\x{30FD}", "\x{FF8D}\x{30FD}"));
713ok($objJa->eq("\x{30D8}\x{30FE}", "\x{30D8}\x{30FD}".$vs));
714ok($objJa->eq("\x{FF8D}\x{30FE}", "\x{FF8D}\x{30FD}".$vs));
715ok($objJa->eq("\x{3078}\x{309E}", "\x{3078}\x{309D}".$vs));
716ok($objJa->eq("\x{30D9}\x{30FD}", "\x{30D8}\x{3099}\x{30FD}"));
717ok($objJa->eq("\x{30D9}\x{30FD}", "\x{FF8D}\x{FF9E}\x{30FD}"));
718ok($objJa->eq("\x{3079}\x{309D}", "\x{3078}\x{3099}\x{309D}"));
719ok($objJa->eq("\x{30D9}\x{30FE}", "\x{30D9}\x{30FD}".$vs));
720ok($objJa->eq("\x{30D8}\x{3099}\x{30FE}", "\x{30D8}\x{3099}\x{30FD}".$vs));
721ok($objJa->eq("\x{FF8D}\x{FF9E}\x{30FE}", "\x{FF8D}\x{FF9E}\x{30FD}".$vs));
722ok($objJa->eq("\x{3079}\x{309E}", "\x{3079}\x{309D}".$vs));
723ok($objJa->eq("\x{3078}\x{3099}\x{309E}", "\x{3078}\x{3099}\x{309D}".$vs));
724ok($objJa->eq("\x{30DA}\x{30FD}", "\x{30D8}\x{309A}\x{30FD}"));
725ok($objJa->eq("\x{30DA}\x{30FD}", "\x{FF8D}\x{FF9F}\x{30FD}"));
726ok($objJa->eq("\x{307A}\x{309D}", "\x{3078}\x{309A}\x{309D}"));
727ok($objJa->eq("\x{30DA}\x{30FE}", "\x{30DA}\x{30FD}".$vs));
728ok($objJa->eq("\x{30D8}\x{309A}\x{30FE}", "\x{30D8}\x{309A}\x{30FD}".$vs));
729ok($objJa->eq("\x{FF8D}\x{FF9F}\x{30FE}", "\x{FF8D}\x{FF9F}\x{30FD}".$vs));
730ok($objJa->eq("\x{307A}\x{309E}", "\x{307A}\x{309D}".$vs));
731ok($objJa->eq("\x{3078}\x{309A}\x{309E}", "\x{3078}\x{309A}\x{309D}".$vs));
732ok($objJa->eq("\x{30DB}\x{30FD}", "\x{FF8E}\x{30FD}"));
733ok($objJa->eq("\x{30DB}\x{30FE}", "\x{30DB}\x{30FD}".$vs));
734ok($objJa->eq("\x{FF8E}\x{30FE}", "\x{FF8E}\x{30FD}".$vs));
735ok($objJa->eq("\x{307B}\x{309E}", "\x{307B}\x{309D}".$vs));
736ok($objJa->eq("\x{30DC}\x{30FD}", "\x{30DB}\x{3099}\x{30FD}"));
737ok($objJa->eq("\x{30DC}\x{30FD}", "\x{FF8E}\x{FF9E}\x{30FD}"));
738ok($objJa->eq("\x{307C}\x{309D}", "\x{307B}\x{3099}\x{309D}"));
739ok($objJa->eq("\x{30DC}\x{30FE}", "\x{30DC}\x{30FD}".$vs));
740ok($objJa->eq("\x{30DB}\x{3099}\x{30FE}", "\x{30DB}\x{3099}\x{30FD}".$vs));
741ok($objJa->eq("\x{FF8E}\x{FF9E}\x{30FE}", "\x{FF8E}\x{FF9E}\x{30FD}".$vs));
742ok($objJa->eq("\x{307C}\x{309E}", "\x{307C}\x{309D}".$vs));
743ok($objJa->eq("\x{307B}\x{3099}\x{309E}", "\x{307B}\x{3099}\x{309D}".$vs));
744ok($objJa->eq("\x{30DD}\x{30FD}", "\x{30DB}\x{309A}\x{30FD}"));
745ok($objJa->eq("\x{30DD}\x{30FD}", "\x{FF8E}\x{FF9F}\x{30FD}"));
746ok($objJa->eq("\x{307D}\x{309D}", "\x{307B}\x{309A}\x{309D}"));
747ok($objJa->eq("\x{30DD}\x{30FE}", "\x{30DD}\x{30FD}".$vs));
748ok($objJa->eq("\x{30DB}\x{309A}\x{30FE}", "\x{30DB}\x{309A}\x{30FD}".$vs));
749ok($objJa->eq("\x{FF8E}\x{FF9F}\x{30FE}", "\x{FF8E}\x{FF9F}\x{30FD}".$vs));
750ok($objJa->eq("\x{307D}\x{309E}", "\x{307D}\x{309D}".$vs));
751ok($objJa->eq("\x{307B}\x{309A}\x{309E}", "\x{307B}\x{309A}\x{309D}".$vs));
752ok($objJa->eq("\x{30DE}\x{30FD}", "\x{FF8F}\x{30FD}"));
753ok($objJa->eq("\x{30DF}\x{30FD}", "\x{FF90}\x{30FD}"));
754ok($objJa->eq("\x{30E0}\x{30FD}", "\x{FF91}\x{30FD}"));
755ok($objJa->eq("\x{30E1}\x{30FD}", "\x{FF92}\x{30FD}"));
756ok($objJa->eq("\x{30E2}\x{30FD}", "\x{FF93}\x{30FD}"));
757ok($objJa->eq("\x{30E3}\x{30FD}", "\x{FF6C}\x{30FD}"));
758ok($objJa->eq("\x{30E4}\x{30FD}", "\x{FF94}\x{30FD}"));
759ok($objJa->eq("\x{30E5}\x{30FD}", "\x{FF6D}\x{30FD}"));
760ok($objJa->eq("\x{30E6}\x{30FD}", "\x{FF95}\x{30FD}"));
761ok($objJa->eq("\x{30E7}\x{30FD}", "\x{FF6E}\x{30FD}"));
762ok($objJa->eq("\x{30E8}\x{30FD}", "\x{FF96}\x{30FD}"));
763ok($objJa->eq("\x{30E9}\x{30FD}", "\x{FF97}\x{30FD}"));
764ok($objJa->eq("\x{30EA}\x{30FD}", "\x{FF98}\x{30FD}"));
765ok($objJa->eq("\x{30EB}\x{30FD}", "\x{FF99}\x{30FD}"));
766ok($objJa->eq("\x{30EC}\x{30FD}", "\x{FF9A}\x{30FD}"));
767ok($objJa->eq("\x{30ED}\x{30FD}", "\x{FF9B}\x{30FD}"));
768ok($objJa->eq("\x{30EE}\x{30FE}", "\x{30EE}\x{30FD}".$vs));
769ok($objJa->eq("\x{308E}\x{309E}", "\x{308E}\x{309D}".$vs));
770ok($objJa->eq("\x{30EF}\x{30FD}", "\x{FF9C}\x{30FD}"));
771ok($objJa->eq("\x{30EF}\x{30FE}", "\x{30EF}\x{30FD}".$vs));
772ok($objJa->eq("\x{FF9C}\x{30FE}", "\x{FF9C}\x{30FD}".$vs));
773ok($objJa->eq("\x{308F}\x{309E}", "\x{308F}\x{309D}".$vs));
774ok($objJa->eq("\x{30F0}\x{30FE}", "\x{30F0}\x{30FD}".$vs));
775ok($objJa->eq("\x{3090}\x{309E}", "\x{3090}\x{309D}".$vs));
776ok($objJa->eq("\x{30F1}\x{30FE}", "\x{30F1}\x{30FD}".$vs));
777ok($objJa->eq("\x{3091}\x{309E}", "\x{3091}\x{309D}".$vs));
778ok($objJa->eq("\x{30F2}\x{30FD}", "\x{FF66}\x{30FD}"));
779ok($objJa->eq("\x{30F2}\x{30FE}", "\x{30F2}\x{30FD}".$vs));
780ok($objJa->eq("\x{FF66}\x{30FE}", "\x{FF66}\x{30FD}".$vs));
781ok($objJa->eq("\x{3092}\x{309E}", "\x{3092}\x{309D}".$vs));
782ok($objJa->eq("\x{30F3}\x{30FD}", "\x{FF9D}\x{30FD}"));
783ok($objJa->eq("\x{30F4}\x{30FD}", "\x{30A6}\x{3099}\x{30FD}"));
784ok($objJa->eq("\x{30F4}\x{30FD}", "\x{FF73}\x{FF9E}\x{30FD}"));
785ok($objJa->eq("\x{3094}\x{309D}", "\x{3046}\x{3099}\x{309D}"));
786ok($objJa->eq("\x{30F4}\x{30FE}", "\x{30F4}\x{30FD}".$vs));
787ok($objJa->eq("\x{30A6}\x{3099}\x{30FE}", "\x{30A6}\x{3099}\x{30FD}".$vs));
788ok($objJa->eq("\x{FF73}\x{FF9E}\x{30FE}", "\x{FF73}\x{FF9E}\x{30FD}".$vs));
789ok($objJa->eq("\x{3094}\x{309E}", "\x{3094}\x{309D}".$vs));
790ok($objJa->eq("\x{3046}\x{3099}\x{309E}", "\x{3046}\x{3099}\x{309D}".$vs));
791ok($objJa->eq("\x{30F5}\x{30FE}", "\x{30F5}\x{30FD}".$vs));
792ok($objJa->eq("\x{3095}\x{309E}", "\x{3095}\x{309D}".$vs));
793ok($objJa->eq("\x{30F6}\x{30FE}", "\x{30F6}\x{30FD}".$vs));
794ok($objJa->eq("\x{3096}\x{309E}", "\x{3096}\x{309D}".$vs));
795ok($objJa->eq("\x{30F7}\x{30FD}", "\x{30EF}\x{3099}\x{30FD}"));
796ok($objJa->eq("\x{30F7}\x{30FD}", "\x{FF9C}\x{FF9E}\x{30FD}"));
797ok($objJa->eq("\x{30F7}\x{30FE}", "\x{30F7}\x{30FD}".$vs));
798ok($objJa->eq("\x{30EF}\x{3099}\x{30FE}", "\x{30EF}\x{3099}\x{30FD}".$vs));
799ok($objJa->eq("\x{FF9C}\x{FF9E}\x{30FE}", "\x{FF9C}\x{FF9E}\x{30FD}".$vs));
800ok($objJa->eq("\x{30F8}\x{30FD}", "\x{30F0}\x{3099}\x{30FD}"));
801ok($objJa->eq("\x{30F8}\x{30FE}", "\x{30F8}\x{30FD}".$vs));
802ok($objJa->eq("\x{30F0}\x{3099}\x{30FE}", "\x{30F0}\x{3099}\x{30FD}".$vs));
803ok($objJa->eq("\x{30F9}\x{30FD}", "\x{30F1}\x{3099}\x{30FD}"));
804ok($objJa->eq("\x{30F9}\x{30FE}", "\x{30F9}\x{30FD}".$vs));
805ok($objJa->eq("\x{30F1}\x{3099}\x{30FE}", "\x{30F1}\x{3099}\x{30FD}".$vs));
806ok($objJa->eq("\x{30FA}\x{30FD}", "\x{30F2}\x{3099}\x{30FD}"));
807ok($objJa->eq("\x{30FA}\x{30FD}", "\x{FF66}\x{FF9E}\x{30FD}"));
808ok($objJa->eq("\x{30FA}\x{30FE}", "\x{30FA}\x{30FD}".$vs));
809ok($objJa->eq("\x{30F2}\x{3099}\x{30FE}", "\x{30F2}\x{3099}\x{30FD}".$vs));
810ok($objJa->eq("\x{FF66}\x{FF9E}\x{30FE}", "\x{FF66}\x{FF9E}\x{30FD}".$vs));
811ok($objJa->eq("\x{31F0}\x{30FE}", "\x{31F0}\x{30FD}".$vs));
812ok($objJa->eq("\x{31F1}\x{30FE}", "\x{31F1}\x{30FD}".$vs));
813ok($objJa->eq("\x{31F2}\x{30FE}", "\x{31F2}\x{30FD}".$vs));
814ok($objJa->eq("\x{31F3}\x{30FE}", "\x{31F3}\x{30FD}".$vs));
815ok($objJa->eq("\x{31F5}\x{30FE}", "\x{31F5}\x{30FD}".$vs));
816ok($objJa->eq("\x{31F6}\x{30FE}", "\x{31F6}\x{30FD}".$vs));
817ok($objJa->eq("\x{31F7}\x{30FE}", "\x{31F7}\x{30FD}".$vs));
818ok($objJa->eq("\x{31F8}\x{30FE}", "\x{31F8}\x{30FD}".$vs));
819ok($objJa->eq("\x{31F9}\x{30FE}", "\x{31F9}\x{30FD}".$vs));
820
821# 759
822