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