1
2BEGIN {
3    if ($ENV{PERL_CORE}) {
4	chdir('t') if -d 't';
5	@INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
6    }
7}
8
9use strict;
10use warnings;
11BEGIN { $| = 1; print "1..308\n"; }
12my $count = 0;
13sub ok ($;$) {
14    my $p = my $r = shift;
15    if (@_) {
16	my $x = shift;
17	$p = !defined $x ? !defined $r : !defined $r ? 0 : $r eq $x;
18    }
19    print $p ? "ok" : "not ok", ' ', ++$count, "\n";
20}
21
22use Unicode::Collate::Locale;
23
24ok(1);
25
26sub _pack_U   { Unicode::Collate::pack_U(@_) }
27sub _unpack_U { Unicode::Collate::unpack_U(@_) }
28
29#########################
30
31my $objZhZ = Unicode::Collate::Locale->
32    new(locale => 'ZH__zhuyin', normalization => undef);
33
34ok($objZhZ->getlocale, 'zh__zhuyin');
35
36$objZhZ->change(level => 1);
37
38ok($objZhZ->eq("a\x{304}", "a\x{301}"));
39ok($objZhZ->eq("a\x{301}", "a\x{30C}"));
40ok($objZhZ->eq("a\x{30C}", "a\x{300}"));
41ok($objZhZ->eq("a\x{300}", "a"));
42ok($objZhZ->eq("e\x{304}", "e\x{301}"));
43ok($objZhZ->eq("e\x{301}", "e\x{30C}"));
44ok($objZhZ->eq("e\x{30C}", "e\x{300}"));
45ok($objZhZ->eq("e\x{300}", "e"));
46ok($objZhZ->eq("e\x{302}\x{304}", "e\x{302}\x{301}"));
47ok($objZhZ->eq("e\x{302}\x{301}", "e\x{302}\x{30C}"));
48ok($objZhZ->eq("e\x{302}\x{30C}", "e\x{302}\x{300}"));
49ok($objZhZ->eq("e\x{302}\x{300}", "e\x{302}"));
50ok($objZhZ->eq("i\x{304}", "i\x{301}"));
51ok($objZhZ->eq("i\x{301}", "i\x{30C}"));
52ok($objZhZ->eq("i\x{30C}", "i\x{300}"));
53ok($objZhZ->eq("i\x{300}", "i"));
54ok($objZhZ->eq("m\x{304}", "m\x{301}"));
55ok($objZhZ->eq("m\x{301}", "m\x{30C}"));
56ok($objZhZ->eq("m\x{30C}", "m\x{300}"));
57ok($objZhZ->eq("m\x{300}", "m"));
58ok($objZhZ->eq("n\x{304}", "n\x{301}"));
59ok($objZhZ->eq("n\x{301}", "n\x{30C}"));
60ok($objZhZ->eq("n\x{30C}", "n\x{300}"));
61ok($objZhZ->eq("n\x{300}", "n"));
62ok($objZhZ->eq("o\x{304}", "o\x{301}"));
63ok($objZhZ->eq("o\x{301}", "o\x{30C}"));
64ok($objZhZ->eq("o\x{30C}", "o\x{300}"));
65ok($objZhZ->eq("o\x{300}", "o"));
66ok($objZhZ->eq("u\x{304}", "u\x{301}"));
67ok($objZhZ->eq("u\x{301}", "u\x{30C}"));
68ok($objZhZ->eq("u\x{30C}", "u\x{300}"));
69ok($objZhZ->eq("u\x{300}", "u"));
70ok($objZhZ->eq("u\x{308}\x{304}", "u\x{308}\x{301}"));
71ok($objZhZ->eq("u\x{308}\x{301}", "u\x{308}\x{30C}"));
72ok($objZhZ->eq("u\x{308}\x{30C}", "u\x{308}\x{300}"));
73ok($objZhZ->eq("u\x{308}\x{300}", "u\x{308}"));
74
75# 38
76
77$objZhZ->change(level => 2);
78
79ok($objZhZ->lt("a\x{304}", "a\x{301}"));
80ok($objZhZ->lt("a\x{301}", "a\x{30C}"));
81ok($objZhZ->lt("a\x{30C}", "a\x{300}"));
82ok($objZhZ->lt("a\x{300}", "a"));
83ok($objZhZ->lt("e\x{304}", "e\x{301}"));
84ok($objZhZ->lt("e\x{301}", "e\x{30C}"));
85ok($objZhZ->lt("e\x{30C}", "e\x{300}"));
86ok($objZhZ->lt("e\x{300}", "e"));
87ok($objZhZ->lt("e\x{302}\x{304}", "e\x{302}\x{301}"));
88ok($objZhZ->lt("e\x{302}\x{301}", "e\x{302}\x{30C}"));
89ok($objZhZ->lt("e\x{302}\x{30C}", "e\x{302}\x{300}"));
90ok($objZhZ->lt("e\x{302}\x{300}", "e\x{302}"));
91ok($objZhZ->lt("i\x{304}", "i\x{301}"));
92ok($objZhZ->lt("i\x{301}", "i\x{30C}"));
93ok($objZhZ->lt("i\x{30C}", "i\x{300}"));
94ok($objZhZ->lt("i\x{300}", "i"));
95ok($objZhZ->lt("m\x{304}", "m\x{301}"));
96ok($objZhZ->lt("m\x{301}", "m\x{30C}"));
97ok($objZhZ->lt("m\x{30C}", "m\x{300}"));
98ok($objZhZ->lt("m\x{300}", "m"));
99ok($objZhZ->lt("n\x{304}", "n\x{301}"));
100ok($objZhZ->lt("n\x{301}", "n\x{30C}"));
101ok($objZhZ->lt("n\x{30C}", "n\x{300}"));
102ok($objZhZ->lt("n\x{300}", "n"));
103ok($objZhZ->lt("o\x{304}", "o\x{301}"));
104ok($objZhZ->lt("o\x{301}", "o\x{30C}"));
105ok($objZhZ->lt("o\x{30C}", "o\x{300}"));
106ok($objZhZ->lt("o\x{300}", "o"));
107ok($objZhZ->lt("u\x{304}", "u\x{301}"));
108ok($objZhZ->lt("u\x{301}", "u\x{30C}"));
109ok($objZhZ->lt("u\x{30C}", "u\x{300}"));
110ok($objZhZ->lt("u\x{300}", "u"));
111ok($objZhZ->lt("u\x{308}\x{304}", "u\x{308}\x{301}"));
112ok($objZhZ->lt("u\x{308}\x{301}", "u\x{308}\x{30C}"));
113ok($objZhZ->lt("u\x{308}\x{30C}", "u\x{308}\x{300}"));
114ok($objZhZ->lt("u\x{308}\x{300}", "u\x{308}"));
115
116# 74
117
118ok($objZhZ->eq("a\x{304}", "A\x{304}"));
119ok($objZhZ->eq("a\x{301}", "A\x{301}"));
120ok($objZhZ->eq("a\x{30C}", "A\x{30C}"));
121ok($objZhZ->eq("a\x{300}", "A\x{300}"));
122ok($objZhZ->eq("e\x{304}", "E\x{304}"));
123ok($objZhZ->eq("e\x{301}", "E\x{301}"));
124ok($objZhZ->eq("e\x{30C}", "E\x{30C}"));
125ok($objZhZ->eq("e\x{300}", "E\x{300}"));
126ok($objZhZ->eq("e\x{302}\x{304}", "E\x{302}\x{304}"));
127ok($objZhZ->eq("e\x{302}\x{301}", "E\x{302}\x{301}"));
128ok($objZhZ->eq("e\x{302}\x{30C}", "E\x{302}\x{30C}"));
129ok($objZhZ->eq("e\x{302}\x{300}", "E\x{302}\x{300}"));
130ok($objZhZ->eq("e\x{302}", "E\x{302}"));
131ok($objZhZ->eq("i\x{304}", "I\x{304}"));
132ok($objZhZ->eq("i\x{301}", "I\x{301}"));
133ok($objZhZ->eq("i\x{30C}", "I\x{30C}"));
134ok($objZhZ->eq("i\x{300}", "I\x{300}"));
135ok($objZhZ->eq("m\x{304}", "M\x{304}"));
136ok($objZhZ->eq("m\x{301}", "M\x{301}"));
137ok($objZhZ->eq("m\x{30C}", "M\x{30C}"));
138ok($objZhZ->eq("m\x{300}", "M\x{300}"));
139ok($objZhZ->eq("n\x{304}", "N\x{304}"));
140ok($objZhZ->eq("n\x{301}", "N\x{301}"));
141ok($objZhZ->eq("n\x{30C}", "N\x{30C}"));
142ok($objZhZ->eq("n\x{300}", "N\x{300}"));
143ok($objZhZ->eq("o\x{304}", "O\x{304}"));
144ok($objZhZ->eq("o\x{301}", "O\x{301}"));
145ok($objZhZ->eq("o\x{30C}", "O\x{30C}"));
146ok($objZhZ->eq("o\x{300}", "O\x{300}"));
147ok($objZhZ->eq("u\x{304}", "U\x{304}"));
148ok($objZhZ->eq("u\x{301}", "U\x{301}"));
149ok($objZhZ->eq("u\x{30C}", "U\x{30C}"));
150ok($objZhZ->eq("u\x{300}", "U\x{300}"));
151ok($objZhZ->eq("u\x{308}\x{304}", "U\x{308}\x{304}"));
152ok($objZhZ->eq("u\x{308}\x{301}", "U\x{308}\x{301}"));
153ok($objZhZ->eq("u\x{308}\x{30C}", "U\x{308}\x{30C}"));
154ok($objZhZ->eq("u\x{308}\x{300}", "U\x{308}\x{300}"));
155ok($objZhZ->eq("u\x{308}", "U\x{308}"));
156
157# 112
158
159$objZhZ->change(level => 3);
160
161ok($objZhZ->lt("a\x{304}", "A\x{304}"));
162ok($objZhZ->lt("a\x{301}", "A\x{301}"));
163ok($objZhZ->lt("a\x{30C}", "A\x{30C}"));
164ok($objZhZ->lt("a\x{300}", "A\x{300}"));
165ok($objZhZ->lt("e\x{304}", "E\x{304}"));
166ok($objZhZ->lt("e\x{301}", "E\x{301}"));
167ok($objZhZ->lt("e\x{30C}", "E\x{30C}"));
168ok($objZhZ->lt("e\x{300}", "E\x{300}"));
169ok($objZhZ->lt("e\x{302}\x{304}", "E\x{302}\x{304}"));
170ok($objZhZ->lt("e\x{302}\x{301}", "E\x{302}\x{301}"));
171ok($objZhZ->lt("e\x{302}\x{30C}", "E\x{302}\x{30C}"));
172ok($objZhZ->lt("e\x{302}\x{300}", "E\x{302}\x{300}"));
173ok($objZhZ->lt("e\x{302}", "E\x{302}"));
174ok($objZhZ->lt("i\x{304}", "I\x{304}"));
175ok($objZhZ->lt("i\x{301}", "I\x{301}"));
176ok($objZhZ->lt("i\x{30C}", "I\x{30C}"));
177ok($objZhZ->lt("i\x{300}", "I\x{300}"));
178ok($objZhZ->lt("m\x{304}", "M\x{304}"));
179ok($objZhZ->lt("m\x{301}", "M\x{301}"));
180ok($objZhZ->lt("m\x{30C}", "M\x{30C}"));
181ok($objZhZ->lt("m\x{300}", "M\x{300}"));
182ok($objZhZ->lt("n\x{304}", "N\x{304}"));
183ok($objZhZ->lt("n\x{301}", "N\x{301}"));
184ok($objZhZ->lt("n\x{30C}", "N\x{30C}"));
185ok($objZhZ->lt("n\x{300}", "N\x{300}"));
186ok($objZhZ->lt("o\x{304}", "O\x{304}"));
187ok($objZhZ->lt("o\x{301}", "O\x{301}"));
188ok($objZhZ->lt("o\x{30C}", "O\x{30C}"));
189ok($objZhZ->lt("o\x{300}", "O\x{300}"));
190ok($objZhZ->lt("u\x{304}", "U\x{304}"));
191ok($objZhZ->lt("u\x{301}", "U\x{301}"));
192ok($objZhZ->lt("u\x{30C}", "U\x{30C}"));
193ok($objZhZ->lt("u\x{300}", "U\x{300}"));
194ok($objZhZ->lt("u\x{308}\x{304}", "U\x{308}\x{304}"));
195ok($objZhZ->lt("u\x{308}\x{301}", "U\x{308}\x{301}"));
196ok($objZhZ->lt("u\x{308}\x{30C}", "U\x{308}\x{30C}"));
197ok($objZhZ->lt("u\x{308}\x{300}", "U\x{308}\x{300}"));
198ok($objZhZ->lt("u\x{308}", "U\x{308}"));
199
200# 150
201
202ok($objZhZ->eq("a\x{304}", "\x{101}"));
203ok($objZhZ->eq("A\x{304}", "\x{100}"));
204ok($objZhZ->eq("a\x{301}", _pack_U(0xE1)));
205ok($objZhZ->eq("a\x{301}", "a\x{341}"));
206ok($objZhZ->eq("A\x{301}", _pack_U(0xC1)));
207ok($objZhZ->eq("A\x{301}", "A\x{341}"));
208ok($objZhZ->eq("a\x{30C}", "\x{1CE}"));
209ok($objZhZ->eq("A\x{30C}", "\x{1CD}"));
210ok($objZhZ->eq("a\x{300}", _pack_U(0xE0)));
211ok($objZhZ->eq("a\x{300}", "a\x{340}"));
212ok($objZhZ->eq("A\x{300}", _pack_U(0xC0)));
213ok($objZhZ->eq("A\x{300}", "A\x{340}"));
214ok($objZhZ->eq("e\x{304}", "\x{113}"));
215ok($objZhZ->eq("E\x{304}", "\x{112}"));
216ok($objZhZ->eq("e\x{301}", _pack_U(0xE9)));
217ok($objZhZ->eq("e\x{301}", "e\x{341}"));
218ok($objZhZ->eq("E\x{301}", _pack_U(0xC9)));
219ok($objZhZ->eq("E\x{301}", "E\x{341}"));
220ok($objZhZ->eq("e\x{30C}", "\x{11B}"));
221ok($objZhZ->eq("E\x{30C}", "\x{11A}"));
222ok($objZhZ->eq("e\x{300}", _pack_U(0xE8)));
223ok($objZhZ->eq("e\x{300}", "e\x{340}"));
224ok($objZhZ->eq("E\x{300}", _pack_U(0xC8)));
225ok($objZhZ->eq("E\x{300}", "E\x{340}"));
226ok($objZhZ->eq("e\x{302}\x{304}", _pack_U(0xEA, 0x304)));
227ok($objZhZ->eq("E\x{302}\x{304}", _pack_U(0xCA, 0x304)));
228ok($objZhZ->eq("e\x{302}\x{301}", "\x{1EBF}"));
229ok($objZhZ->eq("e\x{302}\x{301}", "e\x{302}\x{341}"));
230ok($objZhZ->eq("E\x{302}\x{301}", "\x{1EBE}"));
231ok($objZhZ->eq("E\x{302}\x{301}", "E\x{302}\x{341}"));
232ok($objZhZ->eq("e\x{302}\x{301}", _pack_U(0xEA, 0x301)));
233ok($objZhZ->eq("e\x{302}\x{301}", _pack_U(0xEA, 0x341)));
234ok($objZhZ->eq("E\x{302}\x{301}", _pack_U(0xCA, 0x301)));
235ok($objZhZ->eq("E\x{302}\x{301}", _pack_U(0xCA, 0x341)));
236ok($objZhZ->eq("e\x{302}\x{30C}", _pack_U(0xEA, 0x30C)));
237ok($objZhZ->eq("E\x{302}\x{30C}", _pack_U(0xCA, 0x30C)));
238ok($objZhZ->eq("e\x{302}\x{300}", "\x{1EC1}"));
239ok($objZhZ->eq("e\x{302}\x{300}", "e\x{302}\x{340}"));
240ok($objZhZ->eq("E\x{302}\x{300}", "\x{1EC0}"));
241ok($objZhZ->eq("E\x{302}\x{300}", "E\x{302}\x{340}"));
242ok($objZhZ->eq("e\x{302}\x{300}", _pack_U(0xEA, 0x300)));
243ok($objZhZ->eq("e\x{302}\x{300}", _pack_U(0xEA, 0x340)));
244ok($objZhZ->eq("E\x{302}\x{300}", _pack_U(0xCA, 0x300)));
245ok($objZhZ->eq("E\x{302}\x{300}", _pack_U(0xCA, 0x340)));
246ok($objZhZ->eq("e\x{302}", _pack_U(0xEA)));
247ok($objZhZ->eq("E\x{302}", _pack_U(0xCA)));
248ok($objZhZ->eq("i\x{304}", "\x{12B}"));
249ok($objZhZ->eq("I\x{304}", "\x{12A}"));
250ok($objZhZ->eq("i\x{301}", _pack_U(0xED)));
251ok($objZhZ->eq("i\x{301}", "i\x{341}"));
252ok($objZhZ->eq("I\x{301}", _pack_U(0xCD)));
253ok($objZhZ->eq("I\x{301}", "I\x{341}"));
254ok($objZhZ->eq("i\x{30C}", "\x{1D0}"));
255ok($objZhZ->eq("I\x{30C}", "\x{1CF}"));
256ok($objZhZ->eq("i\x{300}", _pack_U(0xEC)));
257ok($objZhZ->eq("i\x{300}", "i\x{340}"));
258ok($objZhZ->eq("I\x{300}", _pack_U(0xCC)));
259ok($objZhZ->eq("I\x{300}", "I\x{340}"));
260ok($objZhZ->eq("m\x{301}", "\x{1E3F}"));
261ok($objZhZ->eq("m\x{301}", "m\x{341}"));
262ok($objZhZ->eq("M\x{301}", "\x{1E3E}"));
263ok($objZhZ->eq("M\x{301}", "M\x{341}"));
264ok($objZhZ->eq("m\x{300}", "m\x{340}"));
265ok($objZhZ->eq("M\x{300}", "M\x{340}"));
266ok($objZhZ->eq("n\x{301}", "\x{144}"));
267ok($objZhZ->eq("n\x{301}", "n\x{341}"));
268ok($objZhZ->eq("N\x{301}", "\x{143}"));
269ok($objZhZ->eq("N\x{301}", "N\x{341}"));
270ok($objZhZ->eq("n\x{30C}", "\x{148}"));
271ok($objZhZ->eq("N\x{30C}", "\x{147}"));
272ok($objZhZ->eq("n\x{300}", "\x{1F9}"));
273ok($objZhZ->eq("n\x{300}", "n\x{340}"));
274ok($objZhZ->eq("N\x{300}", "\x{1F8}"));
275ok($objZhZ->eq("N\x{300}", "N\x{340}"));
276ok($objZhZ->eq("o\x{304}", "\x{14D}"));
277ok($objZhZ->eq("O\x{304}", "\x{14C}"));
278ok($objZhZ->eq("o\x{301}", _pack_U(0xF3)));
279ok($objZhZ->eq("o\x{301}", "o\x{341}"));
280ok($objZhZ->eq("O\x{301}", _pack_U(0xD3)));
281ok($objZhZ->eq("O\x{301}", "O\x{341}"));
282ok($objZhZ->eq("o\x{30C}", "\x{1D2}"));
283ok($objZhZ->eq("O\x{30C}", "\x{1D1}"));
284ok($objZhZ->eq("o\x{300}", _pack_U(0xF2)));
285ok($objZhZ->eq("o\x{300}", "o\x{340}"));
286ok($objZhZ->eq("O\x{300}", _pack_U(0xD2)));
287ok($objZhZ->eq("O\x{300}", "O\x{340}"));
288ok($objZhZ->eq("u\x{304}", "\x{16B}"));
289ok($objZhZ->eq("U\x{304}", "\x{16A}"));
290ok($objZhZ->eq("u\x{301}", _pack_U(0xFA)));
291ok($objZhZ->eq("u\x{301}", "u\x{341}"));
292ok($objZhZ->eq("U\x{301}", _pack_U(0xDA)));
293ok($objZhZ->eq("U\x{301}", "U\x{341}"));
294ok($objZhZ->eq("u\x{30C}", "\x{1D4}"));
295ok($objZhZ->eq("U\x{30C}", "\x{1D3}"));
296ok($objZhZ->eq("u\x{300}", _pack_U(0xF9)));
297ok($objZhZ->eq("u\x{300}", "u\x{340}"));
298ok($objZhZ->eq("U\x{300}", _pack_U(0xD9)));
299ok($objZhZ->eq("U\x{300}", "U\x{340}"));
300ok($objZhZ->eq("u\x{308}\x{304}", "\x{1D6}"));
301ok($objZhZ->eq("U\x{308}\x{304}", "\x{1D5}"));
302ok($objZhZ->eq("u\x{308}\x{304}", _pack_U(0xFC, 0x304)));
303ok($objZhZ->eq("U\x{308}\x{304}", _pack_U(0xDC, 0x304)));
304ok($objZhZ->eq("u\x{308}\x{301}", "\x{1D8}"));
305ok($objZhZ->eq("u\x{308}\x{301}", "u\x{308}\x{341}"));
306ok($objZhZ->eq("U\x{308}\x{301}", "\x{1D7}"));
307ok($objZhZ->eq("U\x{308}\x{301}", "U\x{308}\x{341}"));
308ok($objZhZ->eq("u\x{308}\x{301}", _pack_U(0xFC, 0x301)));
309ok($objZhZ->eq("u\x{308}\x{301}", _pack_U(0xFC, 0x341)));
310ok($objZhZ->eq("U\x{308}\x{301}", _pack_U(0xDC, 0x301)));
311ok($objZhZ->eq("U\x{308}\x{301}", _pack_U(0xDC, 0x341)));
312ok($objZhZ->eq("u\x{308}\x{30C}", "\x{1DA}"));
313ok($objZhZ->eq("U\x{308}\x{30C}", "\x{1D9}"));
314ok($objZhZ->eq("u\x{308}\x{30C}", _pack_U(0xFC, 0x30C)));
315ok($objZhZ->eq("U\x{308}\x{30C}", _pack_U(0xDC, 0x30C)));
316ok($objZhZ->eq("u\x{308}\x{300}", "\x{1DC}"));
317ok($objZhZ->eq("u\x{308}\x{300}", "u\x{308}\x{340}"));
318ok($objZhZ->eq("U\x{308}\x{300}", "\x{1DB}"));
319ok($objZhZ->eq("U\x{308}\x{300}", "U\x{308}\x{340}"));
320ok($objZhZ->eq("u\x{308}\x{300}", _pack_U(0xFC, 0x300)));
321ok($objZhZ->eq("u\x{308}\x{300}", _pack_U(0xFC, 0x340)));
322ok($objZhZ->eq("U\x{308}\x{300}", _pack_U(0xDC, 0x300)));
323ok($objZhZ->eq("U\x{308}\x{300}", _pack_U(0xDC, 0x340)));
324ok($objZhZ->eq("u\x{308}", _pack_U(0xFC)));
325ok($objZhZ->eq("U\x{308}", _pack_U(0xDC)));
326
327# 274
328
329ok($objZhZ->eq("e\x{302}\x{303}", "\x{1EC5}"));
330ok($objZhZ->eq("E\x{302}\x{303}", "\x{1EC4}"));
331ok($objZhZ->eq("e\x{302}\x{309}", "\x{1EC3}"));
332ok($objZhZ->eq("E\x{302}\x{309}", "\x{1EC2}"));
333ok($objZhZ->eq("e\x{302}\x{323}", "\x{1EC7}"));
334ok($objZhZ->eq("E\x{302}\x{323}", "\x{1EC6}"));
335
336# 280
337
338$objZhZ->change(level => 1);
339
340ok($objZhZ->lt("\x{A000}", "\x{516B}"));
341ok($objZhZ->lt("\x{516B}", "\x{628A}"));
342ok($objZhZ->lt("\x{628A}", "\x{5DF4}"));
343ok($objZhZ->lt("\x{5DF4}", "\x{767D}"));
344ok($objZhZ->lt("\x{767D}", "\x{5317}"));
345ok($objZhZ->lt("\x{5317}", "\x{9F3B}"));
346ok($objZhZ->lt("\x{9F3B}", "\x{4E0D}"));
347ok($objZhZ->lt("\x{4E0D}", "\x{547D}"));
348ok($objZhZ->lt("\x{547D}", "\x{6BCD}"));
349ok($objZhZ->lt("\x{6BCD}", "\x{6253}"));
350ok($objZhZ->lt("\x{6253}", "\x{7530}"));
351ok($objZhZ->lt("\x{7530}", "\x{52AA}"));
352ok($objZhZ->lt("\x{52AA}", "\x{529B}"));
353ok($objZhZ->lt("\x{529B}", "\x{5375}"));
354ok($objZhZ->lt("\x{5375}", "\x{5149}"));
355ok($objZhZ->lt("\x{5149}", "\x{5915}"));
356ok($objZhZ->lt("\x{5915}", "\x{4E09}"));
357ok($objZhZ->lt("\x{4E09}", "\x{4E00}"));
358ok($objZhZ->lt("\x{4E00}", "\x{7528}"));
359
360# 299
361
362$objZhZ->change(variable => 'non-ignorable');
363
364ok($objZhZ->eq("\x{300}", "\x{2C9}"));
365ok($objZhZ->lt("\x{2C9}", "\x{2CA}"));
366ok($objZhZ->lt("\x{2CA}", "\x{2C7}"));
367ok($objZhZ->lt("\x{2C7}", "\x{2CB}"));
368ok($objZhZ->lt("\x{2CB}", "\x{2D9}"));
369ok($objZhZ->lt("\x{2D9}", "\x{2EA}"));
370ok($objZhZ->lt("\x{2EA}", "\x{2EB}"));
371ok($objZhZ->lt("\x{2EB}", "\ "));
372
373# 307
374
375$objZhZ->change(level => 2);
376
377ok($objZhZ->lt("\x{300}", "\x{2C9}"));
378
379# 308
380