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..126\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 $objSq = Unicode::Collate::Locale->
32    new(locale => 'SQ', normalization => undef);
33
34ok($objSq->getlocale, 'sq');
35
36$objSq->change(level => 1);
37
38ok($objSq->lt("c", "c\x{327}"));
39ok($objSq->lt("cz","c\x{327}"));
40ok($objSq->gt("d", "c\x{327}"));
41ok($objSq->lt("d", "dh"));
42ok($objSq->lt("dz","dh"));
43ok($objSq->gt("e", "dh"));
44ok($objSq->lt("e", "e\x{308}"));
45ok($objSq->lt("ez","e\x{308}"));
46ok($objSq->gt("f", "e\x{308}"));
47ok($objSq->lt("g", "gj"));
48ok($objSq->lt("gz","gj"));
49ok($objSq->gt("h", "gj"));
50ok($objSq->lt("l", "ll"));
51ok($objSq->lt("lz","ll"));
52ok($objSq->gt("m", "ll"));
53ok($objSq->lt("n", "nj"));
54ok($objSq->lt("nz","nj"));
55ok($objSq->gt("o", "nj"));
56ok($objSq->lt("r", "rr"));
57ok($objSq->lt("rz","rr"));
58ok($objSq->gt("s", "rr"));
59ok($objSq->lt("s", "sh"));
60ok($objSq->lt("sz","sh"));
61ok($objSq->gt("t", "sh"));
62ok($objSq->lt("t", "th"));
63ok($objSq->lt("tz","th"));
64ok($objSq->gt("u", "th"));
65ok($objSq->lt("x", "xh"));
66ok($objSq->lt("xz","xh"));
67ok($objSq->gt("y", "xh"));
68ok($objSq->lt("z", "zh"));
69ok($objSq->lt("zz","zh"));
70ok($objSq->lt("zh","\x{1B7}"));
71
72# 35
73
74$objSq->change(level => 2);
75
76ok($objSq->eq("c\x{327}", "C\x{327}"));
77ok($objSq->eq("dh", "dH"));
78ok($objSq->eq("dH", "Dh"));
79ok($objSq->eq("Dh", "DH"));
80ok($objSq->eq("e\x{308}", "E\x{308}"));
81ok($objSq->eq("gj", "gJ"));
82ok($objSq->eq("gJ", "Gj"));
83ok($objSq->eq("Gj", "GJ"));
84ok($objSq->eq("ll", "lL"));
85ok($objSq->eq("lL", "Ll"));
86ok($objSq->eq("Ll", "LL"));
87ok($objSq->eq("nj", "nJ"));
88ok($objSq->eq("nJ", "Nj"));
89ok($objSq->eq("Nj", "NJ"));
90ok($objSq->eq("rr", "rR"));
91ok($objSq->eq("rR", "Rr"));
92ok($objSq->eq("Rr", "RR"));
93ok($objSq->eq("sh", "sH"));
94ok($objSq->eq("sH", "Sh"));
95ok($objSq->eq("Sh", "SH"));
96ok($objSq->eq("th", "tH"));
97ok($objSq->eq("tH", "Th"));
98ok($objSq->eq("Th", "TH"));
99ok($objSq->eq("xh", "xH"));
100ok($objSq->eq("xH", "Xh"));
101ok($objSq->eq("Xh", "XH"));
102ok($objSq->eq("zh", "zH"));
103ok($objSq->eq("zH", "Zh"));
104ok($objSq->eq("Zh", "ZH"));
105
106# 64
107
108$objSq->change(level => 3);
109
110ok($objSq->lt("c\x{327}", "C\x{327}"));
111ok($objSq->lt("dh", "dH"));
112ok($objSq->lt("dH", "Dh"));
113ok($objSq->lt("Dh", "DH"));
114ok($objSq->lt("e\x{308}", "E\x{308}"));
115ok($objSq->lt("gj", "gJ"));
116ok($objSq->lt("gJ", "Gj"));
117ok($objSq->lt("Gj", "GJ"));
118ok($objSq->lt("ll", "lL"));
119ok($objSq->lt("lL", "Ll"));
120ok($objSq->lt("Ll", "LL"));
121ok($objSq->lt("nj", "nJ"));
122ok($objSq->lt("nJ", "Nj"));
123ok($objSq->lt("Nj", "NJ"));
124ok($objSq->lt("rr", "rR"));
125ok($objSq->lt("rR", "Rr"));
126ok($objSq->lt("Rr", "RR"));
127ok($objSq->lt("sh", "sH"));
128ok($objSq->lt("sH", "Sh"));
129ok($objSq->lt("Sh", "SH"));
130ok($objSq->lt("th", "tH"));
131ok($objSq->lt("tH", "Th"));
132ok($objSq->lt("Th", "TH"));
133ok($objSq->lt("xh", "xH"));
134ok($objSq->lt("xH", "Xh"));
135ok($objSq->lt("Xh", "XH"));
136ok($objSq->lt("zh", "zH"));
137ok($objSq->lt("zH", "Zh"));
138ok($objSq->lt("Zh", "ZH"));
139
140# 93
141
142ok($objSq->eq("c\x{327}", _pack_U(0xE7)));
143ok($objSq->eq("C\x{327}", _pack_U(0xC7)));
144ok($objSq->eq("e\x{308}", _pack_U(0xEB)));
145ok($objSq->eq("E\x{308}", _pack_U(0xCB)));
146
147# 97
148
149$objSq->change(upper_before_lower => 1);
150
151ok($objSq->gt("c\x{327}", "C\x{327}"));
152ok($objSq->gt("dh", "dH"));
153ok($objSq->gt("dH", "Dh"));
154ok($objSq->gt("Dh", "DH"));
155ok($objSq->gt("e\x{308}", "E\x{308}"));
156ok($objSq->gt("gj", "gJ"));
157ok($objSq->gt("gJ", "Gj"));
158ok($objSq->gt("Gj", "GJ"));
159ok($objSq->gt("ll", "lL"));
160ok($objSq->gt("lL", "Ll"));
161ok($objSq->gt("Ll", "LL"));
162ok($objSq->gt("nj", "nJ"));
163ok($objSq->gt("nJ", "Nj"));
164ok($objSq->gt("Nj", "NJ"));
165ok($objSq->gt("rr", "rR"));
166ok($objSq->gt("rR", "Rr"));
167ok($objSq->gt("Rr", "RR"));
168ok($objSq->gt("sh", "sH"));
169ok($objSq->gt("sH", "Sh"));
170ok($objSq->gt("Sh", "SH"));
171ok($objSq->gt("th", "tH"));
172ok($objSq->gt("tH", "Th"));
173ok($objSq->gt("Th", "TH"));
174ok($objSq->gt("xh", "xH"));
175ok($objSq->gt("xH", "Xh"));
176ok($objSq->gt("Xh", "XH"));
177ok($objSq->gt("zh", "zH"));
178ok($objSq->gt("zH", "Zh"));
179ok($objSq->gt("Zh", "ZH"));
180
181# 126
182