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