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