1 2BEGIN { 3 if ($ENV{PERL_CORE}) { 4 chdir('t') if -d 't'; 5 @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib); 6 } 7} 8 9use strict; 10use warnings; 11BEGIN { $| = 1; print "1..280\n"; } 12my $count = 0; 13sub ok ($;$) { 14 my $p = my $r = shift; 15 if (@_) { 16 my $x = shift; 17 $p = !defined $x ? !defined $r : !defined $r ? 0 : $r eq $x; 18 } 19 print $p ? "ok" : "not ok", ' ', ++$count, "\n"; 20} 21 22use Unicode::Collate::Locale; 23 24ok(1); 25 26sub _pack_U { Unicode::Collate::pack_U(@_) } 27sub _unpack_U { Unicode::Collate::unpack_U(@_) } 28 29######################### 30 31my $objZh = Unicode::Collate::Locale-> 32 new(locale => 'ZH', normalization => undef); 33 34ok($objZh->getlocale, 'zh'); 35 36$objZh->change(level => 1); 37 38ok($objZh->eq("a\x{304}", "a\x{301}")); 39ok($objZh->eq("a\x{301}", "a\x{30C}")); 40ok($objZh->eq("a\x{30C}", "a\x{300}")); 41ok($objZh->eq("a\x{300}", "a")); 42ok($objZh->eq("e\x{304}", "e\x{301}")); 43ok($objZh->eq("e\x{301}", "e\x{30C}")); 44ok($objZh->eq("e\x{30C}", "e\x{300}")); 45ok($objZh->eq("e\x{300}", "e")); 46ok($objZh->eq("e\x{302}\x{304}", "e\x{302}\x{301}")); 47ok($objZh->eq("e\x{302}\x{301}", "e\x{302}\x{30C}")); 48ok($objZh->eq("e\x{302}\x{30C}", "e\x{302}\x{300}")); 49ok($objZh->eq("e\x{302}\x{300}", "e\x{302}")); 50ok($objZh->eq("i\x{304}", "i\x{301}")); 51ok($objZh->eq("i\x{301}", "i\x{30C}")); 52ok($objZh->eq("i\x{30C}", "i\x{300}")); 53ok($objZh->eq("i\x{300}", "i")); 54ok($objZh->eq("m\x{304}", "m\x{301}")); 55ok($objZh->eq("m\x{301}", "m\x{30C}")); 56ok($objZh->eq("m\x{30C}", "m\x{300}")); 57ok($objZh->eq("m\x{300}", "m")); 58ok($objZh->eq("n\x{304}", "n\x{301}")); 59ok($objZh->eq("n\x{301}", "n\x{30C}")); 60ok($objZh->eq("n\x{30C}", "n\x{300}")); 61ok($objZh->eq("n\x{300}", "n")); 62ok($objZh->eq("o\x{304}", "o\x{301}")); 63ok($objZh->eq("o\x{301}", "o\x{30C}")); 64ok($objZh->eq("o\x{30C}", "o\x{300}")); 65ok($objZh->eq("o\x{300}", "o")); 66ok($objZh->eq("u\x{304}", "u\x{301}")); 67ok($objZh->eq("u\x{301}", "u\x{30C}")); 68ok($objZh->eq("u\x{30C}", "u\x{300}")); 69ok($objZh->eq("u\x{300}", "u")); 70ok($objZh->eq("u\x{308}\x{304}", "u\x{308}\x{301}")); 71ok($objZh->eq("u\x{308}\x{301}", "u\x{308}\x{30C}")); 72ok($objZh->eq("u\x{308}\x{30C}", "u\x{308}\x{300}")); 73ok($objZh->eq("u\x{308}\x{300}", "u\x{308}")); 74 75# 38 76 77$objZh->change(level => 2); 78 79ok($objZh->lt("a\x{304}", "a\x{301}")); 80ok($objZh->lt("a\x{301}", "a\x{30C}")); 81ok($objZh->lt("a\x{30C}", "a\x{300}")); 82ok($objZh->lt("a\x{300}", "a")); 83ok($objZh->lt("e\x{304}", "e\x{301}")); 84ok($objZh->lt("e\x{301}", "e\x{30C}")); 85ok($objZh->lt("e\x{30C}", "e\x{300}")); 86ok($objZh->lt("e\x{300}", "e")); 87ok($objZh->lt("e\x{302}\x{304}", "e\x{302}\x{301}")); 88ok($objZh->lt("e\x{302}\x{301}", "e\x{302}\x{30C}")); 89ok($objZh->lt("e\x{302}\x{30C}", "e\x{302}\x{300}")); 90ok($objZh->lt("e\x{302}\x{300}", "e\x{302}")); 91ok($objZh->lt("i\x{304}", "i\x{301}")); 92ok($objZh->lt("i\x{301}", "i\x{30C}")); 93ok($objZh->lt("i\x{30C}", "i\x{300}")); 94ok($objZh->lt("i\x{300}", "i")); 95ok($objZh->lt("m\x{304}", "m\x{301}")); 96ok($objZh->lt("m\x{301}", "m\x{30C}")); 97ok($objZh->lt("m\x{30C}", "m\x{300}")); 98ok($objZh->lt("m\x{300}", "m")); 99ok($objZh->lt("n\x{304}", "n\x{301}")); 100ok($objZh->lt("n\x{301}", "n\x{30C}")); 101ok($objZh->lt("n\x{30C}", "n\x{300}")); 102ok($objZh->lt("n\x{300}", "n")); 103ok($objZh->lt("o\x{304}", "o\x{301}")); 104ok($objZh->lt("o\x{301}", "o\x{30C}")); 105ok($objZh->lt("o\x{30C}", "o\x{300}")); 106ok($objZh->lt("o\x{300}", "o")); 107ok($objZh->lt("u\x{304}", "u\x{301}")); 108ok($objZh->lt("u\x{301}", "u\x{30C}")); 109ok($objZh->lt("u\x{30C}", "u\x{300}")); 110ok($objZh->lt("u\x{300}", "u")); 111ok($objZh->lt("u\x{308}\x{304}", "u\x{308}\x{301}")); 112ok($objZh->lt("u\x{308}\x{301}", "u\x{308}\x{30C}")); 113ok($objZh->lt("u\x{308}\x{30C}", "u\x{308}\x{300}")); 114ok($objZh->lt("u\x{308}\x{300}", "u\x{308}")); 115 116# 74 117 118ok($objZh->eq("a\x{304}", "A\x{304}")); 119ok($objZh->eq("a\x{301}", "A\x{301}")); 120ok($objZh->eq("a\x{30C}", "A\x{30C}")); 121ok($objZh->eq("a\x{300}", "A\x{300}")); 122ok($objZh->eq("e\x{304}", "E\x{304}")); 123ok($objZh->eq("e\x{301}", "E\x{301}")); 124ok($objZh->eq("e\x{30C}", "E\x{30C}")); 125ok($objZh->eq("e\x{300}", "E\x{300}")); 126ok($objZh->eq("e\x{302}\x{304}", "E\x{302}\x{304}")); 127ok($objZh->eq("e\x{302}\x{301}", "E\x{302}\x{301}")); 128ok($objZh->eq("e\x{302}\x{30C}", "E\x{302}\x{30C}")); 129ok($objZh->eq("e\x{302}\x{300}", "E\x{302}\x{300}")); 130ok($objZh->eq("e\x{302}", "E\x{302}")); 131ok($objZh->eq("i\x{304}", "I\x{304}")); 132ok($objZh->eq("i\x{301}", "I\x{301}")); 133ok($objZh->eq("i\x{30C}", "I\x{30C}")); 134ok($objZh->eq("i\x{300}", "I\x{300}")); 135ok($objZh->eq("m\x{304}", "M\x{304}")); 136ok($objZh->eq("m\x{301}", "M\x{301}")); 137ok($objZh->eq("m\x{30C}", "M\x{30C}")); 138ok($objZh->eq("m\x{300}", "M\x{300}")); 139ok($objZh->eq("n\x{304}", "N\x{304}")); 140ok($objZh->eq("n\x{301}", "N\x{301}")); 141ok($objZh->eq("n\x{30C}", "N\x{30C}")); 142ok($objZh->eq("n\x{300}", "N\x{300}")); 143ok($objZh->eq("o\x{304}", "O\x{304}")); 144ok($objZh->eq("o\x{301}", "O\x{301}")); 145ok($objZh->eq("o\x{30C}", "O\x{30C}")); 146ok($objZh->eq("o\x{300}", "O\x{300}")); 147ok($objZh->eq("u\x{304}", "U\x{304}")); 148ok($objZh->eq("u\x{301}", "U\x{301}")); 149ok($objZh->eq("u\x{30C}", "U\x{30C}")); 150ok($objZh->eq("u\x{300}", "U\x{300}")); 151ok($objZh->eq("u\x{308}\x{304}", "U\x{308}\x{304}")); 152ok($objZh->eq("u\x{308}\x{301}", "U\x{308}\x{301}")); 153ok($objZh->eq("u\x{308}\x{30C}", "U\x{308}\x{30C}")); 154ok($objZh->eq("u\x{308}\x{300}", "U\x{308}\x{300}")); 155ok($objZh->eq("u\x{308}", "U\x{308}")); 156 157# 112 158 159$objZh->change(level => 3); 160 161ok($objZh->lt("a\x{304}", "A\x{304}")); 162ok($objZh->lt("a\x{301}", "A\x{301}")); 163ok($objZh->lt("a\x{30C}", "A\x{30C}")); 164ok($objZh->lt("a\x{300}", "A\x{300}")); 165ok($objZh->lt("e\x{304}", "E\x{304}")); 166ok($objZh->lt("e\x{301}", "E\x{301}")); 167ok($objZh->lt("e\x{30C}", "E\x{30C}")); 168ok($objZh->lt("e\x{300}", "E\x{300}")); 169ok($objZh->lt("e\x{302}\x{304}", "E\x{302}\x{304}")); 170ok($objZh->lt("e\x{302}\x{301}", "E\x{302}\x{301}")); 171ok($objZh->lt("e\x{302}\x{30C}", "E\x{302}\x{30C}")); 172ok($objZh->lt("e\x{302}\x{300}", "E\x{302}\x{300}")); 173ok($objZh->lt("e\x{302}", "E\x{302}")); 174ok($objZh->lt("i\x{304}", "I\x{304}")); 175ok($objZh->lt("i\x{301}", "I\x{301}")); 176ok($objZh->lt("i\x{30C}", "I\x{30C}")); 177ok($objZh->lt("i\x{300}", "I\x{300}")); 178ok($objZh->lt("m\x{304}", "M\x{304}")); 179ok($objZh->lt("m\x{301}", "M\x{301}")); 180ok($objZh->lt("m\x{30C}", "M\x{30C}")); 181ok($objZh->lt("m\x{300}", "M\x{300}")); 182ok($objZh->lt("n\x{304}", "N\x{304}")); 183ok($objZh->lt("n\x{301}", "N\x{301}")); 184ok($objZh->lt("n\x{30C}", "N\x{30C}")); 185ok($objZh->lt("n\x{300}", "N\x{300}")); 186ok($objZh->lt("o\x{304}", "O\x{304}")); 187ok($objZh->lt("o\x{301}", "O\x{301}")); 188ok($objZh->lt("o\x{30C}", "O\x{30C}")); 189ok($objZh->lt("o\x{300}", "O\x{300}")); 190ok($objZh->lt("u\x{304}", "U\x{304}")); 191ok($objZh->lt("u\x{301}", "U\x{301}")); 192ok($objZh->lt("u\x{30C}", "U\x{30C}")); 193ok($objZh->lt("u\x{300}", "U\x{300}")); 194ok($objZh->lt("u\x{308}\x{304}", "U\x{308}\x{304}")); 195ok($objZh->lt("u\x{308}\x{301}", "U\x{308}\x{301}")); 196ok($objZh->lt("u\x{308}\x{30C}", "U\x{308}\x{30C}")); 197ok($objZh->lt("u\x{308}\x{300}", "U\x{308}\x{300}")); 198ok($objZh->lt("u\x{308}", "U\x{308}")); 199 200# 150 201 202ok($objZh->eq("a\x{304}", "\x{101}")); 203ok($objZh->eq("A\x{304}", "\x{100}")); 204ok($objZh->eq("a\x{301}", _pack_U(0xE1))); 205ok($objZh->eq("a\x{301}", "a\x{341}")); 206ok($objZh->eq("A\x{301}", _pack_U(0xC1))); 207ok($objZh->eq("A\x{301}", "A\x{341}")); 208ok($objZh->eq("a\x{30C}", "\x{1CE}")); 209ok($objZh->eq("A\x{30C}", "\x{1CD}")); 210ok($objZh->eq("a\x{300}", _pack_U(0xE0))); 211ok($objZh->eq("a\x{300}", "a\x{340}")); 212ok($objZh->eq("A\x{300}", _pack_U(0xC0))); 213ok($objZh->eq("A\x{300}", "A\x{340}")); 214ok($objZh->eq("e\x{304}", "\x{113}")); 215ok($objZh->eq("E\x{304}", "\x{112}")); 216ok($objZh->eq("e\x{301}", _pack_U(0xE9))); 217ok($objZh->eq("e\x{301}", "e\x{341}")); 218ok($objZh->eq("E\x{301}", _pack_U(0xC9))); 219ok($objZh->eq("E\x{301}", "E\x{341}")); 220ok($objZh->eq("e\x{30C}", "\x{11B}")); 221ok($objZh->eq("E\x{30C}", "\x{11A}")); 222ok($objZh->eq("e\x{300}", _pack_U(0xE8))); 223ok($objZh->eq("e\x{300}", "e\x{340}")); 224ok($objZh->eq("E\x{300}", _pack_U(0xC8))); 225ok($objZh->eq("E\x{300}", "E\x{340}")); 226ok($objZh->eq("e\x{302}\x{304}", _pack_U(0xEA, 0x304))); 227ok($objZh->eq("E\x{302}\x{304}", _pack_U(0xCA, 0x304))); 228ok($objZh->eq("e\x{302}\x{301}", "\x{1EBF}")); 229ok($objZh->eq("e\x{302}\x{301}", "e\x{302}\x{341}")); 230ok($objZh->eq("E\x{302}\x{301}", "\x{1EBE}")); 231ok($objZh->eq("E\x{302}\x{301}", "E\x{302}\x{341}")); 232ok($objZh->eq("e\x{302}\x{301}", _pack_U(0xEA, 0x301))); 233ok($objZh->eq("e\x{302}\x{301}", _pack_U(0xEA, 0x341))); 234ok($objZh->eq("E\x{302}\x{301}", _pack_U(0xCA, 0x301))); 235ok($objZh->eq("E\x{302}\x{301}", _pack_U(0xCA, 0x341))); 236ok($objZh->eq("e\x{302}\x{30C}", _pack_U(0xEA, 0x30C))); 237ok($objZh->eq("E\x{302}\x{30C}", _pack_U(0xCA, 0x30C))); 238ok($objZh->eq("e\x{302}\x{300}", "\x{1EC1}")); 239ok($objZh->eq("e\x{302}\x{300}", "e\x{302}\x{340}")); 240ok($objZh->eq("E\x{302}\x{300}", "\x{1EC0}")); 241ok($objZh->eq("E\x{302}\x{300}", "E\x{302}\x{340}")); 242ok($objZh->eq("e\x{302}\x{300}", _pack_U(0xEA, 0x300))); 243ok($objZh->eq("e\x{302}\x{300}", _pack_U(0xEA, 0x340))); 244ok($objZh->eq("E\x{302}\x{300}", _pack_U(0xCA, 0x300))); 245ok($objZh->eq("E\x{302}\x{300}", _pack_U(0xCA, 0x340))); 246ok($objZh->eq("e\x{302}", _pack_U(0xEA))); 247ok($objZh->eq("E\x{302}", _pack_U(0xCA))); 248ok($objZh->eq("i\x{304}", "\x{12B}")); 249ok($objZh->eq("I\x{304}", "\x{12A}")); 250ok($objZh->eq("i\x{301}", _pack_U(0xED))); 251ok($objZh->eq("i\x{301}", "i\x{341}")); 252ok($objZh->eq("I\x{301}", _pack_U(0xCD))); 253ok($objZh->eq("I\x{301}", "I\x{341}")); 254ok($objZh->eq("i\x{30C}", "\x{1D0}")); 255ok($objZh->eq("I\x{30C}", "\x{1CF}")); 256ok($objZh->eq("i\x{300}", _pack_U(0xEC))); 257ok($objZh->eq("i\x{300}", "i\x{340}")); 258ok($objZh->eq("I\x{300}", _pack_U(0xCC))); 259ok($objZh->eq("I\x{300}", "I\x{340}")); 260ok($objZh->eq("m\x{301}", "\x{1E3F}")); 261ok($objZh->eq("m\x{301}", "m\x{341}")); 262ok($objZh->eq("M\x{301}", "\x{1E3E}")); 263ok($objZh->eq("M\x{301}", "M\x{341}")); 264ok($objZh->eq("m\x{300}", "m\x{340}")); 265ok($objZh->eq("M\x{300}", "M\x{340}")); 266ok($objZh->eq("n\x{301}", "\x{144}")); 267ok($objZh->eq("n\x{301}", "n\x{341}")); 268ok($objZh->eq("N\x{301}", "\x{143}")); 269ok($objZh->eq("N\x{301}", "N\x{341}")); 270ok($objZh->eq("n\x{30C}", "\x{148}")); 271ok($objZh->eq("N\x{30C}", "\x{147}")); 272ok($objZh->eq("n\x{300}", "\x{1F9}")); 273ok($objZh->eq("n\x{300}", "n\x{340}")); 274ok($objZh->eq("N\x{300}", "\x{1F8}")); 275ok($objZh->eq("N\x{300}", "N\x{340}")); 276ok($objZh->eq("o\x{304}", "\x{14D}")); 277ok($objZh->eq("O\x{304}", "\x{14C}")); 278ok($objZh->eq("o\x{301}", _pack_U(0xF3))); 279ok($objZh->eq("o\x{301}", "o\x{341}")); 280ok($objZh->eq("O\x{301}", _pack_U(0xD3))); 281ok($objZh->eq("O\x{301}", "O\x{341}")); 282ok($objZh->eq("o\x{30C}", "\x{1D2}")); 283ok($objZh->eq("O\x{30C}", "\x{1D1}")); 284ok($objZh->eq("o\x{300}", _pack_U(0xF2))); 285ok($objZh->eq("o\x{300}", "o\x{340}")); 286ok($objZh->eq("O\x{300}", _pack_U(0xD2))); 287ok($objZh->eq("O\x{300}", "O\x{340}")); 288ok($objZh->eq("u\x{304}", "\x{16B}")); 289ok($objZh->eq("U\x{304}", "\x{16A}")); 290ok($objZh->eq("u\x{301}", _pack_U(0xFA))); 291ok($objZh->eq("u\x{301}", "u\x{341}")); 292ok($objZh->eq("U\x{301}", _pack_U(0xDA))); 293ok($objZh->eq("U\x{301}", "U\x{341}")); 294ok($objZh->eq("u\x{30C}", "\x{1D4}")); 295ok($objZh->eq("U\x{30C}", "\x{1D3}")); 296ok($objZh->eq("u\x{300}", _pack_U(0xF9))); 297ok($objZh->eq("u\x{300}", "u\x{340}")); 298ok($objZh->eq("U\x{300}", _pack_U(0xD9))); 299ok($objZh->eq("U\x{300}", "U\x{340}")); 300ok($objZh->eq("u\x{308}\x{304}", "\x{1D6}")); 301ok($objZh->eq("U\x{308}\x{304}", "\x{1D5}")); 302ok($objZh->eq("u\x{308}\x{304}", _pack_U(0xFC, 0x304))); 303ok($objZh->eq("U\x{308}\x{304}", _pack_U(0xDC, 0x304))); 304ok($objZh->eq("u\x{308}\x{301}", "\x{1D8}")); 305ok($objZh->eq("u\x{308}\x{301}", "u\x{308}\x{341}")); 306ok($objZh->eq("U\x{308}\x{301}", "\x{1D7}")); 307ok($objZh->eq("U\x{308}\x{301}", "U\x{308}\x{341}")); 308ok($objZh->eq("u\x{308}\x{301}", _pack_U(0xFC, 0x301))); 309ok($objZh->eq("u\x{308}\x{301}", _pack_U(0xFC, 0x341))); 310ok($objZh->eq("U\x{308}\x{301}", _pack_U(0xDC, 0x301))); 311ok($objZh->eq("U\x{308}\x{301}", _pack_U(0xDC, 0x341))); 312ok($objZh->eq("u\x{308}\x{30C}", "\x{1DA}")); 313ok($objZh->eq("U\x{308}\x{30C}", "\x{1D9}")); 314ok($objZh->eq("u\x{308}\x{30C}", _pack_U(0xFC, 0x30C))); 315ok($objZh->eq("U\x{308}\x{30C}", _pack_U(0xDC, 0x30C))); 316ok($objZh->eq("u\x{308}\x{300}", "\x{1DC}")); 317ok($objZh->eq("u\x{308}\x{300}", "u\x{308}\x{340}")); 318ok($objZh->eq("U\x{308}\x{300}", "\x{1DB}")); 319ok($objZh->eq("U\x{308}\x{300}", "U\x{308}\x{340}")); 320ok($objZh->eq("u\x{308}\x{300}", _pack_U(0xFC, 0x300))); 321ok($objZh->eq("u\x{308}\x{300}", _pack_U(0xFC, 0x340))); 322ok($objZh->eq("U\x{308}\x{300}", _pack_U(0xDC, 0x300))); 323ok($objZh->eq("U\x{308}\x{300}", _pack_U(0xDC, 0x340))); 324ok($objZh->eq("u\x{308}", _pack_U(0xFC))); 325ok($objZh->eq("U\x{308}", _pack_U(0xDC))); 326 327# 274 328 329ok($objZh->eq("e\x{302}\x{303}", "\x{1EC5}")); 330ok($objZh->eq("E\x{302}\x{303}", "\x{1EC4}")); 331ok($objZh->eq("e\x{302}\x{309}", "\x{1EC3}")); 332ok($objZh->eq("E\x{302}\x{309}", "\x{1EC2}")); 333ok($objZh->eq("e\x{302}\x{323}", "\x{1EC7}")); 334ok($objZh->eq("E\x{302}\x{323}", "\x{1EC6}")); 335 336# 280 337