1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
|
BEGIN {
unless ('A' eq pack('U', 0x41)) {
print "1..0 # Unicode::Collate cannot pack a Unicode code point\n";
exit 0;
}
unless (0x41 == unpack('U', 'A')) {
print "1..0 # Unicode::Collate cannot get a Unicode code point\n";
exit 0;
}
if ($ENV{PERL_CORE}) {
chdir('t') if -d 't';
@INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
}
}
use strict;
use warnings;
BEGIN { $| = 1; print "1..166\n"; }
my $count = 0;
sub ok ($;$) {
my $p = my $r = shift;
if (@_) {
my $x = shift;
$p = !defined $x ? !defined $r : !defined $r ? 0 : $r eq $x;
}
print $p ? "ok" : "not ok", ' ', ++$count, "\n";
}
use Unicode::Collate::Locale;
ok(1);
#########################
my $objUr = Unicode::Collate::Locale->
new(locale => 'UR', normalization => undef);
ok($objUr->getlocale, 'ur');
$objUr->change(level => 3);
ok($objUr->eq("\x{623}", "\x{627}\x{654}"));
ok($objUr->eq("\x{622}", "\x{627}\x{653}"));
ok($objUr->eq("\x{624}", "\x{648}\x{654}"));
ok($objUr->eq("\x{6C2}", "\x{6C1}\x{654}"));
ok($objUr->eq("\x{626}", "\x{64A}\x{654}"));
ok($objUr->eq("\x{6D3}", "\x{6D2}\x{654}"));
# 8
$objUr->change(level => 2);
ok($objUr->lt("\x{627}", "\x{623}"));
ok($objUr->lt("\x{648}", "\x{624}"));
ok($objUr->lt("\x{6C1}", "\x{6C2}"));
ok($objUr->lt("\x{6CC}", "\x{626}"));
ok($objUr->lt("\x{6D2}", "\x{6D3}"));
# 13
ok($objUr->lt("\x{652}", "\x{64E}"));
ok($objUr->lt("\x{64E}", "\x{650}"));
ok($objUr->lt("\x{650}", "\x{64F}"));
ok($objUr->lt("\x{64F}", "\x{670}"));
ok($objUr->lt("\x{670}", "\x{656}"));
ok($objUr->lt("\x{656}", "\x{657}"));
ok($objUr->lt("\x{657}", "\x{64B}"));
ok($objUr->lt("\x{64B}", "\x{64D}"));
ok($objUr->lt("\x{64D}", "\x{64C}"));
ok($objUr->lt("\x{64C}", "\x{654}"));
ok($objUr->lt("\x{654}", "\x{651}"));
ok($objUr->lt("\x{651}", "\x{658}"));
ok($objUr->lt("\x{658}", "\x{653}"));
ok($objUr->lt("\x{653}", "\x{655}"));
# 27
$objUr->change(level => 1);
ok($objUr->eq("\x{627}", "\x{623}"));
ok($objUr->eq("\x{648}", "\x{624}"));
ok($objUr->eq("\x{6C1}", "\x{6C2}"));
ok($objUr->eq("\x{6CC}", "\x{626}"));
ok($objUr->eq("\x{6D2}", "\x{6D3}"));
# 32
ok($objUr->eq("\x{652}", "\x{64E}"));
ok($objUr->eq("\x{64E}", "\x{650}"));
ok($objUr->eq("\x{650}", "\x{64F}"));
ok($objUr->eq("\x{64F}", "\x{670}"));
ok($objUr->eq("\x{670}", "\x{656}"));
ok($objUr->eq("\x{656}", "\x{657}"));
ok($objUr->eq("\x{657}", "\x{64B}"));
ok($objUr->eq("\x{64B}", "\x{64D}"));
ok($objUr->eq("\x{64D}", "\x{64C}"));
ok($objUr->eq("\x{64C}", "\x{654}"));
ok($objUr->eq("\x{654}", "\x{651}"));
ok($objUr->eq("\x{651}", "\x{658}"));
ok($objUr->eq("\x{658}", "\x{653}"));
ok($objUr->eq("\x{653}", "\x{655}"));
# 46
for my $h (0, 1) {
no warnings 'utf8';
my $t = $h ? pack('U', 0xFFFF) : "";
$objUr->change(highestFFFF => 1) if $h;
ok($objUr->lt("\x{627}$t", "\x{622}"));
ok($objUr->lt("\x{622}$t", "\x{628}"));
ok($objUr->lt("\x{628}$t", "\x{628}\x{6BE}"));
ok($objUr->lt("\x{628}\x{6BE}$t", "\x{67E}"));
ok($objUr->lt("\x{67E}$t", "\x{67E}\x{6BE}"));
ok($objUr->lt("\x{67E}\x{6BE}$t", "\x{62A}"));
ok($objUr->lt("\x{62A}$t", "\x{62A}\x{6BE}"));
ok($objUr->lt("\x{62A}\x{6BE}$t", "\x{679}"));
ok($objUr->lt("\x{679}$t", "\x{679}\x{6BE}"));
ok($objUr->lt("\x{679}\x{6BE}$t", "\x{62B}"));
ok($objUr->lt("\x{62B}$t", "\x{62C}"));
ok($objUr->lt("\x{62C}$t", "\x{62C}\x{6BE}"));
ok($objUr->lt("\x{62C}\x{6BE}$t", "\x{686}"));
ok($objUr->lt("\x{686}$t", "\x{686}\x{6BE}"));
ok($objUr->lt("\x{686}\x{6BE}$t", "\x{62D}"));
ok($objUr->lt("\x{62D}$t", "\x{62E}"));
ok($objUr->lt("\x{62E}$t", "\x{62F}"));
ok($objUr->lt("\x{62F}$t", "\x{62F}\x{6BE}"));
ok($objUr->lt("\x{62F}\x{6BE}$t", "\x{688}"));
ok($objUr->lt("\x{688}$t", "\x{688}\x{6BE}"));
ok($objUr->lt("\x{688}\x{6BE}$t", "\x{630}"));
ok($objUr->lt("\x{630}$t", "\x{631}"));
ok($objUr->lt("\x{631}$t", "\x{631}\x{6BE}"));
ok($objUr->lt("\x{631}\x{6BE}$t", "\x{691}"));
ok($objUr->lt("\x{691}$t", "\x{691}\x{6BE}"));
ok($objUr->lt("\x{691}\x{6BE}$t", "\x{632}"));
ok($objUr->lt("\x{632}$t", "\x{698}"));
ok($objUr->lt("\x{698}$t", "\x{633}"));
ok($objUr->lt("\x{633}$t", "\x{634}"));
ok($objUr->lt("\x{634}$t", "\x{635}"));
ok($objUr->lt("\x{635}$t", "\x{636}"));
ok($objUr->lt("\x{636}$t", "\x{637}"));
ok($objUr->lt("\x{637}$t", "\x{638}"));
ok($objUr->lt("\x{638}$t", "\x{639}"));
ok($objUr->lt("\x{639}$t", "\x{63A}"));
ok($objUr->lt("\x{63A}$t", "\x{641}"));
ok($objUr->lt("\x{641}$t", "\x{642}"));
ok($objUr->lt("\x{642}$t", "\x{6A9}"));
ok($objUr->lt("\x{6A9}$t", "\x{6A9}\x{6BE}"));
ok($objUr->lt("\x{6A9}\x{6BE}$t", "\x{6AF}"));
ok($objUr->lt("\x{6AF}$t", "\x{6AF}\x{6BE}"));
ok($objUr->lt("\x{6AF}\x{6BE}$t", "\x{644}"));
ok($objUr->lt("\x{644}$t", "\x{644}\x{6BE}"));
ok($objUr->lt("\x{644}\x{6BE}$t", "\x{645}"));
ok($objUr->lt("\x{645}$t", "\x{645}\x{6BE}"));
ok($objUr->lt("\x{645}\x{6BE}$t", "\x{646}"));
ok($objUr->lt("\x{646}$t", "\x{646}\x{6BE}"));
ok($objUr->lt("\x{646}\x{6BE}$t", "\x{6BA}"));
ok($objUr->lt("\x{6BA}$t", "\x{6BA}\x{6BE}"));
ok($objUr->lt("\x{6BA}\x{6BE}$t", "\x{648}"));
ok($objUr->lt("\x{648}$t", "\x{648}\x{6BE}"));
ok($objUr->lt("\x{648}\x{6BE}$t", "\x{6C1}"));
ok($objUr->lt("\x{6C1}$t", "\x{6BE}"));
ok($objUr->lt("\x{6BE}$t", "\x{6C3}"));
ok($objUr->lt("\x{6C3}$t", "\x{621}"));
ok($objUr->lt("\x{621}$t", "\x{6CC}"));
ok($objUr->lt("\x{6CC}$t", "\x{6CC}\x{6BE}"));
ok($objUr->lt("\x{6CC}\x{6BE}$t", "\x{6D2}"));
ok($objUr->lt("\x{6D2}$t", "\x{66E}"));
ok($objUr->lt("\x{66E}$t", "\x{67B}"));
}
# 166
|
