Commit | Line | Data |
---|---|---|
68adb2b0 CBW |
1 | |
2 | BEGIN { | |
3 | unless ("A" eq pack('U', 0x41)) { | |
4 | print "1..0 # Unicode::Collate " . | |
5 | "cannot stringify a Unicode code point\n"; | |
6 | exit 0; | |
7 | } | |
8 | if ($ENV{PERL_CORE}) { | |
9 | chdir('t') if -d 't'; | |
10 | @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib); | |
11 | } | |
12 | } | |
13 | ||
14 | use Test; | |
15 | BEGIN { plan tests => 424 }; | |
16 | ||
1393fe00 CBW |
17 | use strict; |
18 | use warnings; | |
19 | use Unicode::Collate::Locale; | |
20 | ||
68adb2b0 CBW |
21 | ok(1); |
22 | ||
23 | ######################### | |
1393fe00 CBW |
24 | |
25 | my $objVi = Unicode::Collate::Locale-> | |
26 | new(locale => 'VI', normalization => undef); | |
27 | ||
1393fe00 CBW |
28 | ok($objVi->getlocale, 'vi'); |
29 | ||
30 | $objVi->change(level => 1); | |
31 | ||
32 | ok($objVi->lt("a", "a\x{306}")); | |
33 | ok($objVi->lt("a\x{306}", "a\x{302}")); | |
34 | ok($objVi->gt("b", "a\x{302}")); | |
35 | ok($objVi->lt("d", "d\x{335}")); | |
36 | ok($objVi->gt("e", "d\x{335}")); | |
37 | ok($objVi->lt("e", "e\x{302}")); | |
38 | ok($objVi->gt("f", "e\x{302}")); | |
39 | ok($objVi->lt("o", "o\x{302}")); | |
40 | ok($objVi->lt("o\x{302}", "o\x{31B}")); | |
41 | ok($objVi->gt("p", "o\x{31B}")); | |
42 | ok($objVi->lt("u", "u\x{31B}")); | |
43 | ok($objVi->gt("v", "u\x{31B}")); | |
44 | ||
45 | # 14 | |
46 | ||
47 | ok($objVi->eq("\x{300}", "\x{309}")); | |
48 | ok($objVi->eq("\x{309}", "\x{303}")); | |
49 | ok($objVi->eq("\x{303}", "\x{301}")); | |
50 | ok($objVi->eq("\x{301}", "\x{323}")); | |
51 | ok($objVi->eq("\x{323}", "\x{306}")); | |
52 | ok($objVi->eq("\x{306}", "\x{302}")); | |
53 | ||
54 | ok($objVi->eq("X\x{300}", "X\x{309}")); | |
55 | ok($objVi->eq("X\x{309}", "X\x{303}")); | |
56 | ok($objVi->eq("X\x{303}", "X\x{301}")); | |
57 | ok($objVi->eq("X\x{301}", "X\x{323}")); | |
58 | ok($objVi->eq("X\x{323}", "X\x{306}")); | |
59 | ok($objVi->eq("X\x{306}", "X\x{302}")); | |
60 | ||
61 | # 26 | |
62 | ||
63 | $objVi->change(level => 2); | |
64 | ||
65 | ok($objVi->lt("\x{300}", "\x{309}")); | |
66 | ok($objVi->lt("\x{309}", "\x{303}")); | |
67 | ok($objVi->lt("\x{303}", "\x{301}")); | |
68 | ok($objVi->lt("\x{301}", "\x{323}")); | |
69 | ok($objVi->lt("\x{323}", "\x{306}")); | |
70 | ok($objVi->lt("\x{306}", "\x{302}")); | |
71 | ||
72 | ok($objVi->lt("X\x{300}", "X\x{309}")); | |
73 | ok($objVi->lt("X\x{309}", "X\x{303}")); | |
74 | ok($objVi->lt("X\x{303}", "X\x{301}")); | |
75 | ok($objVi->lt("X\x{301}", "X\x{323}")); | |
76 | ok($objVi->lt("X\x{323}", "X\x{306}")); | |
77 | ok($objVi->lt("X\x{306}", "X\x{302}")); | |
78 | ||
79 | # 38 | |
80 | ||
81 | ok($objVi->eq("a\x{306}", "A\x{306}")); | |
82 | ok($objVi->eq("a\x{302}", "A\x{302}")); | |
83 | ok($objVi->eq("d\x{335}", "D\x{335}")); | |
84 | ok($objVi->eq("e\x{302}", "E\x{302}")); | |
85 | ok($objVi->eq("o\x{302}", "O\x{302}")); | |
86 | ok($objVi->eq("o\x{31B}", "O\x{31B}")); | |
87 | ok($objVi->eq("u\x{31B}", "U\x{31B}")); | |
88 | ||
89 | # 45 | |
90 | ||
91 | $objVi->change(level => 3); | |
92 | ||
93 | ok($objVi->lt("a\x{306}", "A\x{306}")); | |
94 | ok($objVi->lt("a\x{302}", "A\x{302}")); | |
95 | ok($objVi->lt("d\x{335}", "D\x{335}")); | |
96 | ok($objVi->lt("e\x{302}", "E\x{302}")); | |
97 | ok($objVi->lt("o\x{302}", "O\x{302}")); | |
98 | ok($objVi->lt("o\x{31B}", "O\x{31B}")); | |
99 | ok($objVi->lt("u\x{31B}", "U\x{31B}")); | |
100 | ||
101 | # 52 | |
102 | ||
103 | ok($objVi->eq("a\x{306}", "\x{103}")); | |
104 | ok($objVi->eq("A\x{306}", "\x{102}")); | |
105 | ok($objVi->eq("a\x{302}", pack('U', 0xE2))); | |
106 | ok($objVi->eq("A\x{302}", pack('U', 0xC2))); | |
107 | ok($objVi->eq("d\x{335}", "\x{111}")); | |
108 | ok($objVi->eq("D\x{335}", "\x{110}")); | |
109 | ok($objVi->eq("e\x{302}", pack('U', 0xEA))); | |
110 | ok($objVi->eq("E\x{302}", pack('U', 0xCA))); | |
111 | ok($objVi->eq("o\x{302}", pack('U', 0xF4))); | |
112 | ok($objVi->eq("O\x{302}", pack('U', 0xD4))); | |
113 | ok($objVi->eq("o\x{31B}", "\x{1A1}")); | |
114 | ok($objVi->eq("O\x{31B}", "\x{1A0}")); | |
115 | ok($objVi->eq("u\x{31B}", "\x{1B0}")); | |
116 | ok($objVi->eq("U\x{31B}", "\x{1AF}")); | |
117 | ||
118 | # 66 | |
119 | ||
028d3bfa CBW |
120 | ok($objVi->eq("e\x{306}", "\x{115}")); |
121 | ok($objVi->eq("E\x{306}", "\x{114}")); | |
122 | ok($objVi->eq("i\x{306}", "\x{12D}")); | |
123 | ok($objVi->eq("I\x{306}", "\x{12C}")); | |
124 | ok($objVi->eq("o\x{306}", "\x{14F}")); | |
125 | ok($objVi->eq("O\x{306}", "\x{14E}")); | |
126 | ok($objVi->eq("u\x{306}", "\x{16D}")); | |
127 | ok($objVi->eq("U\x{306}", "\x{16C}")); | |
128 | ||
129 | # 74 | |
130 | ||
1393fe00 | 131 | ok($objVi->eq("a\x{300}", pack('U', 0xE0))); |
6709de88 | 132 | ok($objVi->eq("a\x{340}", pack('U', 0xE0))); |
1393fe00 CBW |
133 | ok($objVi->eq("a\x{309}", "\x{1EA3}")); |
134 | ok($objVi->eq("a\x{303}", pack('U', 0xE3))); | |
135 | ok($objVi->eq("a\x{301}", pack('U', 0xE1))); | |
6709de88 | 136 | ok($objVi->eq("a\x{341}", pack('U', 0xE1))); |
1393fe00 CBW |
137 | ok($objVi->eq("a\x{323}", "\x{1EA1}")); |
138 | ok($objVi->eq("A\x{300}", pack('U', 0xC0))); | |
6709de88 | 139 | ok($objVi->eq("A\x{340}", pack('U', 0xC0))); |
1393fe00 CBW |
140 | ok($objVi->eq("A\x{309}", "\x{1EA2}")); |
141 | ok($objVi->eq("A\x{303}", pack('U', 0xC3))); | |
142 | ok($objVi->eq("A\x{301}", pack('U', 0xC1))); | |
6709de88 | 143 | ok($objVi->eq("A\x{341}", pack('U', 0xC1))); |
1393fe00 CBW |
144 | ok($objVi->eq("A\x{323}", "\x{1EA0}")); |
145 | ok($objVi->eq("a\x{306}\x{300}", "\x{1EB1}")); | |
6709de88 | 146 | ok($objVi->eq("a\x{306}\x{340}", "\x{1EB1}")); |
1393fe00 CBW |
147 | ok($objVi->eq("a\x{306}\x{309}", "\x{1EB3}")); |
148 | ok($objVi->eq("a\x{306}\x{303}", "\x{1EB5}")); | |
149 | ok($objVi->eq("a\x{306}\x{301}", "\x{1EAF}")); | |
6709de88 | 150 | ok($objVi->eq("a\x{306}\x{341}", "\x{1EAF}")); |
1393fe00 CBW |
151 | ok($objVi->eq("a\x{306}\x{323}", "\x{1EB7}")); |
152 | ok($objVi->eq("A\x{306}\x{300}", "\x{1EB0}")); | |
6709de88 | 153 | ok($objVi->eq("A\x{306}\x{340}", "\x{1EB0}")); |
1393fe00 CBW |
154 | ok($objVi->eq("A\x{306}\x{309}", "\x{1EB2}")); |
155 | ok($objVi->eq("A\x{306}\x{303}", "\x{1EB4}")); | |
156 | ok($objVi->eq("A\x{306}\x{301}", "\x{1EAE}")); | |
6709de88 | 157 | ok($objVi->eq("A\x{306}\x{341}", "\x{1EAE}")); |
1393fe00 CBW |
158 | ok($objVi->eq("A\x{306}\x{323}", "\x{1EB6}")); |
159 | ok($objVi->eq("a\x{302}\x{300}", "\x{1EA7}")); | |
6709de88 | 160 | ok($objVi->eq("a\x{302}\x{340}", "\x{1EA7}")); |
1393fe00 CBW |
161 | ok($objVi->eq("a\x{302}\x{309}", "\x{1EA9}")); |
162 | ok($objVi->eq("a\x{302}\x{303}", "\x{1EAB}")); | |
163 | ok($objVi->eq("a\x{302}\x{301}", "\x{1EA5}")); | |
6709de88 | 164 | ok($objVi->eq("a\x{302}\x{341}", "\x{1EA5}")); |
1393fe00 CBW |
165 | ok($objVi->eq("a\x{302}\x{323}", "\x{1EAD}")); |
166 | ok($objVi->eq("A\x{302}\x{300}", "\x{1EA6}")); | |
6709de88 | 167 | ok($objVi->eq("A\x{302}\x{340}", "\x{1EA6}")); |
1393fe00 CBW |
168 | ok($objVi->eq("A\x{302}\x{309}", "\x{1EA8}")); |
169 | ok($objVi->eq("A\x{302}\x{303}", "\x{1EAA}")); | |
170 | ok($objVi->eq("A\x{302}\x{301}", "\x{1EA4}")); | |
6709de88 | 171 | ok($objVi->eq("A\x{302}\x{341}", "\x{1EA4}")); |
1393fe00 CBW |
172 | ok($objVi->eq("A\x{302}\x{323}", "\x{1EAC}")); |
173 | ok($objVi->eq("e\x{300}", pack('U', 0xE8))); | |
6709de88 | 174 | ok($objVi->eq("e\x{340}", pack('U', 0xE8))); |
1393fe00 CBW |
175 | ok($objVi->eq("e\x{309}", "\x{1EBB}")); |
176 | ok($objVi->eq("e\x{303}", "\x{1EBD}")); | |
177 | ok($objVi->eq("e\x{301}", pack('U', 0xE9))); | |
6709de88 | 178 | ok($objVi->eq("e\x{341}", pack('U', 0xE9))); |
1393fe00 CBW |
179 | ok($objVi->eq("e\x{323}", "\x{1EB9}")); |
180 | ok($objVi->eq("E\x{300}", pack('U', 0xC8))); | |
6709de88 | 181 | ok($objVi->eq("E\x{340}", pack('U', 0xC8))); |
1393fe00 CBW |
182 | ok($objVi->eq("E\x{309}", "\x{1EBA}")); |
183 | ok($objVi->eq("E\x{303}", "\x{1EBC}")); | |
184 | ok($objVi->eq("E\x{301}", pack('U', 0xC9))); | |
6709de88 | 185 | ok($objVi->eq("E\x{341}", pack('U', 0xC9))); |
1393fe00 CBW |
186 | ok($objVi->eq("E\x{323}", "\x{1EB8}")); |
187 | ok($objVi->eq("e\x{302}\x{300}", "\x{1EC1}")); | |
6709de88 | 188 | ok($objVi->eq("e\x{302}\x{340}", "\x{1EC1}")); |
1393fe00 CBW |
189 | ok($objVi->eq("e\x{302}\x{309}", "\x{1EC3}")); |
190 | ok($objVi->eq("e\x{302}\x{303}", "\x{1EC5}")); | |
191 | ok($objVi->eq("e\x{302}\x{301}", "\x{1EBF}")); | |
6709de88 | 192 | ok($objVi->eq("e\x{302}\x{341}", "\x{1EBF}")); |
1393fe00 CBW |
193 | ok($objVi->eq("e\x{302}\x{323}", "\x{1EC7}")); |
194 | ok($objVi->eq("E\x{302}\x{300}", "\x{1EC0}")); | |
6709de88 | 195 | ok($objVi->eq("E\x{302}\x{340}", "\x{1EC0}")); |
1393fe00 CBW |
196 | ok($objVi->eq("E\x{302}\x{309}", "\x{1EC2}")); |
197 | ok($objVi->eq("E\x{302}\x{303}", "\x{1EC4}")); | |
198 | ok($objVi->eq("E\x{302}\x{301}", "\x{1EBE}")); | |
6709de88 | 199 | ok($objVi->eq("E\x{302}\x{341}", "\x{1EBE}")); |
1393fe00 CBW |
200 | ok($objVi->eq("E\x{302}\x{323}", "\x{1EC6}")); |
201 | ok($objVi->eq("i\x{300}", pack('U', 0xEC))); | |
6709de88 | 202 | ok($objVi->eq("i\x{340}", pack('U', 0xEC))); |
1393fe00 CBW |
203 | ok($objVi->eq("i\x{309}", "\x{1EC9}")); |
204 | ok($objVi->eq("i\x{303}", "\x{129}")); | |
205 | ok($objVi->eq("i\x{301}", pack('U', 0xED))); | |
6709de88 | 206 | ok($objVi->eq("i\x{341}", pack('U', 0xED))); |
1393fe00 CBW |
207 | ok($objVi->eq("i\x{323}", "\x{1ECB}")); |
208 | ok($objVi->eq("I\x{300}", pack('U', 0xCC))); | |
6709de88 | 209 | ok($objVi->eq("I\x{340}", pack('U', 0xCC))); |
1393fe00 CBW |
210 | ok($objVi->eq("I\x{309}", "\x{1EC8}")); |
211 | ok($objVi->eq("I\x{303}", "\x{128}")); | |
212 | ok($objVi->eq("I\x{301}", pack('U', 0xCD))); | |
6709de88 | 213 | ok($objVi->eq("I\x{341}", pack('U', 0xCD))); |
1393fe00 CBW |
214 | ok($objVi->eq("I\x{323}", "\x{1ECA}")); |
215 | ok($objVi->eq("o\x{300}", pack('U', 0xF2))); | |
6709de88 | 216 | ok($objVi->eq("o\x{340}", pack('U', 0xF2))); |
1393fe00 CBW |
217 | ok($objVi->eq("o\x{309}", "\x{1ECF}")); |
218 | ok($objVi->eq("o\x{303}", pack('U', 0xF5))); | |
219 | ok($objVi->eq("o\x{301}", pack('U', 0xF3))); | |
6709de88 | 220 | ok($objVi->eq("o\x{341}", pack('U', 0xF3))); |
1393fe00 CBW |
221 | ok($objVi->eq("o\x{323}", "\x{1ECD}")); |
222 | ok($objVi->eq("O\x{300}", pack('U', 0xD2))); | |
6709de88 | 223 | ok($objVi->eq("O\x{340}", pack('U', 0xD2))); |
1393fe00 CBW |
224 | ok($objVi->eq("O\x{309}", "\x{1ECE}")); |
225 | ok($objVi->eq("O\x{303}", pack('U', 0xD5))); | |
226 | ok($objVi->eq("O\x{301}", pack('U', 0xD3))); | |
6709de88 | 227 | ok($objVi->eq("O\x{341}", pack('U', 0xD3))); |
1393fe00 CBW |
228 | ok($objVi->eq("O\x{323}", "\x{1ECC}")); |
229 | ok($objVi->eq("o\x{302}\x{300}", "\x{1ED3}")); | |
6709de88 | 230 | ok($objVi->eq("o\x{302}\x{340}", "\x{1ED3}")); |
1393fe00 CBW |
231 | ok($objVi->eq("o\x{302}\x{309}", "\x{1ED5}")); |
232 | ok($objVi->eq("o\x{302}\x{303}", "\x{1ED7}")); | |
233 | ok($objVi->eq("o\x{302}\x{301}", "\x{1ED1}")); | |
6709de88 | 234 | ok($objVi->eq("o\x{302}\x{341}", "\x{1ED1}")); |
1393fe00 CBW |
235 | ok($objVi->eq("o\x{302}\x{323}", "\x{1ED9}")); |
236 | ok($objVi->eq("O\x{302}\x{300}", "\x{1ED2}")); | |
6709de88 | 237 | ok($objVi->eq("O\x{302}\x{340}", "\x{1ED2}")); |
1393fe00 CBW |
238 | ok($objVi->eq("O\x{302}\x{309}", "\x{1ED4}")); |
239 | ok($objVi->eq("O\x{302}\x{303}", "\x{1ED6}")); | |
240 | ok($objVi->eq("O\x{302}\x{301}", "\x{1ED0}")); | |
6709de88 | 241 | ok($objVi->eq("O\x{302}\x{341}", "\x{1ED0}")); |
1393fe00 CBW |
242 | ok($objVi->eq("O\x{302}\x{323}", "\x{1ED8}")); |
243 | ok($objVi->eq("o\x{31B}\x{300}", "\x{1EDD}")); | |
6709de88 | 244 | ok($objVi->eq("o\x{31B}\x{340}", "\x{1EDD}")); |
1393fe00 CBW |
245 | ok($objVi->eq("o\x{31B}\x{309}", "\x{1EDF}")); |
246 | ok($objVi->eq("o\x{31B}\x{303}", "\x{1EE1}")); | |
247 | ok($objVi->eq("o\x{31B}\x{301}", "\x{1EDB}")); | |
6709de88 | 248 | ok($objVi->eq("o\x{31B}\x{341}", "\x{1EDB}")); |
1393fe00 CBW |
249 | ok($objVi->eq("o\x{31B}\x{323}", "\x{1EE3}")); |
250 | ok($objVi->eq("O\x{31B}\x{300}", "\x{1EDC}")); | |
6709de88 | 251 | ok($objVi->eq("O\x{31B}\x{340}", "\x{1EDC}")); |
1393fe00 CBW |
252 | ok($objVi->eq("O\x{31B}\x{309}", "\x{1EDE}")); |
253 | ok($objVi->eq("O\x{31B}\x{303}", "\x{1EE0}")); | |
254 | ok($objVi->eq("O\x{31B}\x{301}", "\x{1EDA}")); | |
6709de88 | 255 | ok($objVi->eq("O\x{31B}\x{341}", "\x{1EDA}")); |
1393fe00 CBW |
256 | ok($objVi->eq("O\x{31B}\x{323}", "\x{1EE2}")); |
257 | ok($objVi->eq("u\x{300}", pack('U', 0xF9))); | |
6709de88 | 258 | ok($objVi->eq("u\x{340}", pack('U', 0xF9))); |
1393fe00 CBW |
259 | ok($objVi->eq("u\x{309}", "\x{1EE7}")); |
260 | ok($objVi->eq("u\x{303}", "\x{169}")); | |
261 | ok($objVi->eq("u\x{301}", pack('U', 0xFA))); | |
6709de88 | 262 | ok($objVi->eq("u\x{341}", pack('U', 0xFA))); |
1393fe00 CBW |
263 | ok($objVi->eq("u\x{323}", "\x{1EE5}")); |
264 | ok($objVi->eq("U\x{300}", pack('U', 0xD9))); | |
6709de88 | 265 | ok($objVi->eq("U\x{340}", pack('U', 0xD9))); |
1393fe00 CBW |
266 | ok($objVi->eq("U\x{309}", "\x{1EE6}")); |
267 | ok($objVi->eq("U\x{303}", "\x{168}")); | |
268 | ok($objVi->eq("U\x{301}", pack('U', 0xDA))); | |
6709de88 | 269 | ok($objVi->eq("U\x{341}", pack('U', 0xDA))); |
1393fe00 CBW |
270 | ok($objVi->eq("U\x{323}", "\x{1EE4}")); |
271 | ok($objVi->eq("u\x{31B}\x{300}", "\x{1EEB}")); | |
6709de88 | 272 | ok($objVi->eq("u\x{31B}\x{340}", "\x{1EEB}")); |
1393fe00 CBW |
273 | ok($objVi->eq("u\x{31B}\x{309}", "\x{1EED}")); |
274 | ok($objVi->eq("u\x{31B}\x{303}", "\x{1EEF}")); | |
275 | ok($objVi->eq("u\x{31B}\x{301}", "\x{1EE9}")); | |
6709de88 | 276 | ok($objVi->eq("u\x{31B}\x{341}", "\x{1EE9}")); |
1393fe00 CBW |
277 | ok($objVi->eq("u\x{31B}\x{323}", "\x{1EF1}")); |
278 | ok($objVi->eq("U\x{31B}\x{300}", "\x{1EEA}")); | |
6709de88 | 279 | ok($objVi->eq("U\x{31B}\x{340}", "\x{1EEA}")); |
1393fe00 CBW |
280 | ok($objVi->eq("U\x{31B}\x{309}", "\x{1EEC}")); |
281 | ok($objVi->eq("U\x{31B}\x{303}", "\x{1EEE}")); | |
282 | ok($objVi->eq("U\x{31B}\x{301}", "\x{1EE8}")); | |
6709de88 | 283 | ok($objVi->eq("U\x{31B}\x{341}", "\x{1EE8}")); |
1393fe00 CBW |
284 | ok($objVi->eq("U\x{31B}\x{323}", "\x{1EF0}")); |
285 | ok($objVi->eq("y\x{300}", "\x{1EF3}")); | |
6709de88 | 286 | ok($objVi->eq("y\x{340}", "\x{1EF3}")); |
1393fe00 CBW |
287 | ok($objVi->eq("y\x{309}", "\x{1EF7}")); |
288 | ok($objVi->eq("y\x{303}", "\x{1EF9}")); | |
289 | ok($objVi->eq("y\x{301}", pack('U', 0xFD))); | |
6709de88 | 290 | ok($objVi->eq("y\x{341}", pack('U', 0xFD))); |
1393fe00 CBW |
291 | ok($objVi->eq("y\x{323}", "\x{1EF5}")); |
292 | ok($objVi->eq("Y\x{300}", "\x{1EF2}")); | |
6709de88 | 293 | ok($objVi->eq("Y\x{340}", "\x{1EF2}")); |
1393fe00 CBW |
294 | ok($objVi->eq("Y\x{309}", "\x{1EF6}")); |
295 | ok($objVi->eq("Y\x{303}", "\x{1EF8}")); | |
296 | ok($objVi->eq("Y\x{301}", pack('U', 0xDD))); | |
6709de88 | 297 | ok($objVi->eq("Y\x{341}", pack('U', 0xDD))); |
1393fe00 CBW |
298 | ok($objVi->eq("Y\x{323}", "\x{1EF4}")); |
299 | ||
6709de88 | 300 | # 242 |
c02ee425 CBW |
301 | |
302 | ok($objVi->eq("a\x{306}\x{323}", "\x{1EA1}\x{306}")); | |
303 | ok($objVi->eq("A\x{306}\x{323}", "\x{1EA0}\x{306}")); | |
304 | ok($objVi->eq("a\x{302}\x{323}", "\x{1EA1}\x{302}")); | |
305 | ok($objVi->eq("A\x{302}\x{323}", "\x{1EA0}\x{302}")); | |
306 | ok($objVi->eq("e\x{302}\x{323}", "\x{1EB9}\x{302}")); | |
307 | ok($objVi->eq("E\x{302}\x{323}", "\x{1EB8}\x{302}")); | |
308 | ok($objVi->eq("o\x{302}\x{323}", "\x{1ECD}\x{302}")); | |
309 | ok($objVi->eq("O\x{302}\x{323}", "\x{1ECC}\x{302}")); | |
310 | ok($objVi->eq("o\x{31B}\x{300}", pack('U*', 0xF2, 0x31B))); | |
6709de88 | 311 | ok($objVi->eq("o\x{31B}\x{340}", pack('U*', 0xF2, 0x31B))); |
c02ee425 CBW |
312 | ok($objVi->eq("o\x{31B}\x{309}", "\x{1ECF}\x{31B}")); |
313 | ok($objVi->eq("o\x{31B}\x{303}", pack('U*', 0xF5, 0x31B))); | |
314 | ok($objVi->eq("o\x{31B}\x{301}", pack('U*', 0xF3, 0x31B))); | |
6709de88 | 315 | ok($objVi->eq("o\x{31B}\x{341}", pack('U*', 0xF3, 0x31B))); |
c02ee425 CBW |
316 | ok($objVi->eq("o\x{31B}\x{323}", "\x{1ECD}\x{31B}")); |
317 | ok($objVi->eq("O\x{31B}\x{300}", pack('U*', 0xD2, 0x31B))); | |
6709de88 | 318 | ok($objVi->eq("O\x{31B}\x{340}", pack('U*', 0xD2, 0x31B))); |
c02ee425 CBW |
319 | ok($objVi->eq("O\x{31B}\x{309}", "\x{1ECE}\x{31B}")); |
320 | ok($objVi->eq("O\x{31B}\x{303}", pack('U*', 0xD5, 0x31B))); | |
321 | ok($objVi->eq("O\x{31B}\x{301}", pack('U*', 0xD3, 0x31B))); | |
6709de88 | 322 | ok($objVi->eq("O\x{31B}\x{341}", pack('U*', 0xD3, 0x31B))); |
c02ee425 CBW |
323 | ok($objVi->eq("O\x{31B}\x{323}", "\x{1ECC}\x{31B}")); |
324 | ok($objVi->eq("u\x{31B}\x{300}", pack('U*', 0xF9, 0x31B))); | |
6709de88 | 325 | ok($objVi->eq("u\x{31B}\x{340}", pack('U*', 0xF9, 0x31B))); |
c02ee425 CBW |
326 | ok($objVi->eq("u\x{31B}\x{309}", "\x{1EE7}\x{31B}")); |
327 | ok($objVi->eq("u\x{31B}\x{303}", "\x{169}\x{31B}")); | |
328 | ok($objVi->eq("u\x{31B}\x{301}", pack('U*', 0xFA, 0x31B))); | |
6709de88 | 329 | ok($objVi->eq("u\x{31B}\x{341}", pack('U*', 0xFA, 0x31B))); |
c02ee425 CBW |
330 | ok($objVi->eq("u\x{31B}\x{323}", "\x{1EE5}\x{31B}")); |
331 | ok($objVi->eq("U\x{31B}\x{300}", pack('U*', 0xD9, 0x31B))); | |
6709de88 | 332 | ok($objVi->eq("U\x{31B}\x{340}", pack('U*', 0xD9, 0x31B))); |
c02ee425 CBW |
333 | ok($objVi->eq("U\x{31B}\x{309}", "\x{1EE6}\x{31B}")); |
334 | ok($objVi->eq("U\x{31B}\x{303}", "\x{168}\x{31B}")); | |
335 | ok($objVi->eq("U\x{31B}\x{301}", pack('U*', 0xDA, 0x31B))); | |
6709de88 | 336 | ok($objVi->eq("U\x{31B}\x{341}", pack('U*', 0xDA, 0x31B))); |
c02ee425 CBW |
337 | ok($objVi->eq("U\x{31B}\x{323}", "\x{1EE4}\x{31B}")); |
338 | ||
6709de88 | 339 | # 278 |
c02ee425 CBW |
340 | |
341 | ok($objVi->eq("a\x{306}\x{323}", "a\x{323}\x{306}")); | |
342 | ok($objVi->eq("A\x{306}\x{323}", "A\x{323}\x{306}")); | |
343 | ok($objVi->eq("a\x{302}\x{323}", "a\x{323}\x{302}")); | |
344 | ok($objVi->eq("A\x{302}\x{323}", "A\x{323}\x{302}")); | |
345 | ok($objVi->eq("e\x{302}\x{323}", "e\x{323}\x{302}")); | |
346 | ok($objVi->eq("E\x{302}\x{323}", "E\x{323}\x{302}")); | |
347 | ok($objVi->eq("o\x{302}\x{323}", "o\x{323}\x{302}")); | |
348 | ok($objVi->eq("O\x{302}\x{323}", "O\x{323}\x{302}")); | |
349 | ok($objVi->eq("o\x{31B}\x{300}", "o\x{300}\x{31B}")); | |
6709de88 | 350 | ok($objVi->eq("o\x{31B}\x{340}", "o\x{340}\x{31B}")); |
c02ee425 CBW |
351 | ok($objVi->eq("o\x{31B}\x{309}", "o\x{309}\x{31B}")); |
352 | ok($objVi->eq("o\x{31B}\x{303}", "o\x{303}\x{31B}")); | |
353 | ok($objVi->eq("o\x{31B}\x{301}", "o\x{301}\x{31B}")); | |
6709de88 | 354 | ok($objVi->eq("o\x{31B}\x{341}", "o\x{341}\x{31B}")); |
c02ee425 CBW |
355 | ok($objVi->eq("o\x{31B}\x{323}", "o\x{323}\x{31B}")); |
356 | ok($objVi->eq("O\x{31B}\x{300}", "O\x{300}\x{31B}")); | |
6709de88 | 357 | ok($objVi->eq("O\x{31B}\x{340}", "O\x{340}\x{31B}")); |
c02ee425 CBW |
358 | ok($objVi->eq("O\x{31B}\x{309}", "O\x{309}\x{31B}")); |
359 | ok($objVi->eq("O\x{31B}\x{303}", "O\x{303}\x{31B}")); | |
360 | ok($objVi->eq("O\x{31B}\x{301}", "O\x{301}\x{31B}")); | |
6709de88 | 361 | ok($objVi->eq("O\x{31B}\x{341}", "O\x{341}\x{31B}")); |
c02ee425 CBW |
362 | ok($objVi->eq("O\x{31B}\x{323}", "O\x{323}\x{31B}")); |
363 | ok($objVi->eq("u\x{31B}\x{300}", "u\x{300}\x{31B}")); | |
6709de88 | 364 | ok($objVi->eq("u\x{31B}\x{340}", "u\x{340}\x{31B}")); |
c02ee425 CBW |
365 | ok($objVi->eq("u\x{31B}\x{309}", "u\x{309}\x{31B}")); |
366 | ok($objVi->eq("u\x{31B}\x{303}", "u\x{303}\x{31B}")); | |
367 | ok($objVi->eq("u\x{31B}\x{301}", "u\x{301}\x{31B}")); | |
6709de88 | 368 | ok($objVi->eq("u\x{31B}\x{341}", "u\x{341}\x{31B}")); |
c02ee425 CBW |
369 | ok($objVi->eq("u\x{31B}\x{323}", "u\x{323}\x{31B}")); |
370 | ok($objVi->eq("U\x{31B}\x{300}", "U\x{300}\x{31B}")); | |
6709de88 | 371 | ok($objVi->eq("U\x{31B}\x{340}", "U\x{340}\x{31B}")); |
c02ee425 CBW |
372 | ok($objVi->eq("U\x{31B}\x{309}", "U\x{309}\x{31B}")); |
373 | ok($objVi->eq("U\x{31B}\x{303}", "U\x{303}\x{31B}")); | |
374 | ok($objVi->eq("U\x{31B}\x{301}", "U\x{301}\x{31B}")); | |
6709de88 | 375 | ok($objVi->eq("U\x{31B}\x{341}", "U\x{341}\x{31B}")); |
c02ee425 CBW |
376 | ok($objVi->eq("U\x{31B}\x{323}", "U\x{323}\x{31B}")); |
377 | ||
6709de88 | 378 | # 314 |
c02ee425 | 379 | |
028d3bfa CBW |
380 | ok($objVi->eq("a\x{306}\x{300}", "\x{103}\x{300}")); |
381 | ok($objVi->eq("a\x{306}\x{340}", "\x{103}\x{340}")); | |
382 | ok($objVi->eq("a\x{306}\x{309}", "\x{103}\x{309}")); | |
383 | ok($objVi->eq("a\x{306}\x{303}", "\x{103}\x{303}")); | |
384 | ok($objVi->eq("a\x{306}\x{301}", "\x{103}\x{301}")); | |
385 | ok($objVi->eq("a\x{306}\x{341}", "\x{103}\x{341}")); | |
386 | ok($objVi->eq("a\x{306}\x{323}", "\x{103}\x{323}")); | |
387 | ok($objVi->eq("A\x{306}\x{300}", "\x{102}\x{300}")); | |
388 | ok($objVi->eq("A\x{306}\x{340}", "\x{102}\x{340}")); | |
389 | ok($objVi->eq("A\x{306}\x{309}", "\x{102}\x{309}")); | |
390 | ok($objVi->eq("A\x{306}\x{303}", "\x{102}\x{303}")); | |
391 | ok($objVi->eq("A\x{306}\x{301}", "\x{102}\x{301}")); | |
392 | ok($objVi->eq("A\x{306}\x{341}", "\x{102}\x{341}")); | |
393 | ok($objVi->eq("A\x{306}\x{323}", "\x{102}\x{323}")); | |
394 | ok($objVi->eq("a\x{302}\x{300}", pack('U*', 0xE2, 0x300))); | |
395 | ok($objVi->eq("a\x{302}\x{340}", pack('U*', 0xE2, 0x340))); | |
396 | ok($objVi->eq("a\x{302}\x{309}", pack('U*', 0xE2, 0x309))); | |
397 | ok($objVi->eq("a\x{302}\x{303}", pack('U*', 0xE2, 0x303))); | |
398 | ok($objVi->eq("a\x{302}\x{301}", pack('U*', 0xE2, 0x301))); | |
399 | ok($objVi->eq("a\x{302}\x{341}", pack('U*', 0xE2, 0x341))); | |
400 | ok($objVi->eq("a\x{302}\x{323}", pack('U*', 0xE2, 0x323))); | |
401 | ok($objVi->eq("A\x{302}\x{300}", pack('U*', 0xC2, 0x300))); | |
402 | ok($objVi->eq("A\x{302}\x{340}", pack('U*', 0xC2, 0x340))); | |
403 | ok($objVi->eq("A\x{302}\x{309}", pack('U*', 0xC2, 0x309))); | |
404 | ok($objVi->eq("A\x{302}\x{303}", pack('U*', 0xC2, 0x303))); | |
405 | ok($objVi->eq("A\x{302}\x{301}", pack('U*', 0xC2, 0x301))); | |
406 | ok($objVi->eq("A\x{302}\x{341}", pack('U*', 0xC2, 0x341))); | |
407 | ok($objVi->eq("A\x{302}\x{323}", pack('U*', 0xC2, 0x323))); | |
408 | ok($objVi->eq("e\x{302}\x{300}", pack('U*', 0xEA, 0x300))); | |
409 | ok($objVi->eq("e\x{302}\x{340}", pack('U*', 0xEA, 0x340))); | |
410 | ok($objVi->eq("e\x{302}\x{309}", pack('U*', 0xEA, 0x309))); | |
411 | ok($objVi->eq("e\x{302}\x{303}", pack('U*', 0xEA, 0x303))); | |
412 | ok($objVi->eq("e\x{302}\x{301}", pack('U*', 0xEA, 0x301))); | |
413 | ok($objVi->eq("e\x{302}\x{341}", pack('U*', 0xEA, 0x341))); | |
414 | ok($objVi->eq("e\x{302}\x{323}", pack('U*', 0xEA, 0x323))); | |
415 | ok($objVi->eq("E\x{302}\x{300}", pack('U*', 0xCA, 0x300))); | |
416 | ok($objVi->eq("E\x{302}\x{340}", pack('U*', 0xCA, 0x340))); | |
417 | ok($objVi->eq("E\x{302}\x{309}", pack('U*', 0xCA, 0x309))); | |
418 | ok($objVi->eq("E\x{302}\x{303}", pack('U*', 0xCA, 0x303))); | |
419 | ok($objVi->eq("E\x{302}\x{301}", pack('U*', 0xCA, 0x301))); | |
420 | ok($objVi->eq("E\x{302}\x{341}", pack('U*', 0xCA, 0x341))); | |
421 | ok($objVi->eq("E\x{302}\x{323}", pack('U*', 0xCA, 0x323))); | |
422 | ok($objVi->eq("o\x{302}\x{300}", pack('U*', 0xF4, 0x300))); | |
423 | ok($objVi->eq("o\x{302}\x{340}", pack('U*', 0xF4, 0x340))); | |
424 | ok($objVi->eq("o\x{302}\x{309}", pack('U*', 0xF4, 0x309))); | |
425 | ok($objVi->eq("o\x{302}\x{303}", pack('U*', 0xF4, 0x303))); | |
426 | ok($objVi->eq("o\x{302}\x{301}", pack('U*', 0xF4, 0x301))); | |
427 | ok($objVi->eq("o\x{302}\x{341}", pack('U*', 0xF4, 0x341))); | |
428 | ok($objVi->eq("o\x{302}\x{323}", pack('U*', 0xF4, 0x323))); | |
429 | ok($objVi->eq("O\x{302}\x{300}", pack('U*', 0xD4, 0x300))); | |
430 | ok($objVi->eq("O\x{302}\x{340}", pack('U*', 0xD4, 0x340))); | |
431 | ok($objVi->eq("O\x{302}\x{309}", pack('U*', 0xD4, 0x309))); | |
432 | ok($objVi->eq("O\x{302}\x{303}", pack('U*', 0xD4, 0x303))); | |
433 | ok($objVi->eq("O\x{302}\x{301}", pack('U*', 0xD4, 0x301))); | |
434 | ok($objVi->eq("O\x{302}\x{341}", pack('U*', 0xD4, 0x341))); | |
435 | ok($objVi->eq("O\x{302}\x{323}", pack('U*', 0xD4, 0x323))); | |
436 | ok($objVi->eq("o\x{31B}\x{300}", "\x{1A1}\x{300}")); | |
437 | ok($objVi->eq("o\x{31B}\x{340}", "\x{1A1}\x{340}")); | |
438 | ok($objVi->eq("o\x{31B}\x{309}", "\x{1A1}\x{309}")); | |
439 | ok($objVi->eq("o\x{31B}\x{303}", "\x{1A1}\x{303}")); | |
440 | ok($objVi->eq("o\x{31B}\x{301}", "\x{1A1}\x{301}")); | |
441 | ok($objVi->eq("o\x{31B}\x{341}", "\x{1A1}\x{341}")); | |
442 | ok($objVi->eq("o\x{31B}\x{323}", "\x{1A1}\x{323}")); | |
443 | ok($objVi->eq("O\x{31B}\x{300}", "\x{1A0}\x{300}")); | |
444 | ok($objVi->eq("O\x{31B}\x{340}", "\x{1A0}\x{340}")); | |
445 | ok($objVi->eq("O\x{31B}\x{309}", "\x{1A0}\x{309}")); | |
446 | ok($objVi->eq("O\x{31B}\x{303}", "\x{1A0}\x{303}")); | |
447 | ok($objVi->eq("O\x{31B}\x{301}", "\x{1A0}\x{301}")); | |
448 | ok($objVi->eq("O\x{31B}\x{341}", "\x{1A0}\x{341}")); | |
449 | ok($objVi->eq("O\x{31B}\x{323}", "\x{1A0}\x{323}")); | |
450 | ok($objVi->eq("u\x{31B}\x{300}", "\x{1B0}\x{300}")); | |
451 | ok($objVi->eq("u\x{31B}\x{340}", "\x{1B0}\x{340}")); | |
452 | ok($objVi->eq("u\x{31B}\x{309}", "\x{1B0}\x{309}")); | |
453 | ok($objVi->eq("u\x{31B}\x{303}", "\x{1B0}\x{303}")); | |
454 | ok($objVi->eq("u\x{31B}\x{301}", "\x{1B0}\x{301}")); | |
455 | ok($objVi->eq("u\x{31B}\x{341}", "\x{1B0}\x{341}")); | |
456 | ok($objVi->eq("u\x{31B}\x{323}", "\x{1B0}\x{323}")); | |
457 | ok($objVi->eq("U\x{31B}\x{300}", "\x{1AF}\x{300}")); | |
458 | ok($objVi->eq("U\x{31B}\x{340}", "\x{1AF}\x{340}")); | |
459 | ok($objVi->eq("U\x{31B}\x{309}", "\x{1AF}\x{309}")); | |
460 | ok($objVi->eq("U\x{31B}\x{303}", "\x{1AF}\x{303}")); | |
461 | ok($objVi->eq("U\x{31B}\x{301}", "\x{1AF}\x{301}")); | |
462 | ok($objVi->eq("U\x{31B}\x{341}", "\x{1AF}\x{341}")); | |
463 | ok($objVi->eq("U\x{31B}\x{323}", "\x{1AF}\x{323}")); | |
464 | ||
465 | # 398 | |
466 | ||
c02ee425 CBW |
467 | $objVi->change(normalization => undef); |
468 | ||
469 | ok($objVi->index("a\x{306}\x{323}", "a\x{323}\x{306}"), 0); | |
470 | ok($objVi->index("o\x{31B}\x{300}", "o\x{300}\x{31B}"), 0); | |
6709de88 CBW |
471 | ok($objVi->index("o\x{31B}\x{300}", "o\x{340}\x{31B}"), 0); |
472 | ok($objVi->index("o\x{31B}\x{301}", "o\x{301}\x{31B}"), 0); | |
473 | ok($objVi->index("o\x{31B}\x{301}", "o\x{341}\x{31B}"), 0); | |
c02ee425 CBW |
474 | ok($objVi->index("a\x{306}\x{323}", pack('U*', 0x1EA1, 0x306)), 0); |
475 | ok($objVi->index("o\x{31B}\x{300}", pack('U*', 0x00F2, 0x31B)), 0); | |
476 | ||
477 | ok($objVi->index("A\x{306}\x{323}", "a\x{323}\x{306}"), -1); | |
478 | ok($objVi->index("O\x{31B}\x{300}", "o\x{300}\x{31B}"), -1); | |
479 | ok($objVi->index("A\x{306}\x{323}", pack('U*', 0x1EA1, 0x306)), -1); | |
480 | ok($objVi->index("O\x{31B}\x{300}", pack('U*', 0x00F2, 0x31B)), -1); | |
481 | ||
028d3bfa | 482 | # 409 |
c02ee425 CBW |
483 | |
484 | $objVi->change(level => 2); | |
485 | ||
486 | ok($objVi->index("A\x{306}\x{323}", "a\x{323}\x{306}"), 0); | |
487 | ok($objVi->index("O\x{31B}\x{300}", "o\x{300}\x{31B}"), 0); | |
6709de88 CBW |
488 | ok($objVi->index("O\x{31B}\x{300}", "o\x{340}\x{31B}"), 0); |
489 | ok($objVi->index("O\x{31B}\x{301}", "o\x{301}\x{31B}"), 0); | |
490 | ok($objVi->index("O\x{31B}\x{301}", "o\x{341}\x{31B}"), 0); | |
c02ee425 CBW |
491 | ok($objVi->index("A\x{306}\x{323}", pack('U*', 0x1EA1, 0x306)), 0); |
492 | ok($objVi->index("O\x{31B}\x{300}", pack('U*', 0x00F2, 0x31B)), 0); | |
493 | ||
494 | ok($objVi->index("A\x{306}", "a\x{323}\x{306}"), -1); | |
495 | ok($objVi->index("O\x{31B}", "o\x{300}\x{31B}"), -1); | |
496 | ok($objVi->index("A\x{306}", pack('U*', 0x1EA1, 0x306)), -1); | |
497 | ok($objVi->index("O\x{31B}", pack('U*', 0x00F2, 0x31B)), -1); | |
498 | ||
028d3bfa | 499 | # 420 |
6709de88 | 500 | |
c02ee425 CBW |
501 | $objVi->change(level => 1); |
502 | ||
503 | ok($objVi->index("A\x{306}", "a\x{323}\x{306}"), 0); | |
504 | ok($objVi->index("O\x{31B}", "o\x{300}\x{31B}"), 0); | |
505 | ok($objVi->index("A\x{306}", pack('U*', 0x1EA1, 0x306)), 0); | |
506 | ok($objVi->index("O\x{31B}", pack('U*', 0x00F2, 0x31B)), 0); | |
507 | ||
028d3bfa | 508 | # 424 |