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..118\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 $objHr = Unicode::Collate::Locale->
32    new(locale => 'HR', normalization => undef);
33
34ok($objHr->getlocale, 'hr');
35
36$objHr->change(level => 1);
37
38ok($objHr->lt("c", "c\x{30C}"));
39ok($objHr->lt("c\x{30C}", "c\x{301}"));
40ok($objHr->gt("d", "c\x{301}"));
41ok($objHr->lt("d", "dz\x{30C}"));
42ok($objHr->lt("dzz", "dz\x{30C}"));
43ok($objHr->lt("dz\x{30C}", "d\x{335}"));
44ok($objHr->gt("e", "d\x{335}"));
45ok($objHr->lt("l", "lj"));
46ok($objHr->lt("lz","lj"));
47ok($objHr->gt("m", "lj"));
48ok($objHr->lt("n", "nj"));
49ok($objHr->lt("nz","nj"));
50ok($objHr->gt("o", "nj"));
51ok($objHr->lt("s", "s\x{30C}"));
52ok($objHr->lt("sz","s\x{30C}"));
53ok($objHr->gt("t", "s\x{30C}"));
54ok($objHr->lt("z", "z\x{30C}"));
55ok($objHr->lt("zz","z\x{30C}"));
56ok($objHr->lt("z\x{30C}", "\x{292}")); # U+0292 EZH
57
58# 21
59
60# not tailored
61ok($objHr->lt("dZ\x{30C}","dz\x{30C}"));
62ok($objHr->lt("lJ", "lj"));
63ok($objHr->lt("nJ", "nj"));
64
65# 24
66
67$objHr->change(level => 2);
68
69ok($objHr->eq("c\x{30C}", "C\x{30C}"));
70ok($objHr->eq("c\x{301}", "C\x{301}"));
71ok($objHr->eq("dz\x{30C}","Dz\x{30C}"));
72ok($objHr->eq("Dz\x{30C}","DZ\x{30C}"));
73ok($objHr->eq("d\x{335}", "D\x{335}"));
74ok($objHr->eq("lj", "Lj"));
75ok($objHr->eq("Lj", "LJ"));
76ok($objHr->eq("nj", "Nj"));
77ok($objHr->eq("Nj", "NJ"));
78ok($objHr->eq("s\x{30C}", "S\x{30C}"));
79ok($objHr->eq("z\x{30C}", "Z\x{30C}"));
80
81# 35
82
83ok($objHr->eq("dz\x{30C}", "\x{1C6}"));
84ok($objHr->eq("Dz\x{30C}", "\x{1C6}"));
85ok($objHr->eq("Dz\x{30C}", "\x{1C5}"));
86ok($objHr->eq("DZ\x{30C}", "\x{1C5}"));
87ok($objHr->eq("DZ\x{30C}", "\x{1C4}"));
88
89ok($objHr->eq("lj", "\x{1C9}"));
90ok($objHr->eq("Lj", "\x{1C9}"));
91ok($objHr->eq("Lj", "\x{1C8}"));
92ok($objHr->eq("LJ", "\x{1C8}"));
93ok($objHr->eq("LJ", "\x{1C7}"));
94
95ok($objHr->eq("nj", "\x{1CC}"));
96ok($objHr->eq("Nj", "\x{1CC}"));
97ok($objHr->eq("Nj", "\x{1CB}"));
98ok($objHr->eq("NJ", "\x{1CB}"));
99ok($objHr->eq("NJ", "\x{1CA}"));
100
101# 50
102
103$objHr->change(level => 3);
104
105ok($objHr->lt("c\x{30C}", "C\x{30C}"));
106ok($objHr->lt("c\x{301}", "C\x{301}"));
107ok($objHr->lt("dz\x{30C}","Dz\x{30C}"));
108ok($objHr->lt("Dz\x{30C}","DZ\x{30C}"));
109ok($objHr->lt("d\x{335}", "D\x{335}"));
110ok($objHr->lt("lj", "Lj"));
111ok($objHr->lt("Lj", "LJ"));
112ok($objHr->lt("nj", "Nj"));
113ok($objHr->lt("Nj", "NJ"));
114ok($objHr->lt("s\x{30C}", "S\x{30C}"));
115ok($objHr->lt("z\x{30C}", "Z\x{30C}"));
116
117# 61
118
119ok($objHr->lt("dz\x{30C}", "\x{1C6}"));
120ok($objHr->gt("Dz\x{30C}", "\x{1C6}"));
121ok($objHr->lt("Dz\x{30C}", "\x{1C5}"));
122ok($objHr->gt("DZ\x{30C}", "\x{1C5}"));
123ok($objHr->lt("DZ\x{30C}", "\x{1C4}"));
124
125ok($objHr->lt("lj", "\x{1C9}"));
126ok($objHr->gt("Lj", "\x{1C9}"));
127ok($objHr->lt("Lj", "\x{1C8}"));
128ok($objHr->gt("LJ", "\x{1C8}"));
129ok($objHr->lt("LJ", "\x{1C7}"));
130
131ok($objHr->lt("nj", "\x{1CC}"));
132ok($objHr->gt("Nj", "\x{1CC}"));
133ok($objHr->lt("Nj", "\x{1CB}"));
134ok($objHr->gt("NJ", "\x{1CB}"));
135ok($objHr->lt("NJ", "\x{1CA}"));
136
137# 76
138
139ok($objHr->eq("c\x{30C}", "\x{10D}"));
140ok($objHr->eq("C\x{30C}", "\x{10C}"));
141ok($objHr->eq("c\x{301}", "\x{107}"));
142ok($objHr->eq("c\x{341}", "\x{107}"));
143ok($objHr->eq("C\x{301}", "\x{106}"));
144ok($objHr->eq("C\x{341}", "\x{106}"));
145ok($objHr->eq("dz\x{30C}", "d\x{17E}"));
146ok($objHr->eq("dZ\x{30C}", "d\x{17D}"));
147ok($objHr->eq("Dz\x{30C}", "D\x{17E}"));
148ok($objHr->eq("DZ\x{30C}", "D\x{17D}"));
149ok($objHr->eq("d\x{335}", "\x{111}"));
150ok($objHr->eq("D\x{335}", "\x{110}"));
151ok($objHr->eq("s\x{30C}", "\x{161}"));
152ok($objHr->eq("S\x{30C}", "\x{160}"));
153ok($objHr->eq("z\x{30C}", "\x{17E}"));
154ok($objHr->eq("Z\x{30C}", "\x{17D}"));
155
156# 92
157
158$objHr->change(upper_before_lower => 1);
159
160ok($objHr->gt("c\x{30C}", "C\x{30C}"));
161ok($objHr->gt("c\x{301}", "C\x{301}"));
162ok($objHr->gt("dz\x{30C}","Dz\x{30C}"));
163ok($objHr->gt("Dz\x{30C}","DZ\x{30C}"));
164ok($objHr->gt("d\x{335}", "D\x{335}"));
165ok($objHr->gt("lj", "Lj"));
166ok($objHr->gt("Lj", "LJ"));
167ok($objHr->gt("nj", "Nj"));
168ok($objHr->gt("Nj", "NJ"));
169ok($objHr->gt("s\x{30C}", "S\x{30C}"));
170ok($objHr->gt("z\x{30C}", "Z\x{30C}"));
171
172# 103
173
174ok($objHr->lt("DZ\x{30C}", "\x{1C4}"));
175ok($objHr->gt("Dz\x{30C}", "\x{1C4}"));
176ok($objHr->lt("Dz\x{30C}", "\x{1C5}"));
177ok($objHr->gt("dz\x{30C}", "\x{1C5}"));
178ok($objHr->lt("dz\x{30C}", "\x{1C6}"));
179
180ok($objHr->lt("LJ", "\x{1C7}"));
181ok($objHr->gt("Lj", "\x{1C7}"));
182ok($objHr->lt("Lj", "\x{1C8}"));
183ok($objHr->gt("lj", "\x{1C8}"));
184ok($objHr->lt("lj", "\x{1C9}"));
185
186ok($objHr->lt("NJ", "\x{1CA}"));
187ok($objHr->gt("Nj", "\x{1CA}"));
188ok($objHr->lt("Nj", "\x{1CB}"));
189ok($objHr->gt("nj", "\x{1CB}"));
190ok($objHr->lt("nj", "\x{1CC}"));
191
192# 118
193