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..3589\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 $objDefault = Unicode::Collate::Locale->
37    new(locale => 'DEFAULT', normalization => undef);
38
39ok($objDefault->getlocale, 'default');
40
41my $objZhP = Unicode::Collate::Locale->
42    new(locale => 'ZH__pinyin', normalization => undef);
43
44ok($objZhP->getlocale, 'zh__pinyin');
45
46my $objZhS = Unicode::Collate::Locale->
47    new(locale => 'ZH__stroke', normalization => undef);
48
49ok($objZhS->getlocale, 'zh__stroke');
50
51my $objZhZ = Unicode::Collate::Locale->
52    new(locale => 'ZH__zhuyin', normalization => undef);
53
54ok($objZhZ->getlocale, 'zh__zhuyin');
55
56for my $obj ($objDefault, $objZhP, $objZhS, $objZhZ) {
57    for my $lev (2, 3) {
58	$obj->change(level => $lev);
59	my $r = $lev == 2 ? 0 : 1;
60	ok($obj->cmp("\x{3220}", "\(\x{4E00}\)"), $r);
61	ok($obj->cmp("\x{3226}", "\(\x{4E03}\)"), $r);
62	ok($obj->cmp("\x{3222}", "\(\x{4E09}\)"), $r);
63	ok($obj->cmp("\x{3228}", "\(\x{4E5D}\)"), $r);
64	ok($obj->cmp("\x{3221}", "\(\x{4E8C}\)"), $r);
65	ok($obj->cmp("\x{3224}", "\(\x{4E94}\)"), $r);
66	ok($obj->cmp("\x{3239}", "\(\x{4EE3}\)"), $r);
67	ok($obj->cmp("\x{323D}", "\(\x{4F01}\)"), $r);
68	ok($obj->cmp("\x{3241}", "\(\x{4F11}\)"), $r);
69	ok($obj->cmp("\x{3227}", "\(\x{516B}\)"), $r);
70	ok($obj->cmp("\x{3225}", "\(\x{516D}\)"), $r);
71	ok($obj->cmp("\x{3238}", "\(\x{52B4}\)"), $r);
72	ok($obj->cmp("\x{3229}", "\(\x{5341}\)"), $r);
73	ok($obj->cmp("\x{323F}", "\(\x{5354}\)"), $r);
74	ok($obj->cmp("\x{3234}", "\(\x{540D}\)"), $r);
75	ok($obj->cmp("\x{323A}", "\(\x{547C}\)"), $r);
76	ok($obj->cmp("\x{3223}", "\(\x{56DB}\)"), $r);
77	ok($obj->cmp("\x{322F}", "\(\x{571F}\)"), $r);
78	ok($obj->cmp("\x{323B}", "\(\x{5B66}\)"), $r);
79	ok($obj->cmp("\x{3230}", "\(\x{65E5}\)"), $r);
80	ok($obj->cmp("\x{322A}", "\(\x{6708}\)"), $r);
81	ok($obj->cmp("\x{3232}", "\(\x{6709}\)"), $r);
82	ok($obj->cmp("\x{322D}", "\(\x{6728}\)"), $r);
83	ok($obj->cmp("\x{3231}", "\(\x{682A}\)"), $r);
84	ok($obj->cmp("\x{322C}", "\(\x{6C34}\)"), $r);
85	ok($obj->cmp("\x{322B}", "\(\x{706B}\)"), $r);
86	ok($obj->cmp("\x{3235}", "\(\x{7279}\)"), $r);
87	ok($obj->cmp("\x{323C}", "\(\x{76E3}\)"), $r);
88	ok($obj->cmp("\x{3233}", "\(\x{793E}\)"), $r);
89	ok($obj->cmp("\x{3237}", "\(\x{795D}\)"), $r);
90	ok($obj->cmp("\x{3240}", "\(\x{796D}\)"), $r);
91	ok($obj->cmp("\x{3242}", "\(\x{81EA}\)"), $r);
92	ok($obj->cmp("\x{3243}", "\(\x{81F3}\)"), $r);
93	ok($obj->cmp("\x{3236}", "\(\x{8CA1}\)"), $r);
94	ok($obj->cmp("\x{323E}", "\(\x{8CC7}\)"), $r);
95	ok($obj->cmp("\x{322E}", "\(\x{91D1}\)"), $r);
96	ok($obj->cmp("\x{3358}", "0\x{70B9}"), $r);
97	ok($obj->cmp("\x{33E9}", "10\x{65E5}"), $r);
98	ok($obj->cmp("\x{32C9}", "10\x{6708}"), $r);
99	ok($obj->cmp("\x{3362}", "10\x{70B9}"), $r);
100	ok($obj->cmp("\x{33EA}", "11\x{65E5}"), $r);
101	ok($obj->cmp("\x{32CA}", "11\x{6708}"), $r);
102	ok($obj->cmp("\x{3363}", "11\x{70B9}"), $r);
103	ok($obj->cmp("\x{33EB}", "12\x{65E5}"), $r);
104	ok($obj->cmp("\x{32CB}", "12\x{6708}"), $r);
105	ok($obj->cmp("\x{3364}", "12\x{70B9}"), $r);
106	ok($obj->cmp("\x{33EC}", "13\x{65E5}"), $r);
107	ok($obj->cmp("\x{3365}", "13\x{70B9}"), $r);
108	ok($obj->cmp("\x{33ED}", "14\x{65E5}"), $r);
109	ok($obj->cmp("\x{3366}", "14\x{70B9}"), $r);
110	ok($obj->cmp("\x{33EE}", "15\x{65E5}"), $r);
111	ok($obj->cmp("\x{3367}", "15\x{70B9}"), $r);
112	ok($obj->cmp("\x{33EF}", "16\x{65E5}"), $r);
113	ok($obj->cmp("\x{3368}", "16\x{70B9}"), $r);
114	ok($obj->cmp("\x{33F0}", "17\x{65E5}"), $r);
115	ok($obj->cmp("\x{3369}", "17\x{70B9}"), $r);
116	ok($obj->cmp("\x{33F1}", "18\x{65E5}"), $r);
117	ok($obj->cmp("\x{336A}", "18\x{70B9}"), $r);
118	ok($obj->cmp("\x{33F2}", "19\x{65E5}"), $r);
119	ok($obj->cmp("\x{336B}", "19\x{70B9}"), $r);
120	ok($obj->cmp("\x{33E0}", "1\x{65E5}"), $r);
121	ok($obj->cmp("\x{32C0}", "1\x{6708}"), $r);
122	ok($obj->cmp("\x{3359}", "1\x{70B9}"), $r);
123	ok($obj->cmp("\x{33F3}", "20\x{65E5}"), $r);
124	ok($obj->cmp("\x{336C}", "20\x{70B9}"), $r);
125	ok($obj->cmp("\x{33F4}", "21\x{65E5}"), $r);
126	ok($obj->cmp("\x{336D}", "21\x{70B9}"), $r);
127	ok($obj->cmp("\x{33F5}", "22\x{65E5}"), $r);
128	ok($obj->cmp("\x{336E}", "22\x{70B9}"), $r);
129	ok($obj->cmp("\x{33F6}", "23\x{65E5}"), $r);
130	ok($obj->cmp("\x{336F}", "23\x{70B9}"), $r);
131	ok($obj->cmp("\x{33F7}", "24\x{65E5}"), $r);
132	ok($obj->cmp("\x{3370}", "24\x{70B9}"), $r);
133	ok($obj->cmp("\x{33F8}", "25\x{65E5}"), $r);
134	ok($obj->cmp("\x{33F9}", "26\x{65E5}"), $r);
135	ok($obj->cmp("\x{33FA}", "27\x{65E5}"), $r);
136	ok($obj->cmp("\x{33FB}", "28\x{65E5}"), $r);
137	ok($obj->cmp("\x{33FC}", "29\x{65E5}"), $r);
138	ok($obj->cmp("\x{33E1}", "2\x{65E5}"), $r);
139	ok($obj->cmp("\x{32C1}", "2\x{6708}"), $r);
140	ok($obj->cmp("\x{335A}", "2\x{70B9}"), $r);
141	ok($obj->cmp("\x{33FD}", "30\x{65E5}"), $r);
142	ok($obj->cmp("\x{33FE}", "31\x{65E5}"), $r);
143	ok($obj->cmp("\x{33E2}", "3\x{65E5}"), $r);
144	ok($obj->cmp("\x{32C2}", "3\x{6708}"), $r);
145	ok($obj->cmp("\x{335B}", "3\x{70B9}"), $r);
146	ok($obj->cmp("\x{33E3}", "4\x{65E5}"), $r);
147	ok($obj->cmp("\x{32C3}", "4\x{6708}"), $r);
148	ok($obj->cmp("\x{335C}", "4\x{70B9}"), $r);
149	ok($obj->cmp("\x{33E4}", "5\x{65E5}"), $r);
150	ok($obj->cmp("\x{32C4}", "5\x{6708}"), $r);
151	ok($obj->cmp("\x{335D}", "5\x{70B9}"), $r);
152	ok($obj->cmp("\x{33E5}", "6\x{65E5}"), $r);
153	ok($obj->cmp("\x{32C5}", "6\x{6708}"), $r);
154	ok($obj->cmp("\x{335E}", "6\x{70B9}"), $r);
155	ok($obj->cmp("\x{33E6}", "7\x{65E5}"), $r);
156	ok($obj->cmp("\x{32C6}", "7\x{6708}"), $r);
157	ok($obj->cmp("\x{335F}", "7\x{70B9}"), $r);
158	ok($obj->cmp("\x{33E7}", "8\x{65E5}"), $r);
159	ok($obj->cmp("\x{32C7}", "8\x{6708}"), $r);
160	ok($obj->cmp("\x{3360}", "8\x{70B9}"), $r);
161	ok($obj->cmp("\x{33E8}", "9\x{65E5}"), $r);
162	ok($obj->cmp("\x{32C8}", "9\x{6708}"), $r);
163	ok($obj->cmp("\x{3361}", "9\x{70B9}"), $r);
164	ok($obj->cmp("\x{1F241}", "\x{3014}\x{4E09}\x{3015}"), $r);
165	ok($obj->cmp("\x{1F242}", "\x{3014}\x{4E8C}\x{3015}"), $r);
166	ok($obj->cmp("\x{1F247}", "\x{3014}\x{52DD}\x{3015}"), $r);
167	ok($obj->cmp("\x{1F243}", "\x{3014}\x{5B89}\x{3015}"), $r);
168	ok($obj->cmp("\x{1F245}", "\x{3014}\x{6253}\x{3015}"), $r);
169	ok($obj->cmp("\x{1F248}", "\x{3014}\x{6557}\x{3015}"), $r);
170	ok($obj->cmp("\x{1F240}", "\x{3014}\x{672C}\x{3015}"), $r);
171	ok($obj->cmp("\x{1F244}", "\x{3014}\x{70B9}\x{3015}"), $r);
172	ok($obj->cmp("\x{1F246}", "\x{3014}\x{76D7}\x{3015}"), $r);
173	ok($obj->cmp("\x{2F00}", "\x{4E00}"), $r);
174	ok($obj->cmp("\x{3192}", "\x{4E00}"), $r);
175	ok($obj->cmp("\x{3280}", "\x{4E00}"), $r);
176	ok($obj->cmp("\x{1F229}", "\x{4E00}"), $r);
177	ok($obj->cmp("\x{319C}", "\x{4E01}"), $r);
178	ok($obj->cmp("\x{3286}", "\x{4E03}"), $r);
179	ok($obj->cmp("\x{3194}", "\x{4E09}"), $r);
180	ok($obj->cmp("\x{3282}", "\x{4E09}"), $r);
181	ok($obj->cmp("\x{1F22A}", "\x{4E09}"), $r);
182	ok($obj->cmp("\x{3196}", "\x{4E0A}"), $r);
183	ok($obj->cmp("\x{32A4}", "\x{4E0A}"), $r);
184	ok($obj->cmp("\x{3198}", "\x{4E0B}"), $r);
185	ok($obj->cmp("\x{32A6}", "\x{4E0B}"), $r);
186	ok($obj->cmp("\x{319B}", "\x{4E19}"), $r);
187	ok($obj->cmp("\x{2F01}", "\x{4E28}"), $r);
188	ok($obj->cmp("\x{3197}", "\x{4E2D}"), $r);
189	ok($obj->cmp("\x{32A5}", "\x{4E2D}"), $r);
190	ok($obj->cmp("\x{1F22D}", "\x{4E2D}"), $r);
191	ok($obj->cmp("\x{2F02}", "\x{4E36}"), $r);
192	ok($obj->cmp("\x{2F03}", "\x{4E3F}"), $r);
193	ok($obj->cmp("\x{2F04}", "\x{4E59}"), $r);
194	ok($obj->cmp("\x{319A}", "\x{4E59}"), $r);
195	ok($obj->cmp("\x{3288}", "\x{4E5D}"), $r);
196	ok($obj->cmp("\x{2F05}", "\x{4E85}"), $r);
197	ok($obj->cmp("\x{2F06}", "\x{4E8C}"), $r);
198	ok($obj->cmp("\x{3193}", "\x{4E8C}"), $r);
199	ok($obj->cmp("\x{3281}", "\x{4E8C}"), $r);
200	ok($obj->cmp("\x{1F214}", "\x{4E8C}"), $r);
201	ok($obj->cmp("\x{3284}", "\x{4E94}"), $r);
202	ok($obj->cmp("\x{2F07}", "\x{4EA0}"), $r);
203	ok($obj->cmp("\x{1F218}", "\x{4EA4}"), $r);
204	ok($obj->cmp("\x{2F08}", "\x{4EBA}"), $r);
205	ok($obj->cmp("\x{319F}", "\x{4EBA}"), $r);
206	ok($obj->cmp("\x{32AD}", "\x{4F01}"), $r);
207	ok($obj->cmp("\x{32A1}", "\x{4F11}"), $r);
208	ok($obj->cmp("\x{329D}", "\x{512A}"), $r);
209	ok($obj->cmp("\x{2F09}", "\x{513F}"), $r);
210	ok($obj->cmp("\x{2F0A}", "\x{5165}"), $r);
211	ok($obj->cmp("\x{2F0B}", "\x{516B}"), $r);
212	ok($obj->cmp("\x{3287}", "\x{516B}"), $r);
213	ok($obj->cmp("\x{3285}", "\x{516D}"), $r);
214	ok($obj->cmp("\x{2F0C}", "\x{5182}"), $r);
215	ok($obj->cmp("\x{1F21E}", "\x{518D}"), $r);
216	ok($obj->cmp("\x{2F0D}", "\x{5196}"), $r);
217	ok($obj->cmp("\x{32A2}", "\x{5199}"), $r);
218	ok($obj->cmp("\x{2F0E}", "\x{51AB}"), $r);
219	ok($obj->cmp("\x{2F0F}", "\x{51E0}"), $r);
220	ok($obj->cmp("\x{2F10}", "\x{51F5}"), $r);
221	ok($obj->cmp("\x{2F11}", "\x{5200}"), $r);
222	ok($obj->cmp("\x{1F220}", "\x{521D}"), $r);
223	ok($obj->cmp("\x{1F21C}", "\x{524D}"), $r);
224	ok($obj->cmp("\x{1F239}", "\x{5272}"), $r);
225	ok($obj->cmp("\x{2F12}", "\x{529B}"), $r);
226	ok($obj->cmp("\x{3298}", "\x{52B4}"), $r);
227	ok($obj->cmp("\x{2F13}", "\x{52F9}"), $r);
228	ok($obj->cmp("\x{2F14}", "\x{5315}"), $r);
229	ok($obj->cmp("\x{2F15}", "\x{531A}"), $r);
230	ok($obj->cmp("\x{2F16}", "\x{5338}"), $r);
231	ok($obj->cmp("\x{32A9}", "\x{533B}"), $r);
232	ok($obj->cmp("\x{2F17}", "\x{5341}"), $r);
233	ok($obj->cmp("\x{3038}", "\x{5341}"), $r);
234	ok($obj->cmp("\x{3289}", "\x{5341}"), $r);
235	ok($obj->cmp("\x{3039}", "\x{5344}"), $r);
236	ok($obj->cmp("\x{303A}", "\x{5345}"), $r);
237	ok($obj->cmp("\x{32AF}", "\x{5354}"), $r);
238	ok($obj->cmp("\x{2F18}", "\x{535C}"), $r);
239	ok($obj->cmp("\x{2F19}", "\x{5369}"), $r);
240	ok($obj->cmp("\x{329E}", "\x{5370}"), $r);
241	ok($obj->cmp("\x{2F1A}", "\x{5382}"), $r);
242	ok($obj->cmp("\x{2F1B}", "\x{53B6}"), $r);
243	ok($obj->cmp("\x{2F1C}", "\x{53C8}"), $r);
244	ok($obj->cmp("\x{1F212}", "\x{53CC}"), $r);
245	ok($obj->cmp("\x{2F1D}", "\x{53E3}"), $r);
246	ok($obj->cmp("\x{1F251}", "\x{53EF}"), $r);
247	ok($obj->cmp("\x{32A8}", "\x{53F3}"), $r);
248	ok($obj->cmp("\x{1F22E}", "\x{53F3}"), $r);
249	ok($obj->cmp("\x{1F234}", "\x{5408}"), $r);
250	ok($obj->cmp("\x{3294}", "\x{540D}"), $r);
251	ok($obj->cmp("\x{1F225}", "\x{5439}"), $r);
252	ok($obj->cmp("\x{3244}", "\x{554F}"), $r);
253	ok($obj->cmp("\x{1F23A}", "\x{55B6}"), $r);
254	ok($obj->cmp("\x{2F1E}", "\x{56D7}"), $r);
255	ok($obj->cmp("\x{3195}", "\x{56DB}"), $r);
256	ok($obj->cmp("\x{3283}", "\x{56DB}"), $r);
257	ok($obj->cmp("\x{2F1F}", "\x{571F}"), $r);
258	ok($obj->cmp("\x{328F}", "\x{571F}"), $r);
259	ok($obj->cmp("\x{319E}", "\x{5730}"), $r);
260	ok($obj->cmp("\x{2F20}", "\x{58EB}"), $r);
261	ok($obj->cmp("\x{1F224}", "\x{58F0}"), $r);
262	ok($obj->cmp("\x{2F21}", "\x{5902}"), $r);
263	ok($obj->cmp("\x{2F22}", "\x{590A}"), $r);
264	ok($obj->cmp("\x{2F23}", "\x{5915}"), $r);
265	ok($obj->cmp("\x{1F215}", "\x{591A}"), $r);
266	ok($obj->cmp("\x{32B0}", "\x{591C}"), $r);
267	ok($obj->cmp("\x{2F24}", "\x{5927}"), $r);
268	ok($obj->cmp("\x{337D}", "\x{5927}\x{6B63}"), $r);
269	ok($obj->cmp("\x{319D}", "\x{5929}"), $r);
270	ok($obj->cmp("\x{1F217}", "\x{5929}"), $r);
271	ok($obj->cmp("\x{2F25}", "\x{5973}"), $r);
272	ok($obj->cmp("\x{329B}", "\x{5973}"), $r);
273	ok($obj->cmp("\x{2F26}", "\x{5B50}"), $r);
274	ok($obj->cmp("\x{1F211}", "\x{5B57}"), $r);
275	ok($obj->cmp("\x{32AB}", "\x{5B66}"), $r);
276	ok($obj->cmp("\x{2F27}", "\x{5B80}"), $r);
277	ok($obj->cmp("\x{32AA}", "\x{5B97}"), $r);
278	ok($obj->cmp("\x{2F28}", "\x{5BF8}"), $r);
279	ok($obj->cmp("\x{2F29}", "\x{5C0F}"), $r);
280	ok($obj->cmp("\x{2F2A}", "\x{5C22}"), $r);
281	ok($obj->cmp("\x{2F2B}", "\x{5C38}"), $r);
282	ok($obj->cmp("\x{2F2C}", "\x{5C6E}"), $r);
283	ok($obj->cmp("\x{2F2D}", "\x{5C71}"), $r);
284	ok($obj->cmp("\x{2F2E}", "\x{5DDB}"), $r);
285	ok($obj->cmp("\x{2F2F}", "\x{5DE5}"), $r);
286	ok($obj->cmp("\x{32A7}", "\x{5DE6}"), $r);
287	ok($obj->cmp("\x{1F22C}", "\x{5DE6}"), $r);
288	ok($obj->cmp("\x{2F30}", "\x{5DF1}"), $r);
289	ok($obj->cmp("\x{2F31}", "\x{5DFE}"), $r);
290	ok($obj->cmp("\x{2F32}", "\x{5E72}"), $r);
291	ok($obj->cmp("\x{337B}", "\x{5E73}\x{6210}"), $r);
292	ok($obj->cmp("\x{2F33}", "\x{5E7A}"), $r);
293	ok($obj->cmp("\x{3245}", "\x{5E7C}"), $r);
294	ok($obj->cmp("\x{2F34}", "\x{5E7F}"), $r);
295	ok($obj->cmp("\x{2F35}", "\x{5EF4}"), $r);
296	ok($obj->cmp("\x{2F36}", "\x{5EFE}"), $r);
297	ok($obj->cmp("\x{2F37}", "\x{5F0B}"), $r);
298	ok($obj->cmp("\x{2F38}", "\x{5F13}"), $r);
299	ok($obj->cmp("\x{2F39}", "\x{5F50}"), $r);
300	ok($obj->cmp("\x{2F3A}", "\x{5F61}"), $r);
301	ok($obj->cmp("\x{2F3B}", "\x{5F73}"), $r);
302	ok($obj->cmp("\x{1F21D}", "\x{5F8C}"), $r);
303	ok($obj->cmp("\x{1F250}", "\x{5F97}"), $r);
304	ok($obj->cmp("\x{2F3C}", "\x{5FC3}"), $r);
305	ok($obj->cmp("\x{2F3D}", "\x{6208}"), $r);
306	ok($obj->cmp("\x{2F3E}", "\x{6236}"), $r);
307	ok($obj->cmp("\x{2F3F}", "\x{624B}"), $r);
308	ok($obj->cmp("\x{1F210}", "\x{624B}"), $r);
309	ok($obj->cmp("\x{1F231}", "\x{6253}"), $r);
310	ok($obj->cmp("\x{1F227}", "\x{6295}"), $r);
311	ok($obj->cmp("\x{1F22F}", "\x{6307}"), $r);
312	ok($obj->cmp("\x{1F228}", "\x{6355}"), $r);
313	ok($obj->cmp("\x{2F40}", "\x{652F}"), $r);
314	ok($obj->cmp("\x{2F41}", "\x{6534}"), $r);
315	ok($obj->cmp("\x{2F42}", "\x{6587}"), $r);
316	ok($obj->cmp("\x{3246}", "\x{6587}"), $r);
317	ok($obj->cmp("\x{2F43}", "\x{6597}"), $r);
318	ok($obj->cmp("\x{1F21B}", "\x{6599}"), $r);
319	ok($obj->cmp("\x{2F44}", "\x{65A4}"), $r);
320	ok($obj->cmp("\x{1F21F}", "\x{65B0}"), $r);
321	ok($obj->cmp("\x{2F45}", "\x{65B9}"), $r);
322	ok($obj->cmp("\x{2F46}", "\x{65E0}"), $r);
323	ok($obj->cmp("\x{2F47}", "\x{65E5}"), $r);
324	ok($obj->cmp("\x{3290}", "\x{65E5}"), $r);
325	ok($obj->cmp("\x{337E}", "\x{660E}\x{6CBB}"), $r);
326	ok($obj->cmp("\x{1F219}", "\x{6620}"), $r);
327	ok($obj->cmp("\x{337C}", "\x{662D}\x{548C}"), $r);
328	ok($obj->cmp("\x{2F48}", "\x{66F0}"), $r);
329	ok($obj->cmp("\x{2F49}", "\x{6708}"), $r);
330	ok($obj->cmp("\x{328A}", "\x{6708}"), $r);
331	ok($obj->cmp("\x{1F237}", "\x{6708}"), $r);
332	ok($obj->cmp("\x{3292}", "\x{6709}"), $r);
333	ok($obj->cmp("\x{1F236}", "\x{6709}"), $r);
334	ok($obj->cmp("\x{2F4A}", "\x{6728}"), $r);
335	ok($obj->cmp("\x{328D}", "\x{6728}"), $r);
336	ok($obj->cmp("\x{3291}", "\x{682A}"), $r);
337	ok($obj->cmp("\x{337F}", "\x{682A}\x{5F0F}\x{4F1A}\x{793E}"), $r);
338	ok($obj->cmp("\x{2F4B}", "\x{6B20}"), $r);
339	ok($obj->cmp("\x{2F4C}", "\x{6B62}"), $r);
340	ok($obj->cmp("\x{32A3}", "\x{6B63}"), $r);
341	ok($obj->cmp("\x{2F4D}", "\x{6B79}"), $r);
342	ok($obj->cmp("\x{2F4E}", "\x{6BB3}"), $r);
343	ok($obj->cmp("\x{2F4F}", "\x{6BCB}"), $r);
344	ok($obj->cmp("\x{2E9F}", "\x{6BCD}"), $r);
345	ok($obj->cmp("\x{2F50}", "\x{6BD4}"), $r);
346	ok($obj->cmp("\x{2F51}", "\x{6BDB}"), $r);
347	ok($obj->cmp("\x{2F52}", "\x{6C0F}"), $r);
348	ok($obj->cmp("\x{2F53}", "\x{6C14}"), $r);
349	ok($obj->cmp("\x{2F54}", "\x{6C34}"), $r);
350	ok($obj->cmp("\x{328C}", "\x{6C34}"), $r);
351	ok($obj->cmp("\x{329F}", "\x{6CE8}"), $r);
352	ok($obj->cmp("\x{1F235}", "\x{6E80}"), $r);
353	ok($obj->cmp("\x{1F226}", "\x{6F14}"), $r);
354	ok($obj->cmp("\x{2F55}", "\x{706B}"), $r);
355	ok($obj->cmp("\x{328B}", "\x{706B}"), $r);
356	ok($obj->cmp("\x{1F21A}", "\x{7121}"), $r);
357	ok($obj->cmp("\x{2F56}", "\x{722A}"), $r);
358	ok($obj->cmp("\x{2F57}", "\x{7236}"), $r);
359	ok($obj->cmp("\x{2F58}", "\x{723B}"), $r);
360	ok($obj->cmp("\x{2F59}", "\x{723F}"), $r);
361	ok($obj->cmp("\x{2F5A}", "\x{7247}"), $r);
362	ok($obj->cmp("\x{2F5B}", "\x{7259}"), $r);
363	ok($obj->cmp("\x{2F5C}", "\x{725B}"), $r);
364	ok($obj->cmp("\x{3295}", "\x{7279}"), $r);
365	ok($obj->cmp("\x{2F5D}", "\x{72AC}"), $r);
366	ok($obj->cmp("\x{2F5E}", "\x{7384}"), $r);
367	ok($obj->cmp("\x{2F5F}", "\x{7389}"), $r);
368	ok($obj->cmp("\x{2F60}", "\x{74DC}"), $r);
369	ok($obj->cmp("\x{2F61}", "\x{74E6}"), $r);
370	ok($obj->cmp("\x{2F62}", "\x{7518}"), $r);
371	ok($obj->cmp("\x{2F63}", "\x{751F}"), $r);
372	ok($obj->cmp("\x{1F222}", "\x{751F}"), $r);
373	ok($obj->cmp("\x{2F64}", "\x{7528}"), $r);
374	ok($obj->cmp("\x{2F65}", "\x{7530}"), $r);
375	ok($obj->cmp("\x{3199}", "\x{7532}"), $r);
376	ok($obj->cmp("\x{1F238}", "\x{7533}"), $r);
377	ok($obj->cmp("\x{329A}", "\x{7537}"), $r);
378	ok($obj->cmp("\x{2F66}", "\x{758B}"), $r);
379	ok($obj->cmp("\x{2F67}", "\x{7592}"), $r);
380	ok($obj->cmp("\x{2F68}", "\x{7676}"), $r);
381	ok($obj->cmp("\x{2F69}", "\x{767D}"), $r);
382	ok($obj->cmp("\x{2F6A}", "\x{76AE}"), $r);
383	ok($obj->cmp("\x{2F6B}", "\x{76BF}"), $r);
384	ok($obj->cmp("\x{32AC}", "\x{76E3}"), $r);
385	ok($obj->cmp("\x{2F6C}", "\x{76EE}"), $r);
386	ok($obj->cmp("\x{2F6D}", "\x{77DB}"), $r);
387	ok($obj->cmp("\x{2F6E}", "\x{77E2}"), $r);
388	ok($obj->cmp("\x{2F6F}", "\x{77F3}"), $r);
389	ok($obj->cmp("\x{2F70}", "\x{793A}"), $r);
390	ok($obj->cmp("\x{3293}", "\x{793E}"), $r);
391	ok($obj->cmp("\x{3297}", "\x{795D}"), $r);
392	ok($obj->cmp("\x{1F232}", "\x{7981}"), $r);
393	ok($obj->cmp("\x{2F71}", "\x{79B8}"), $r);
394	ok($obj->cmp("\x{2F72}", "\x{79BE}"), $r);
395	ok($obj->cmp("\x{3299}", "\x{79D8}"), $r);
396	ok($obj->cmp("\x{2F73}", "\x{7A74}"), $r);
397	ok($obj->cmp("\x{1F233}", "\x{7A7A}"), $r);
398	ok($obj->cmp("\x{2F74}", "\x{7ACB}"), $r);
399	ok($obj->cmp("\x{2F75}", "\x{7AF9}"), $r);
400	ok($obj->cmp("\x{3247}", "\x{7B8F}"), $r);
401	ok($obj->cmp("\x{2F76}", "\x{7C73}"), $r);
402	ok($obj->cmp("\x{2F77}", "\x{7CF8}"), $r);
403	ok($obj->cmp("\x{1F221}", "\x{7D42}"), $r);
404	ok($obj->cmp("\x{2F78}", "\x{7F36}"), $r);
405	ok($obj->cmp("\x{2F79}", "\x{7F51}"), $r);
406	ok($obj->cmp("\x{2F7A}", "\x{7F8A}"), $r);
407	ok($obj->cmp("\x{2F7B}", "\x{7FBD}"), $r);
408	ok($obj->cmp("\x{2F7C}", "\x{8001}"), $r);
409	ok($obj->cmp("\x{2F7D}", "\x{800C}"), $r);
410	ok($obj->cmp("\x{2F7E}", "\x{8012}"), $r);
411	ok($obj->cmp("\x{2F7F}", "\x{8033}"), $r);
412	ok($obj->cmp("\x{2F80}", "\x{807F}"), $r);
413	ok($obj->cmp("\x{2F81}", "\x{8089}"), $r);
414	ok($obj->cmp("\x{2F82}", "\x{81E3}"), $r);
415	ok($obj->cmp("\x{2F83}", "\x{81EA}"), $r);
416	ok($obj->cmp("\x{2F84}", "\x{81F3}"), $r);
417	ok($obj->cmp("\x{2F85}", "\x{81FC}"), $r);
418	ok($obj->cmp("\x{2F86}", "\x{820C}"), $r);
419	ok($obj->cmp("\x{2F87}", "\x{821B}"), $r);
420	ok($obj->cmp("\x{2F88}", "\x{821F}"), $r);
421	ok($obj->cmp("\x{2F89}", "\x{826E}"), $r);
422	ok($obj->cmp("\x{2F8A}", "\x{8272}"), $r);
423	ok($obj->cmp("\x{2F8B}", "\x{8278}"), $r);
424	ok($obj->cmp("\x{2F8C}", "\x{864D}"), $r);
425	ok($obj->cmp("\x{2F8D}", "\x{866B}"), $r);
426	ok($obj->cmp("\x{2F8E}", "\x{8840}"), $r);
427	ok($obj->cmp("\x{2F8F}", "\x{884C}"), $r);
428	ok($obj->cmp("\x{2F90}", "\x{8863}"), $r);
429	ok($obj->cmp("\x{2F91}", "\x{897E}"), $r);
430	ok($obj->cmp("\x{2F92}", "\x{898B}"), $r);
431	ok($obj->cmp("\x{2F93}", "\x{89D2}"), $r);
432	ok($obj->cmp("\x{1F216}", "\x{89E3}"), $r);
433	ok($obj->cmp("\x{2F94}", "\x{8A00}"), $r);
434	ok($obj->cmp("\x{2F95}", "\x{8C37}"), $r);
435	ok($obj->cmp("\x{2F96}", "\x{8C46}"), $r);
436	ok($obj->cmp("\x{2F97}", "\x{8C55}"), $r);
437	ok($obj->cmp("\x{2F98}", "\x{8C78}"), $r);
438	ok($obj->cmp("\x{2F99}", "\x{8C9D}"), $r);
439	ok($obj->cmp("\x{3296}", "\x{8CA1}"), $r);
440	ok($obj->cmp("\x{1F223}", "\x{8CA9}"), $r);
441	ok($obj->cmp("\x{32AE}", "\x{8CC7}"), $r);
442	ok($obj->cmp("\x{2F9A}", "\x{8D64}"), $r);
443	ok($obj->cmp("\x{2F9B}", "\x{8D70}"), $r);
444	ok($obj->cmp("\x{1F230}", "\x{8D70}"), $r);
445	ok($obj->cmp("\x{2F9C}", "\x{8DB3}"), $r);
446	ok($obj->cmp("\x{2F9D}", "\x{8EAB}"), $r);
447	ok($obj->cmp("\x{2F9E}", "\x{8ECA}"), $r);
448	ok($obj->cmp("\x{2F9F}", "\x{8F9B}"), $r);
449	ok($obj->cmp("\x{2FA0}", "\x{8FB0}"), $r);
450	ok($obj->cmp("\x{2FA1}", "\x{8FB5}"), $r);
451	ok($obj->cmp("\x{1F22B}", "\x{904A}"), $r);
452	ok($obj->cmp("\x{329C}", "\x{9069}"), $r);
453	ok($obj->cmp("\x{2FA2}", "\x{9091}"), $r);
454	ok($obj->cmp("\x{2FA3}", "\x{9149}"), $r);
455	ok($obj->cmp("\x{2FA4}", "\x{91C6}"), $r);
456	ok($obj->cmp("\x{2FA5}", "\x{91CC}"), $r);
457	ok($obj->cmp("\x{2FA6}", "\x{91D1}"), $r);
458	ok($obj->cmp("\x{328E}", "\x{91D1}"), $r);
459	ok($obj->cmp("\x{2FA7}", "\x{9577}"), $r);
460	ok($obj->cmp("\x{2FA8}", "\x{9580}"), $r);
461	ok($obj->cmp("\x{2FA9}", "\x{961C}"), $r);
462	ok($obj->cmp("\x{2FAA}", "\x{96B6}"), $r);
463	ok($obj->cmp("\x{2FAB}", "\x{96B9}"), $r);
464	ok($obj->cmp("\x{2FAC}", "\x{96E8}"), $r);
465	ok($obj->cmp("\x{2FAD}", "\x{9751}"), $r);
466	ok($obj->cmp("\x{2FAE}", "\x{975E}"), $r);
467	ok($obj->cmp("\x{2FAF}", "\x{9762}"), $r);
468	ok($obj->cmp("\x{2FB0}", "\x{9769}"), $r);
469	ok($obj->cmp("\x{2FB1}", "\x{97CB}"), $r);
470	ok($obj->cmp("\x{2FB2}", "\x{97ED}"), $r);
471	ok($obj->cmp("\x{2FB3}", "\x{97F3}"), $r);
472	ok($obj->cmp("\x{2FB4}", "\x{9801}"), $r);
473	ok($obj->cmp("\x{32A0}", "\x{9805}"), $r);
474	ok($obj->cmp("\x{2FB5}", "\x{98A8}"), $r);
475	ok($obj->cmp("\x{2FB6}", "\x{98DB}"), $r);
476	ok($obj->cmp("\x{2FB7}", "\x{98DF}"), $r);
477	ok($obj->cmp("\x{2FB8}", "\x{9996}"), $r);
478	ok($obj->cmp("\x{2FB9}", "\x{9999}"), $r);
479	ok($obj->cmp("\x{2FBA}", "\x{99AC}"), $r);
480	ok($obj->cmp("\x{2FBB}", "\x{9AA8}"), $r);
481	ok($obj->cmp("\x{2FBC}", "\x{9AD8}"), $r);
482	ok($obj->cmp("\x{2FBD}", "\x{9ADF}"), $r);
483	ok($obj->cmp("\x{2FBE}", "\x{9B25}"), $r);
484	ok($obj->cmp("\x{2FBF}", "\x{9B2F}"), $r);
485	ok($obj->cmp("\x{2FC0}", "\x{9B32}"), $r);
486	ok($obj->cmp("\x{2FC1}", "\x{9B3C}"), $r);
487	ok($obj->cmp("\x{2FC2}", "\x{9B5A}"), $r);
488	ok($obj->cmp("\x{2FC3}", "\x{9CE5}"), $r);
489	ok($obj->cmp("\x{2FC4}", "\x{9E75}"), $r);
490	ok($obj->cmp("\x{2FC5}", "\x{9E7F}"), $r);
491	ok($obj->cmp("\x{2FC6}", "\x{9EA5}"), $r);
492	ok($obj->cmp("\x{2FC7}", "\x{9EBB}"), $r);
493	ok($obj->cmp("\x{2FC8}", "\x{9EC3}"), $r);
494	ok($obj->cmp("\x{2FC9}", "\x{9ECD}"), $r);
495	ok($obj->cmp("\x{2FCA}", "\x{9ED1}"), $r);
496	ok($obj->cmp("\x{2FCB}", "\x{9EF9}"), $r);
497	ok($obj->cmp("\x{2FCC}", "\x{9EFD}"), $r);
498	ok($obj->cmp("\x{2FCD}", "\x{9F0E}"), $r);
499	ok($obj->cmp("\x{2FCE}", "\x{9F13}"), $r);
500	ok($obj->cmp("\x{2FCF}", "\x{9F20}"), $r);
501	ok($obj->cmp("\x{2FD0}", "\x{9F3B}"), $r);
502	ok($obj->cmp("\x{2FD1}", "\x{9F4A}"), $r);
503	ok($obj->cmp("\x{2FD2}", "\x{9F52}"), $r);
504	ok($obj->cmp("\x{2FD3}", "\x{9F8D}"), $r);
505	ok($obj->cmp("\x{2FD4}", "\x{9F9C}"), $r);
506	ok($obj->cmp("\x{2EF3}", "\x{9F9F}"), $r);
507	ok($obj->cmp("\x{2FD5}", "\x{9FA0}"), $r);
508    }
509}
510