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