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