cpan/Unicode-Collate/t/loc_vi.t

   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
  17 use strict;
  18 use warnings;
  19 use Unicode::Collate::Locale;
  20
  21 ok(1);
  22
  23 #########################
  24
  25 my $objVi = Unicode::Collate::Locale->
  26     new(locale => 'VI', normalization => undef);
  27
  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
 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
 131 ok($objVi->eq("a\x{300}", pack('U', 0xE0)));
 132 ok($objVi->eq("a\x{340}", pack('U', 0xE0)));
 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)));
 136 ok($objVi->eq("a\x{341}", pack('U', 0xE1)));
 137 ok($objVi->eq("a\x{323}", "\x{1EA1}"));
 138 ok($objVi->eq("A\x{300}", pack('U', 0xC0)));
 139 ok($objVi->eq("A\x{340}", pack('U', 0xC0)));
 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)));
 143 ok($objVi->eq("A\x{341}", pack('U', 0xC1)));
 144 ok($objVi->eq("A\x{323}", "\x{1EA0}"));
 145 ok($objVi->eq("a\x{306}\x{300}", "\x{1EB1}"));
 146 ok($objVi->eq("a\x{306}\x{340}", "\x{1EB1}"));
 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}"));
 150 ok($objVi->eq("a\x{306}\x{341}", "\x{1EAF}"));
 151 ok($objVi->eq("a\x{306}\x{323}", "\x{1EB7}"));
 152 ok($objVi->eq("A\x{306}\x{300}", "\x{1EB0}"));
 153 ok($objVi->eq("A\x{306}\x{340}", "\x{1EB0}"));
 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}"));
 157 ok($objVi->eq("A\x{306}\x{341}", "\x{1EAE}"));
 158 ok($objVi->eq("A\x{306}\x{323}", "\x{1EB6}"));
 159 ok($objVi->eq("a\x{302}\x{300}", "\x{1EA7}"));
 160 ok($objVi->eq("a\x{302}\x{340}", "\x{1EA7}"));
 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}"));
 164 ok($objVi->eq("a\x{302}\x{341}", "\x{1EA5}"));
 165 ok($objVi->eq("a\x{302}\x{323}", "\x{1EAD}"));
 166 ok($objVi->eq("A\x{302}\x{300}", "\x{1EA6}"));
 167 ok($objVi->eq("A\x{302}\x{340}", "\x{1EA6}"));
 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}"));
 171 ok($objVi->eq("A\x{302}\x{341}", "\x{1EA4}"));
 172 ok($objVi->eq("A\x{302}\x{323}", "\x{1EAC}"));
 173 ok($objVi->eq("e\x{300}", pack('U', 0xE8)));
 174 ok($objVi->eq("e\x{340}", pack('U', 0xE8)));
 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)));
 178 ok($objVi->eq("e\x{341}", pack('U', 0xE9)));
 179 ok($objVi->eq("e\x{323}", "\x{1EB9}"));
 180 ok($objVi->eq("E\x{300}", pack('U', 0xC8)));
 181 ok($objVi->eq("E\x{340}", pack('U', 0xC8)));
 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)));
 185 ok($objVi->eq("E\x{341}", pack('U', 0xC9)));
 186 ok($objVi->eq("E\x{323}", "\x{1EB8}"));
 187 ok($objVi->eq("e\x{302}\x{300}", "\x{1EC1}"));
 188 ok($objVi->eq("e\x{302}\x{340}", "\x{1EC1}"));
 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}"));
 192 ok($objVi->eq("e\x{302}\x{341}", "\x{1EBF}"));
 193 ok($objVi->eq("e\x{302}\x{323}", "\x{1EC7}"));
 194 ok($objVi->eq("E\x{302}\x{300}", "\x{1EC0}"));
 195 ok($objVi->eq("E\x{302}\x{340}", "\x{1EC0}"));
 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}"));
 199 ok($objVi->eq("E\x{302}\x{341}", "\x{1EBE}"));
 200 ok($objVi->eq("E\x{302}\x{323}", "\x{1EC6}"));
 201 ok($objVi->eq("i\x{300}", pack('U', 0xEC)));
 202 ok($objVi->eq("i\x{340}", pack('U', 0xEC)));
 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)));
 206 ok($objVi->eq("i\x{341}", pack('U', 0xED)));
 207 ok($objVi->eq("i\x{323}", "\x{1ECB}"));
 208 ok($objVi->eq("I\x{300}", pack('U', 0xCC)));
 209 ok($objVi->eq("I\x{340}", pack('U', 0xCC)));
 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)));
 213 ok($objVi->eq("I\x{341}", pack('U', 0xCD)));
 214 ok($objVi->eq("I\x{323}", "\x{1ECA}"));
 215 ok($objVi->eq("o\x{300}", pack('U', 0xF2)));
 216 ok($objVi->eq("o\x{340}", pack('U', 0xF2)));
 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)));
 220 ok($objVi->eq("o\x{341}", pack('U', 0xF3)));
 221 ok($objVi->eq("o\x{323}", "\x{1ECD}"));
 222 ok($objVi->eq("O\x{300}", pack('U', 0xD2)));
 223 ok($objVi->eq("O\x{340}", pack('U', 0xD2)));
 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)));
 227 ok($objVi->eq("O\x{341}", pack('U', 0xD3)));
 228 ok($objVi->eq("O\x{323}", "\x{1ECC}"));
 229 ok($objVi->eq("o\x{302}\x{300}", "\x{1ED3}"));
 230 ok($objVi->eq("o\x{302}\x{340}", "\x{1ED3}"));
 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}"));
 234 ok($objVi->eq("o\x{302}\x{341}", "\x{1ED1}"));
 235 ok($objVi->eq("o\x{302}\x{323}", "\x{1ED9}"));
 236 ok($objVi->eq("O\x{302}\x{300}", "\x{1ED2}"));
 237 ok($objVi->eq("O\x{302}\x{340}", "\x{1ED2}"));
 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}"));
 241 ok($objVi->eq("O\x{302}\x{341}", "\x{1ED0}"));
 242 ok($objVi->eq("O\x{302}\x{323}", "\x{1ED8}"));
 243 ok($objVi->eq("o\x{31B}\x{300}", "\x{1EDD}"));
 244 ok($objVi->eq("o\x{31B}\x{340}", "\x{1EDD}"));
 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}"));
 248 ok($objVi->eq("o\x{31B}\x{341}", "\x{1EDB}"));
 249 ok($objVi->eq("o\x{31B}\x{323}", "\x{1EE3}"));
 250 ok($objVi->eq("O\x{31B}\x{300}", "\x{1EDC}"));
 251 ok($objVi->eq("O\x{31B}\x{340}", "\x{1EDC}"));
 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}"));
 255 ok($objVi->eq("O\x{31B}\x{341}", "\x{1EDA}"));
 256 ok($objVi->eq("O\x{31B}\x{323}", "\x{1EE2}"));
 257 ok($objVi->eq("u\x{300}", pack('U', 0xF9)));
 258 ok($objVi->eq("u\x{340}", pack('U', 0xF9)));
 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)));
 262 ok($objVi->eq("u\x{341}", pack('U', 0xFA)));
 263 ok($objVi->eq("u\x{323}", "\x{1EE5}"));
 264 ok($objVi->eq("U\x{300}", pack('U', 0xD9)));
 265 ok($objVi->eq("U\x{340}", pack('U', 0xD9)));
 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)));
 269 ok($objVi->eq("U\x{341}", pack('U', 0xDA)));
 270 ok($objVi->eq("U\x{323}", "\x{1EE4}"));
 271 ok($objVi->eq("u\x{31B}\x{300}", "\x{1EEB}"));
 272 ok($objVi->eq("u\x{31B}\x{340}", "\x{1EEB}"));
 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}"));
 276 ok($objVi->eq("u\x{31B}\x{341}", "\x{1EE9}"));
 277 ok($objVi->eq("u\x{31B}\x{323}", "\x{1EF1}"));
 278 ok($objVi->eq("U\x{31B}\x{300}", "\x{1EEA}"));
 279 ok($objVi->eq("U\x{31B}\x{340}", "\x{1EEA}"));
 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}"));
 283 ok($objVi->eq("U\x{31B}\x{341}", "\x{1EE8}"));
 284 ok($objVi->eq("U\x{31B}\x{323}", "\x{1EF0}"));
 285 ok($objVi->eq("y\x{300}", "\x{1EF3}"));
 286 ok($objVi->eq("y\x{340}", "\x{1EF3}"));
 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)));
 290 ok($objVi->eq("y\x{341}", pack('U', 0xFD)));
 291 ok($objVi->eq("y\x{323}", "\x{1EF5}"));
 292 ok($objVi->eq("Y\x{300}", "\x{1EF2}"));
 293 ok($objVi->eq("Y\x{340}", "\x{1EF2}"));
 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)));
 297 ok($objVi->eq("Y\x{341}", pack('U', 0xDD)));
 298 ok($objVi->eq("Y\x{323}", "\x{1EF4}"));
 299
 300 # 242
 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)));
 311 ok($objVi->eq("o\x{31B}\x{340}", pack('U*', 0xF2, 0x31B)));
 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)));
 315 ok($objVi->eq("o\x{31B}\x{341}", pack('U*', 0xF3, 0x31B)));
 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)));
 318 ok($objVi->eq("O\x{31B}\x{340}", pack('U*', 0xD2, 0x31B)));
 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)));
 322 ok($objVi->eq("O\x{31B}\x{341}", pack('U*', 0xD3, 0x31B)));
 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)));
 325 ok($objVi->eq("u\x{31B}\x{340}", pack('U*', 0xF9, 0x31B)));
 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)));
 329 ok($objVi->eq("u\x{31B}\x{341}", pack('U*', 0xFA, 0x31B)));
 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)));
 332 ok($objVi->eq("U\x{31B}\x{340}", pack('U*', 0xD9, 0x31B)));
 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)));
 336 ok($objVi->eq("U\x{31B}\x{341}", pack('U*', 0xDA, 0x31B)));
 337 ok($objVi->eq("U\x{31B}\x{323}", "\x{1EE4}\x{31B}"));
 338
 339 # 278
 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}"));
 350 ok($objVi->eq("o\x{31B}\x{340}", "o\x{340}\x{31B}"));
 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}"));
 354 ok($objVi->eq("o\x{31B}\x{341}", "o\x{341}\x{31B}"));
 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}"));
 357 ok($objVi->eq("O\x{31B}\x{340}", "O\x{340}\x{31B}"));
 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}"));
 361 ok($objVi->eq("O\x{31B}\x{341}", "O\x{341}\x{31B}"));
 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}"));
 364 ok($objVi->eq("u\x{31B}\x{340}", "u\x{340}\x{31B}"));
 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}"));
 368 ok($objVi->eq("u\x{31B}\x{341}", "u\x{341}\x{31B}"));
 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}"));
 371 ok($objVi->eq("U\x{31B}\x{340}", "U\x{340}\x{31B}"));
 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}"));
 375 ok($objVi->eq("U\x{31B}\x{341}", "U\x{341}\x{31B}"));
 376 ok($objVi->eq("U\x{31B}\x{323}", "U\x{323}\x{31B}"));
 377
 378 # 314
 379
 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
 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);
 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);
 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
 482 # 409
 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);
 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);
 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
 499 # 420
 500
 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
 508 # 424