92b58a27585d7026fe831ac41a6025ea5ec537d9
[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 => 340;
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("a\x{300}", pack('U', 0xE0)));
106 ok($objVi->eq("a\x{340}", pack('U', 0xE0)));
107 ok($objVi->eq("a\x{309}", "\x{1EA3}"));
108 ok($objVi->eq("a\x{303}", pack('U', 0xE3)));
109 ok($objVi->eq("a\x{301}", pack('U', 0xE1)));
110 ok($objVi->eq("a\x{341}", pack('U', 0xE1)));
111 ok($objVi->eq("a\x{323}", "\x{1EA1}"));
112 ok($objVi->eq("A\x{300}", pack('U', 0xC0)));
113 ok($objVi->eq("A\x{340}", pack('U', 0xC0)));
114 ok($objVi->eq("A\x{309}", "\x{1EA2}"));
115 ok($objVi->eq("A\x{303}", pack('U', 0xC3)));
116 ok($objVi->eq("A\x{301}", pack('U', 0xC1)));
117 ok($objVi->eq("A\x{341}", pack('U', 0xC1)));
118 ok($objVi->eq("A\x{323}", "\x{1EA0}"));
119 ok($objVi->eq("a\x{306}\x{300}", "\x{1EB1}"));
120 ok($objVi->eq("a\x{306}\x{340}", "\x{1EB1}"));
121 ok($objVi->eq("a\x{306}\x{309}", "\x{1EB3}"));
122 ok($objVi->eq("a\x{306}\x{303}", "\x{1EB5}"));
123 ok($objVi->eq("a\x{306}\x{301}", "\x{1EAF}"));
124 ok($objVi->eq("a\x{306}\x{341}", "\x{1EAF}"));
125 ok($objVi->eq("a\x{306}\x{323}", "\x{1EB7}"));
126 ok($objVi->eq("A\x{306}\x{300}", "\x{1EB0}"));
127 ok($objVi->eq("A\x{306}\x{340}", "\x{1EB0}"));
128 ok($objVi->eq("A\x{306}\x{309}", "\x{1EB2}"));
129 ok($objVi->eq("A\x{306}\x{303}", "\x{1EB4}"));
130 ok($objVi->eq("A\x{306}\x{301}", "\x{1EAE}"));
131 ok($objVi->eq("A\x{306}\x{341}", "\x{1EAE}"));
132 ok($objVi->eq("A\x{306}\x{323}", "\x{1EB6}"));
133 ok($objVi->eq("a\x{302}\x{300}", "\x{1EA7}"));
134 ok($objVi->eq("a\x{302}\x{340}", "\x{1EA7}"));
135 ok($objVi->eq("a\x{302}\x{309}", "\x{1EA9}"));
136 ok($objVi->eq("a\x{302}\x{303}", "\x{1EAB}"));
137 ok($objVi->eq("a\x{302}\x{301}", "\x{1EA5}"));
138 ok($objVi->eq("a\x{302}\x{341}", "\x{1EA5}"));
139 ok($objVi->eq("a\x{302}\x{323}", "\x{1EAD}"));
140 ok($objVi->eq("A\x{302}\x{300}", "\x{1EA6}"));
141 ok($objVi->eq("A\x{302}\x{340}", "\x{1EA6}"));
142 ok($objVi->eq("A\x{302}\x{309}", "\x{1EA8}"));
143 ok($objVi->eq("A\x{302}\x{303}", "\x{1EAA}"));
144 ok($objVi->eq("A\x{302}\x{301}", "\x{1EA4}"));
145 ok($objVi->eq("A\x{302}\x{341}", "\x{1EA4}"));
146 ok($objVi->eq("A\x{302}\x{323}", "\x{1EAC}"));
147 ok($objVi->eq("e\x{300}", pack('U', 0xE8)));
148 ok($objVi->eq("e\x{340}", pack('U', 0xE8)));
149 ok($objVi->eq("e\x{309}", "\x{1EBB}"));
150 ok($objVi->eq("e\x{303}", "\x{1EBD}"));
151 ok($objVi->eq("e\x{301}", pack('U', 0xE9)));
152 ok($objVi->eq("e\x{341}", pack('U', 0xE9)));
153 ok($objVi->eq("e\x{323}", "\x{1EB9}"));
154 ok($objVi->eq("E\x{300}", pack('U', 0xC8)));
155 ok($objVi->eq("E\x{340}", pack('U', 0xC8)));
156 ok($objVi->eq("E\x{309}", "\x{1EBA}"));
157 ok($objVi->eq("E\x{303}", "\x{1EBC}"));
158 ok($objVi->eq("E\x{301}", pack('U', 0xC9)));
159 ok($objVi->eq("E\x{341}", pack('U', 0xC9)));
160 ok($objVi->eq("E\x{323}", "\x{1EB8}"));
161 ok($objVi->eq("e\x{302}\x{300}", "\x{1EC1}"));
162 ok($objVi->eq("e\x{302}\x{340}", "\x{1EC1}"));
163 ok($objVi->eq("e\x{302}\x{309}", "\x{1EC3}"));
164 ok($objVi->eq("e\x{302}\x{303}", "\x{1EC5}"));
165 ok($objVi->eq("e\x{302}\x{301}", "\x{1EBF}"));
166 ok($objVi->eq("e\x{302}\x{341}", "\x{1EBF}"));
167 ok($objVi->eq("e\x{302}\x{323}", "\x{1EC7}"));
168 ok($objVi->eq("E\x{302}\x{300}", "\x{1EC0}"));
169 ok($objVi->eq("E\x{302}\x{340}", "\x{1EC0}"));
170 ok($objVi->eq("E\x{302}\x{309}", "\x{1EC2}"));
171 ok($objVi->eq("E\x{302}\x{303}", "\x{1EC4}"));
172 ok($objVi->eq("E\x{302}\x{301}", "\x{1EBE}"));
173 ok($objVi->eq("E\x{302}\x{341}", "\x{1EBE}"));
174 ok($objVi->eq("E\x{302}\x{323}", "\x{1EC6}"));
175 ok($objVi->eq("i\x{300}", pack('U', 0xEC)));
176 ok($objVi->eq("i\x{340}", pack('U', 0xEC)));
177 ok($objVi->eq("i\x{309}", "\x{1EC9}"));
178 ok($objVi->eq("i\x{303}", "\x{129}"));
179 ok($objVi->eq("i\x{301}", pack('U', 0xED)));
180 ok($objVi->eq("i\x{341}", pack('U', 0xED)));
181 ok($objVi->eq("i\x{323}", "\x{1ECB}"));
182 ok($objVi->eq("I\x{300}", pack('U', 0xCC)));
183 ok($objVi->eq("I\x{340}", pack('U', 0xCC)));
184 ok($objVi->eq("I\x{309}", "\x{1EC8}"));
185 ok($objVi->eq("I\x{303}", "\x{128}"));
186 ok($objVi->eq("I\x{301}", pack('U', 0xCD)));
187 ok($objVi->eq("I\x{341}", pack('U', 0xCD)));
188 ok($objVi->eq("I\x{323}", "\x{1ECA}"));
189 ok($objVi->eq("o\x{300}", pack('U', 0xF2)));
190 ok($objVi->eq("o\x{340}", pack('U', 0xF2)));
191 ok($objVi->eq("o\x{309}", "\x{1ECF}"));
192 ok($objVi->eq("o\x{303}", pack('U', 0xF5)));
193 ok($objVi->eq("o\x{301}", pack('U', 0xF3)));
194 ok($objVi->eq("o\x{341}", pack('U', 0xF3)));
195 ok($objVi->eq("o\x{323}", "\x{1ECD}"));
196 ok($objVi->eq("O\x{300}", pack('U', 0xD2)));
197 ok($objVi->eq("O\x{340}", pack('U', 0xD2)));
198 ok($objVi->eq("O\x{309}", "\x{1ECE}"));
199 ok($objVi->eq("O\x{303}", pack('U', 0xD5)));
200 ok($objVi->eq("O\x{301}", pack('U', 0xD3)));
201 ok($objVi->eq("O\x{341}", pack('U', 0xD3)));
202 ok($objVi->eq("O\x{323}", "\x{1ECC}"));
203 ok($objVi->eq("o\x{302}\x{300}", "\x{1ED3}"));
204 ok($objVi->eq("o\x{302}\x{340}", "\x{1ED3}"));
205 ok($objVi->eq("o\x{302}\x{309}", "\x{1ED5}"));
206 ok($objVi->eq("o\x{302}\x{303}", "\x{1ED7}"));
207 ok($objVi->eq("o\x{302}\x{301}", "\x{1ED1}"));
208 ok($objVi->eq("o\x{302}\x{341}", "\x{1ED1}"));
209 ok($objVi->eq("o\x{302}\x{323}", "\x{1ED9}"));
210 ok($objVi->eq("O\x{302}\x{300}", "\x{1ED2}"));
211 ok($objVi->eq("O\x{302}\x{340}", "\x{1ED2}"));
212 ok($objVi->eq("O\x{302}\x{309}", "\x{1ED4}"));
213 ok($objVi->eq("O\x{302}\x{303}", "\x{1ED6}"));
214 ok($objVi->eq("O\x{302}\x{301}", "\x{1ED0}"));
215 ok($objVi->eq("O\x{302}\x{341}", "\x{1ED0}"));
216 ok($objVi->eq("O\x{302}\x{323}", "\x{1ED8}"));
217 ok($objVi->eq("o\x{31B}\x{300}", "\x{1EDD}"));
218 ok($objVi->eq("o\x{31B}\x{340}", "\x{1EDD}"));
219 ok($objVi->eq("o\x{31B}\x{309}", "\x{1EDF}"));
220 ok($objVi->eq("o\x{31B}\x{303}", "\x{1EE1}"));
221 ok($objVi->eq("o\x{31B}\x{301}", "\x{1EDB}"));
222 ok($objVi->eq("o\x{31B}\x{341}", "\x{1EDB}"));
223 ok($objVi->eq("o\x{31B}\x{323}", "\x{1EE3}"));
224 ok($objVi->eq("O\x{31B}\x{300}", "\x{1EDC}"));
225 ok($objVi->eq("O\x{31B}\x{340}", "\x{1EDC}"));
226 ok($objVi->eq("O\x{31B}\x{309}", "\x{1EDE}"));
227 ok($objVi->eq("O\x{31B}\x{303}", "\x{1EE0}"));
228 ok($objVi->eq("O\x{31B}\x{301}", "\x{1EDA}"));
229 ok($objVi->eq("O\x{31B}\x{341}", "\x{1EDA}"));
230 ok($objVi->eq("O\x{31B}\x{323}", "\x{1EE2}"));
231 ok($objVi->eq("u\x{300}", pack('U', 0xF9)));
232 ok($objVi->eq("u\x{340}", pack('U', 0xF9)));
233 ok($objVi->eq("u\x{309}", "\x{1EE7}"));
234 ok($objVi->eq("u\x{303}", "\x{169}"));
235 ok($objVi->eq("u\x{301}", pack('U', 0xFA)));
236 ok($objVi->eq("u\x{341}", pack('U', 0xFA)));
237 ok($objVi->eq("u\x{323}", "\x{1EE5}"));
238 ok($objVi->eq("U\x{300}", pack('U', 0xD9)));
239 ok($objVi->eq("U\x{340}", pack('U', 0xD9)));
240 ok($objVi->eq("U\x{309}", "\x{1EE6}"));
241 ok($objVi->eq("U\x{303}", "\x{168}"));
242 ok($objVi->eq("U\x{301}", pack('U', 0xDA)));
243 ok($objVi->eq("U\x{341}", pack('U', 0xDA)));
244 ok($objVi->eq("U\x{323}", "\x{1EE4}"));
245 ok($objVi->eq("u\x{31B}\x{300}", "\x{1EEB}"));
246 ok($objVi->eq("u\x{31B}\x{340}", "\x{1EEB}"));
247 ok($objVi->eq("u\x{31B}\x{309}", "\x{1EED}"));
248 ok($objVi->eq("u\x{31B}\x{303}", "\x{1EEF}"));
249 ok($objVi->eq("u\x{31B}\x{301}", "\x{1EE9}"));
250 ok($objVi->eq("u\x{31B}\x{341}", "\x{1EE9}"));
251 ok($objVi->eq("u\x{31B}\x{323}", "\x{1EF1}"));
252 ok($objVi->eq("U\x{31B}\x{300}", "\x{1EEA}"));
253 ok($objVi->eq("U\x{31B}\x{340}", "\x{1EEA}"));
254 ok($objVi->eq("U\x{31B}\x{309}", "\x{1EEC}"));
255 ok($objVi->eq("U\x{31B}\x{303}", "\x{1EEE}"));
256 ok($objVi->eq("U\x{31B}\x{301}", "\x{1EE8}"));
257 ok($objVi->eq("U\x{31B}\x{341}", "\x{1EE8}"));
258 ok($objVi->eq("U\x{31B}\x{323}", "\x{1EF0}"));
259 ok($objVi->eq("y\x{300}", "\x{1EF3}"));
260 ok($objVi->eq("y\x{340}", "\x{1EF3}"));
261 ok($objVi->eq("y\x{309}", "\x{1EF7}"));
262 ok($objVi->eq("y\x{303}", "\x{1EF9}"));
263 ok($objVi->eq("y\x{301}", pack('U', 0xFD)));
264 ok($objVi->eq("y\x{341}", pack('U', 0xFD)));
265 ok($objVi->eq("y\x{323}", "\x{1EF5}"));
266 ok($objVi->eq("Y\x{300}", "\x{1EF2}"));
267 ok($objVi->eq("Y\x{340}", "\x{1EF2}"));
268 ok($objVi->eq("Y\x{309}", "\x{1EF6}"));
269 ok($objVi->eq("Y\x{303}", "\x{1EF8}"));
270 ok($objVi->eq("Y\x{301}", pack('U', 0xDD)));
271 ok($objVi->eq("Y\x{341}", pack('U', 0xDD)));
272 ok($objVi->eq("Y\x{323}", "\x{1EF4}"));
273
274 # 234
275
276 ok($objVi->eq("e\x{306}", "\x{115}"));
277 ok($objVi->eq("E\x{306}", "\x{114}"));
278 ok($objVi->eq("i\x{306}", "\x{12D}"));
279 ok($objVi->eq("I\x{306}", "\x{12C}"));
280 ok($objVi->eq("o\x{306}", "\x{14F}"));
281 ok($objVi->eq("O\x{306}", "\x{14E}"));
282 ok($objVi->eq("u\x{306}", "\x{16D}"));
283 ok($objVi->eq("U\x{306}", "\x{16C}"));
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 $objVi->change(normalization => undef);
366
367 ok($objVi->index("a\x{306}\x{323}", "a\x{323}\x{306}"), 0);
368 ok($objVi->index("o\x{31B}\x{300}", "o\x{300}\x{31B}"), 0);
369 ok($objVi->index("o\x{31B}\x{300}", "o\x{340}\x{31B}"), 0);
370 ok($objVi->index("o\x{31B}\x{301}", "o\x{301}\x{31B}"), 0);
371 ok($objVi->index("o\x{31B}\x{301}", "o\x{341}\x{31B}"), 0);
372 ok($objVi->index("a\x{306}\x{323}", pack('U*', 0x1EA1, 0x306)), 0);
373 ok($objVi->index("o\x{31B}\x{300}", pack('U*', 0x00F2, 0x31B)), 0);
374
375 ok($objVi->index("A\x{306}\x{323}", "a\x{323}\x{306}"), -1);
376 ok($objVi->index("O\x{31B}\x{300}", "o\x{300}\x{31B}"), -1);
377 ok($objVi->index("A\x{306}\x{323}", pack('U*', 0x1EA1, 0x306)), -1);
378 ok($objVi->index("O\x{31B}\x{300}", pack('U*', 0x00F2, 0x31B)), -1);
379
380 # 325
381
382 $objVi->change(level => 2);
383
384 ok($objVi->index("A\x{306}\x{323}", "a\x{323}\x{306}"), 0);
385 ok($objVi->index("O\x{31B}\x{300}", "o\x{300}\x{31B}"), 0);
386 ok($objVi->index("O\x{31B}\x{300}", "o\x{340}\x{31B}"), 0);
387 ok($objVi->index("O\x{31B}\x{301}", "o\x{301}\x{31B}"), 0);
388 ok($objVi->index("O\x{31B}\x{301}", "o\x{341}\x{31B}"), 0);
389 ok($objVi->index("A\x{306}\x{323}", pack('U*', 0x1EA1, 0x306)), 0);
390 ok($objVi->index("O\x{31B}\x{300}", pack('U*', 0x00F2, 0x31B)), 0);
391
392 ok($objVi->index("A\x{306}", "a\x{323}\x{306}"), -1);
393 ok($objVi->index("O\x{31B}", "o\x{300}\x{31B}"), -1);
394 ok($objVi->index("A\x{306}", pack('U*', 0x1EA1, 0x306)), -1);
395 ok($objVi->index("O\x{31B}", pack('U*', 0x00F2, 0x31B)), -1);
396
397 # 336
398
399 $objVi->change(level => 1);
400
401 ok($objVi->index("A\x{306}", "a\x{323}\x{306}"), 0);
402 ok($objVi->index("O\x{31B}", "o\x{300}\x{31B}"), 0);
403 ok($objVi->index("A\x{306}", pack('U*', 0x1EA1, 0x306)), 0);
404 ok($objVi->index("O\x{31B}", pack('U*', 0x00F2, 0x31B)), 0);
405
406 # 340