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..298\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 $objZhG = Unicode::Collate::Locale->
37    new(locale => 'ZH__gb2312han', normalization => undef);
38
39ok($objZhG->getlocale, 'zh__gb2312han');
40
41$objZhG->change(level => 1);
42
43ok($objZhG->eq("a\x{304}", "a\x{301}"));
44ok($objZhG->eq("a\x{301}", "a\x{30C}"));
45ok($objZhG->eq("a\x{30C}", "a\x{300}"));
46ok($objZhG->eq("a\x{300}", "a"));
47ok($objZhG->eq("e\x{304}", "e\x{301}"));
48ok($objZhG->eq("e\x{301}", "e\x{30C}"));
49ok($objZhG->eq("e\x{30C}", "e\x{300}"));
50ok($objZhG->eq("e\x{300}", "e"));
51ok($objZhG->eq("e\x{302}\x{304}", "e\x{302}\x{301}"));
52ok($objZhG->eq("e\x{302}\x{301}", "e\x{302}\x{30C}"));
53ok($objZhG->eq("e\x{302}\x{30C}", "e\x{302}\x{300}"));
54ok($objZhG->eq("e\x{302}\x{300}", "e\x{302}"));
55ok($objZhG->eq("i\x{304}", "i\x{301}"));
56ok($objZhG->eq("i\x{301}", "i\x{30C}"));
57ok($objZhG->eq("i\x{30C}", "i\x{300}"));
58ok($objZhG->eq("i\x{300}", "i"));
59ok($objZhG->eq("m\x{304}", "m\x{301}"));
60ok($objZhG->eq("m\x{301}", "m\x{30C}"));
61ok($objZhG->eq("m\x{30C}", "m\x{300}"));
62ok($objZhG->eq("m\x{300}", "m"));
63ok($objZhG->eq("n\x{304}", "n\x{301}"));
64ok($objZhG->eq("n\x{301}", "n\x{30C}"));
65ok($objZhG->eq("n\x{30C}", "n\x{300}"));
66ok($objZhG->eq("n\x{300}", "n"));
67ok($objZhG->eq("o\x{304}", "o\x{301}"));
68ok($objZhG->eq("o\x{301}", "o\x{30C}"));
69ok($objZhG->eq("o\x{30C}", "o\x{300}"));
70ok($objZhG->eq("o\x{300}", "o"));
71ok($objZhG->eq("u\x{304}", "u\x{301}"));
72ok($objZhG->eq("u\x{301}", "u\x{30C}"));
73ok($objZhG->eq("u\x{30C}", "u\x{300}"));
74ok($objZhG->eq("u\x{300}", "u"));
75ok($objZhG->eq("u\x{308}\x{304}", "u\x{308}\x{301}"));
76ok($objZhG->eq("u\x{308}\x{301}", "u\x{308}\x{30C}"));
77ok($objZhG->eq("u\x{308}\x{30C}", "u\x{308}\x{300}"));
78ok($objZhG->eq("u\x{308}\x{300}", "u\x{308}"));
79
80# 38
81
82$objZhG->change(level => 2);
83
84ok($objZhG->lt("a\x{304}", "a\x{301}"));
85ok($objZhG->lt("a\x{301}", "a\x{30C}"));
86ok($objZhG->lt("a\x{30C}", "a\x{300}"));
87ok($objZhG->lt("a\x{300}", "a"));
88ok($objZhG->lt("e\x{304}", "e\x{301}"));
89ok($objZhG->lt("e\x{301}", "e\x{30C}"));
90ok($objZhG->lt("e\x{30C}", "e\x{300}"));
91ok($objZhG->lt("e\x{300}", "e"));
92ok($objZhG->lt("e\x{302}\x{304}", "e\x{302}\x{301}"));
93ok($objZhG->lt("e\x{302}\x{301}", "e\x{302}\x{30C}"));
94ok($objZhG->lt("e\x{302}\x{30C}", "e\x{302}\x{300}"));
95ok($objZhG->lt("e\x{302}\x{300}", "e\x{302}"));
96ok($objZhG->lt("i\x{304}", "i\x{301}"));
97ok($objZhG->lt("i\x{301}", "i\x{30C}"));
98ok($objZhG->lt("i\x{30C}", "i\x{300}"));
99ok($objZhG->lt("i\x{300}", "i"));
100ok($objZhG->lt("m\x{304}", "m\x{301}"));
101ok($objZhG->lt("m\x{301}", "m\x{30C}"));
102ok($objZhG->lt("m\x{30C}", "m\x{300}"));
103ok($objZhG->lt("m\x{300}", "m"));
104ok($objZhG->lt("n\x{304}", "n\x{301}"));
105ok($objZhG->lt("n\x{301}", "n\x{30C}"));
106ok($objZhG->lt("n\x{30C}", "n\x{300}"));
107ok($objZhG->lt("n\x{300}", "n"));
108ok($objZhG->lt("o\x{304}", "o\x{301}"));
109ok($objZhG->lt("o\x{301}", "o\x{30C}"));
110ok($objZhG->lt("o\x{30C}", "o\x{300}"));
111ok($objZhG->lt("o\x{300}", "o"));
112ok($objZhG->lt("u\x{304}", "u\x{301}"));
113ok($objZhG->lt("u\x{301}", "u\x{30C}"));
114ok($objZhG->lt("u\x{30C}", "u\x{300}"));
115ok($objZhG->lt("u\x{300}", "u"));
116ok($objZhG->lt("u\x{308}\x{304}", "u\x{308}\x{301}"));
117ok($objZhG->lt("u\x{308}\x{301}", "u\x{308}\x{30C}"));
118ok($objZhG->lt("u\x{308}\x{30C}", "u\x{308}\x{300}"));
119ok($objZhG->lt("u\x{308}\x{300}", "u\x{308}"));
120
121# 74
122
123ok($objZhG->eq("a\x{304}", "A\x{304}"));
124ok($objZhG->eq("a\x{301}", "A\x{301}"));
125ok($objZhG->eq("a\x{30C}", "A\x{30C}"));
126ok($objZhG->eq("a\x{300}", "A\x{300}"));
127ok($objZhG->eq("e\x{304}", "E\x{304}"));
128ok($objZhG->eq("e\x{301}", "E\x{301}"));
129ok($objZhG->eq("e\x{30C}", "E\x{30C}"));
130ok($objZhG->eq("e\x{300}", "E\x{300}"));
131ok($objZhG->eq("e\x{302}\x{304}", "E\x{302}\x{304}"));
132ok($objZhG->eq("e\x{302}\x{301}", "E\x{302}\x{301}"));
133ok($objZhG->eq("e\x{302}\x{30C}", "E\x{302}\x{30C}"));
134ok($objZhG->eq("e\x{302}\x{300}", "E\x{302}\x{300}"));
135ok($objZhG->eq("e\x{302}", "E\x{302}"));
136ok($objZhG->eq("i\x{304}", "I\x{304}"));
137ok($objZhG->eq("i\x{301}", "I\x{301}"));
138ok($objZhG->eq("i\x{30C}", "I\x{30C}"));
139ok($objZhG->eq("i\x{300}", "I\x{300}"));
140ok($objZhG->eq("m\x{304}", "M\x{304}"));
141ok($objZhG->eq("m\x{301}", "M\x{301}"));
142ok($objZhG->eq("m\x{30C}", "M\x{30C}"));
143ok($objZhG->eq("m\x{300}", "M\x{300}"));
144ok($objZhG->eq("n\x{304}", "N\x{304}"));
145ok($objZhG->eq("n\x{301}", "N\x{301}"));
146ok($objZhG->eq("n\x{30C}", "N\x{30C}"));
147ok($objZhG->eq("n\x{300}", "N\x{300}"));
148ok($objZhG->eq("o\x{304}", "O\x{304}"));
149ok($objZhG->eq("o\x{301}", "O\x{301}"));
150ok($objZhG->eq("o\x{30C}", "O\x{30C}"));
151ok($objZhG->eq("o\x{300}", "O\x{300}"));
152ok($objZhG->eq("u\x{304}", "U\x{304}"));
153ok($objZhG->eq("u\x{301}", "U\x{301}"));
154ok($objZhG->eq("u\x{30C}", "U\x{30C}"));
155ok($objZhG->eq("u\x{300}", "U\x{300}"));
156ok($objZhG->eq("u\x{308}\x{304}", "U\x{308}\x{304}"));
157ok($objZhG->eq("u\x{308}\x{301}", "U\x{308}\x{301}"));
158ok($objZhG->eq("u\x{308}\x{30C}", "U\x{308}\x{30C}"));
159ok($objZhG->eq("u\x{308}\x{300}", "U\x{308}\x{300}"));
160ok($objZhG->eq("u\x{308}", "U\x{308}"));
161
162# 112
163
164$objZhG->change(level => 3);
165
166ok($objZhG->lt("a\x{304}", "A\x{304}"));
167ok($objZhG->lt("a\x{301}", "A\x{301}"));
168ok($objZhG->lt("a\x{30C}", "A\x{30C}"));
169ok($objZhG->lt("a\x{300}", "A\x{300}"));
170ok($objZhG->lt("e\x{304}", "E\x{304}"));
171ok($objZhG->lt("e\x{301}", "E\x{301}"));
172ok($objZhG->lt("e\x{30C}", "E\x{30C}"));
173ok($objZhG->lt("e\x{300}", "E\x{300}"));
174ok($objZhG->lt("e\x{302}\x{304}", "E\x{302}\x{304}"));
175ok($objZhG->lt("e\x{302}\x{301}", "E\x{302}\x{301}"));
176ok($objZhG->lt("e\x{302}\x{30C}", "E\x{302}\x{30C}"));
177ok($objZhG->lt("e\x{302}\x{300}", "E\x{302}\x{300}"));
178ok($objZhG->lt("e\x{302}", "E\x{302}"));
179ok($objZhG->lt("i\x{304}", "I\x{304}"));
180ok($objZhG->lt("i\x{301}", "I\x{301}"));
181ok($objZhG->lt("i\x{30C}", "I\x{30C}"));
182ok($objZhG->lt("i\x{300}", "I\x{300}"));
183ok($objZhG->lt("m\x{304}", "M\x{304}"));
184ok($objZhG->lt("m\x{301}", "M\x{301}"));
185ok($objZhG->lt("m\x{30C}", "M\x{30C}"));
186ok($objZhG->lt("m\x{300}", "M\x{300}"));
187ok($objZhG->lt("n\x{304}", "N\x{304}"));
188ok($objZhG->lt("n\x{301}", "N\x{301}"));
189ok($objZhG->lt("n\x{30C}", "N\x{30C}"));
190ok($objZhG->lt("n\x{300}", "N\x{300}"));
191ok($objZhG->lt("o\x{304}", "O\x{304}"));
192ok($objZhG->lt("o\x{301}", "O\x{301}"));
193ok($objZhG->lt("o\x{30C}", "O\x{30C}"));
194ok($objZhG->lt("o\x{300}", "O\x{300}"));
195ok($objZhG->lt("u\x{304}", "U\x{304}"));
196ok($objZhG->lt("u\x{301}", "U\x{301}"));
197ok($objZhG->lt("u\x{30C}", "U\x{30C}"));
198ok($objZhG->lt("u\x{300}", "U\x{300}"));
199ok($objZhG->lt("u\x{308}\x{304}", "U\x{308}\x{304}"));
200ok($objZhG->lt("u\x{308}\x{301}", "U\x{308}\x{301}"));
201ok($objZhG->lt("u\x{308}\x{30C}", "U\x{308}\x{30C}"));
202ok($objZhG->lt("u\x{308}\x{300}", "U\x{308}\x{300}"));
203ok($objZhG->lt("u\x{308}", "U\x{308}"));
204
205# 150
206
207ok($objZhG->eq("a\x{304}", "\x{101}"));
208ok($objZhG->eq("A\x{304}", "\x{100}"));
209ok($objZhG->eq("a\x{301}", pack('U', 0xE1)));
210ok($objZhG->eq("a\x{301}", "a\x{341}"));
211ok($objZhG->eq("A\x{301}", pack('U', 0xC1)));
212ok($objZhG->eq("A\x{301}", "A\x{341}"));
213ok($objZhG->eq("a\x{30C}", "\x{1CE}"));
214ok($objZhG->eq("A\x{30C}", "\x{1CD}"));
215ok($objZhG->eq("a\x{300}", pack('U', 0xE0)));
216ok($objZhG->eq("a\x{300}", "a\x{340}"));
217ok($objZhG->eq("A\x{300}", pack('U', 0xC0)));
218ok($objZhG->eq("A\x{300}", "A\x{340}"));
219ok($objZhG->eq("e\x{304}", "\x{113}"));
220ok($objZhG->eq("E\x{304}", "\x{112}"));
221ok($objZhG->eq("e\x{301}", pack('U', 0xE9)));
222ok($objZhG->eq("e\x{301}", "e\x{341}"));
223ok($objZhG->eq("E\x{301}", pack('U', 0xC9)));
224ok($objZhG->eq("E\x{301}", "E\x{341}"));
225ok($objZhG->eq("e\x{30C}", "\x{11B}"));
226ok($objZhG->eq("E\x{30C}", "\x{11A}"));
227ok($objZhG->eq("e\x{300}", pack('U', 0xE8)));
228ok($objZhG->eq("e\x{300}", "e\x{340}"));
229ok($objZhG->eq("E\x{300}", pack('U', 0xC8)));
230ok($objZhG->eq("E\x{300}", "E\x{340}"));
231ok($objZhG->eq("e\x{302}\x{304}", pack('U*', 0xEA, 0x304)));
232ok($objZhG->eq("E\x{302}\x{304}", pack('U*', 0xCA, 0x304)));
233ok($objZhG->eq("e\x{302}\x{301}", "\x{1EBF}"));
234ok($objZhG->eq("e\x{302}\x{301}", "e\x{302}\x{341}"));
235ok($objZhG->eq("E\x{302}\x{301}", "\x{1EBE}"));
236ok($objZhG->eq("E\x{302}\x{301}", "E\x{302}\x{341}"));
237ok($objZhG->eq("e\x{302}\x{301}", pack('U*', 0xEA, 0x301)));
238ok($objZhG->eq("e\x{302}\x{301}", pack('U*', 0xEA, 0x341)));
239ok($objZhG->eq("E\x{302}\x{301}", pack('U*', 0xCA, 0x301)));
240ok($objZhG->eq("E\x{302}\x{301}", pack('U*', 0xCA, 0x341)));
241ok($objZhG->eq("e\x{302}\x{30C}", pack('U*', 0xEA, 0x30C)));
242ok($objZhG->eq("E\x{302}\x{30C}", pack('U*', 0xCA, 0x30C)));
243ok($objZhG->eq("e\x{302}\x{300}", "\x{1EC1}"));
244ok($objZhG->eq("e\x{302}\x{300}", "e\x{302}\x{340}"));
245ok($objZhG->eq("E\x{302}\x{300}", "\x{1EC0}"));
246ok($objZhG->eq("E\x{302}\x{300}", "E\x{302}\x{340}"));
247ok($objZhG->eq("e\x{302}\x{300}", pack('U*', 0xEA, 0x300)));
248ok($objZhG->eq("e\x{302}\x{300}", pack('U*', 0xEA, 0x340)));
249ok($objZhG->eq("E\x{302}\x{300}", pack('U*', 0xCA, 0x300)));
250ok($objZhG->eq("E\x{302}\x{300}", pack('U*', 0xCA, 0x340)));
251ok($objZhG->eq("e\x{302}", pack('U', 0xEA)));
252ok($objZhG->eq("E\x{302}", pack('U', 0xCA)));
253ok($objZhG->eq("i\x{304}", "\x{12B}"));
254ok($objZhG->eq("I\x{304}", "\x{12A}"));
255ok($objZhG->eq("i\x{301}", pack('U', 0xED)));
256ok($objZhG->eq("i\x{301}", "i\x{341}"));
257ok($objZhG->eq("I\x{301}", pack('U', 0xCD)));
258ok($objZhG->eq("I\x{301}", "I\x{341}"));
259ok($objZhG->eq("i\x{30C}", "\x{1D0}"));
260ok($objZhG->eq("I\x{30C}", "\x{1CF}"));
261ok($objZhG->eq("i\x{300}", pack('U', 0xEC)));
262ok($objZhG->eq("i\x{300}", "i\x{340}"));
263ok($objZhG->eq("I\x{300}", pack('U', 0xCC)));
264ok($objZhG->eq("I\x{300}", "I\x{340}"));
265ok($objZhG->eq("m\x{301}", "\x{1E3F}"));
266ok($objZhG->eq("m\x{301}", "m\x{341}"));
267ok($objZhG->eq("M\x{301}", "\x{1E3E}"));
268ok($objZhG->eq("M\x{301}", "M\x{341}"));
269ok($objZhG->eq("m\x{300}", "m\x{340}"));
270ok($objZhG->eq("M\x{300}", "M\x{340}"));
271ok($objZhG->eq("n\x{301}", "\x{144}"));
272ok($objZhG->eq("n\x{301}", "n\x{341}"));
273ok($objZhG->eq("N\x{301}", "\x{143}"));
274ok($objZhG->eq("N\x{301}", "N\x{341}"));
275ok($objZhG->eq("n\x{30C}", "\x{148}"));
276ok($objZhG->eq("N\x{30C}", "\x{147}"));
277ok($objZhG->eq("n\x{300}", "\x{1F9}"));
278ok($objZhG->eq("n\x{300}", "n\x{340}"));
279ok($objZhG->eq("N\x{300}", "\x{1F8}"));
280ok($objZhG->eq("N\x{300}", "N\x{340}"));
281ok($objZhG->eq("o\x{304}", "\x{14D}"));
282ok($objZhG->eq("O\x{304}", "\x{14C}"));
283ok($objZhG->eq("o\x{301}", pack('U', 0xF3)));
284ok($objZhG->eq("o\x{301}", "o\x{341}"));
285ok($objZhG->eq("O\x{301}", pack('U', 0xD3)));
286ok($objZhG->eq("O\x{301}", "O\x{341}"));
287ok($objZhG->eq("o\x{30C}", "\x{1D2}"));
288ok($objZhG->eq("O\x{30C}", "\x{1D1}"));
289ok($objZhG->eq("o\x{300}", pack('U', 0xF2)));
290ok($objZhG->eq("o\x{300}", "o\x{340}"));
291ok($objZhG->eq("O\x{300}", pack('U', 0xD2)));
292ok($objZhG->eq("O\x{300}", "O\x{340}"));
293ok($objZhG->eq("u\x{304}", "\x{16B}"));
294ok($objZhG->eq("U\x{304}", "\x{16A}"));
295ok($objZhG->eq("u\x{301}", pack('U', 0xFA)));
296ok($objZhG->eq("u\x{301}", "u\x{341}"));
297ok($objZhG->eq("U\x{301}", pack('U', 0xDA)));
298ok($objZhG->eq("U\x{301}", "U\x{341}"));
299ok($objZhG->eq("u\x{30C}", "\x{1D4}"));
300ok($objZhG->eq("U\x{30C}", "\x{1D3}"));
301ok($objZhG->eq("u\x{300}", pack('U', 0xF9)));
302ok($objZhG->eq("u\x{300}", "u\x{340}"));
303ok($objZhG->eq("U\x{300}", pack('U', 0xD9)));
304ok($objZhG->eq("U\x{300}", "U\x{340}"));
305ok($objZhG->eq("u\x{308}\x{304}", "\x{1D6}"));
306ok($objZhG->eq("U\x{308}\x{304}", "\x{1D5}"));
307ok($objZhG->eq("u\x{308}\x{304}", pack('U*', 0xFC, 0x304)));
308ok($objZhG->eq("U\x{308}\x{304}", pack('U*', 0xDC, 0x304)));
309ok($objZhG->eq("u\x{308}\x{301}", "\x{1D8}"));
310ok($objZhG->eq("u\x{308}\x{301}", "u\x{308}\x{341}"));
311ok($objZhG->eq("U\x{308}\x{301}", "\x{1D7}"));
312ok($objZhG->eq("U\x{308}\x{301}", "U\x{308}\x{341}"));
313ok($objZhG->eq("u\x{308}\x{301}", pack('U*', 0xFC, 0x301)));
314ok($objZhG->eq("u\x{308}\x{301}", pack('U*', 0xFC, 0x341)));
315ok($objZhG->eq("U\x{308}\x{301}", pack('U*', 0xDC, 0x301)));
316ok($objZhG->eq("U\x{308}\x{301}", pack('U*', 0xDC, 0x341)));
317ok($objZhG->eq("u\x{308}\x{30C}", "\x{1DA}"));
318ok($objZhG->eq("U\x{308}\x{30C}", "\x{1D9}"));
319ok($objZhG->eq("u\x{308}\x{30C}", pack('U*', 0xFC, 0x30C)));
320ok($objZhG->eq("U\x{308}\x{30C}", pack('U*', 0xDC, 0x30C)));
321ok($objZhG->eq("u\x{308}\x{300}", "\x{1DC}"));
322ok($objZhG->eq("u\x{308}\x{300}", "u\x{308}\x{340}"));
323ok($objZhG->eq("U\x{308}\x{300}", "\x{1DB}"));
324ok($objZhG->eq("U\x{308}\x{300}", "U\x{308}\x{340}"));
325ok($objZhG->eq("u\x{308}\x{300}", pack('U*', 0xFC, 0x300)));
326ok($objZhG->eq("u\x{308}\x{300}", pack('U*', 0xFC, 0x340)));
327ok($objZhG->eq("U\x{308}\x{300}", pack('U*', 0xDC, 0x300)));
328ok($objZhG->eq("U\x{308}\x{300}", pack('U*', 0xDC, 0x340)));
329ok($objZhG->eq("u\x{308}", pack('U', 0xFC)));
330ok($objZhG->eq("U\x{308}", pack('U', 0xDC)));
331
332# 274
333
334ok($objZhG->eq("e\x{302}\x{303}", "\x{1EC5}"));
335ok($objZhG->eq("E\x{302}\x{303}", "\x{1EC4}"));
336ok($objZhG->eq("e\x{302}\x{309}", "\x{1EC3}"));
337ok($objZhG->eq("E\x{302}\x{309}", "\x{1EC2}"));
338ok($objZhG->eq("e\x{302}\x{323}", "\x{1EC7}"));
339ok($objZhG->eq("E\x{302}\x{323}", "\x{1EC6}"));
340
341# 280
342
343$objZhG->change(level => 1);
344
345ok($objZhG->lt("\x{A000}", "\x{554A}"));
346ok($objZhG->lt("\x{554A}", "\x{963F}"));
347ok($objZhG->lt("\x{963F}", "\x{57C3}"));
348ok($objZhG->lt("\x{57C3}", "\x{6328}"));
349ok($objZhG->lt("\x{6328}", "\x{54CE}"));
350ok($objZhG->lt("\x{54CE}", "\x{5509}"));
351ok($objZhG->lt("\x{5509}", "\x{54C0}"));
352ok($objZhG->lt("\x{54C0}", "\x{7691}"));
353ok($objZhG->lt("\x{7691}", "\x{764C}"));
354ok($objZhG->lt("\x{764C}", "\x{853C}"));
355ok($objZhG->lt("\x{853C}", "\x{77EE}"));
356ok($objZhG->lt("\x{77EE}", "\x{4E00}"));
357ok($objZhG->lt("\x{4E00}", "\x{9F2F}"));
358ok($objZhG->lt("\x{9F2F}", "\x{9F39}"));
359ok($objZhG->lt("\x{9F39}", "\x{9F37}"));
360ok($objZhG->lt("\x{9F37}", "\x{9F3D}"));
361ok($objZhG->lt("\x{9F3D}", "\x{9F3E}"));
362ok($objZhG->lt("\x{9F3E}", "\x{9F44}"));
363
364# 298
365