| |
| BEGIN { |
| unless ("A" eq pack('U', 0x41)) { |
| print "1..0 # Unicode::Collate " . |
| "cannot stringify a Unicode code point\n"; |
| exit 0; |
| } |
| if ($ENV{PERL_CORE}) { |
| chdir('t') if -d 't'; |
| @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib); |
| } |
| } |
| |
| use strict; |
| use warnings; |
| BEGIN { $| = 1; print "1..298\n"; } |
| my $count = 0; |
| sub ok ($;$) { |
| my $p = my $r = shift; |
| if (@_) { |
| my $x = shift; |
| $p = !defined $x ? !defined $r : !defined $r ? 0 : $r eq $x; |
| } |
| print $p ? "ok" : "not ok", ' ', ++$count, "\n"; |
| } |
| |
| use Unicode::Collate::Locale; |
| |
| ok(1); |
| |
| ######################### |
| |
| my $objZhG = Unicode::Collate::Locale-> |
| new(locale => 'ZH__gb2312han', normalization => undef); |
| |
| ok($objZhG->getlocale, 'zh__gb2312han'); |
| |
| $objZhG->change(level => 1); |
| |
| ok($objZhG->eq("a\x{304}", "a\x{301}")); |
| ok($objZhG->eq("a\x{301}", "a\x{30C}")); |
| ok($objZhG->eq("a\x{30C}", "a\x{300}")); |
| ok($objZhG->eq("a\x{300}", "a")); |
| ok($objZhG->eq("e\x{304}", "e\x{301}")); |
| ok($objZhG->eq("e\x{301}", "e\x{30C}")); |
| ok($objZhG->eq("e\x{30C}", "e\x{300}")); |
| ok($objZhG->eq("e\x{300}", "e")); |
| ok($objZhG->eq("e\x{302}\x{304}", "e\x{302}\x{301}")); |
| ok($objZhG->eq("e\x{302}\x{301}", "e\x{302}\x{30C}")); |
| ok($objZhG->eq("e\x{302}\x{30C}", "e\x{302}\x{300}")); |
| ok($objZhG->eq("e\x{302}\x{300}", "e\x{302}")); |
| ok($objZhG->eq("i\x{304}", "i\x{301}")); |
| ok($objZhG->eq("i\x{301}", "i\x{30C}")); |
| ok($objZhG->eq("i\x{30C}", "i\x{300}")); |
| ok($objZhG->eq("i\x{300}", "i")); |
| ok($objZhG->eq("m\x{304}", "m\x{301}")); |
| ok($objZhG->eq("m\x{301}", "m\x{30C}")); |
| ok($objZhG->eq("m\x{30C}", "m\x{300}")); |
| ok($objZhG->eq("m\x{300}", "m")); |
| ok($objZhG->eq("n\x{304}", "n\x{301}")); |
| ok($objZhG->eq("n\x{301}", "n\x{30C}")); |
| ok($objZhG->eq("n\x{30C}", "n\x{300}")); |
| ok($objZhG->eq("n\x{300}", "n")); |
| ok($objZhG->eq("o\x{304}", "o\x{301}")); |
| ok($objZhG->eq("o\x{301}", "o\x{30C}")); |
| ok($objZhG->eq("o\x{30C}", "o\x{300}")); |
| ok($objZhG->eq("o\x{300}", "o")); |
| ok($objZhG->eq("u\x{304}", "u\x{301}")); |
| ok($objZhG->eq("u\x{301}", "u\x{30C}")); |
| ok($objZhG->eq("u\x{30C}", "u\x{300}")); |
| ok($objZhG->eq("u\x{300}", "u")); |
| ok($objZhG->eq("u\x{308}\x{304}", "u\x{308}\x{301}")); |
| ok($objZhG->eq("u\x{308}\x{301}", "u\x{308}\x{30C}")); |
| ok($objZhG->eq("u\x{308}\x{30C}", "u\x{308}\x{300}")); |
| ok($objZhG->eq("u\x{308}\x{300}", "u\x{308}")); |
| |
| # 38 |
| |
| $objZhG->change(level => 2); |
| |
| ok($objZhG->lt("a\x{304}", "a\x{301}")); |
| ok($objZhG->lt("a\x{301}", "a\x{30C}")); |
| ok($objZhG->lt("a\x{30C}", "a\x{300}")); |
| ok($objZhG->lt("a\x{300}", "a")); |
| ok($objZhG->lt("e\x{304}", "e\x{301}")); |
| ok($objZhG->lt("e\x{301}", "e\x{30C}")); |
| ok($objZhG->lt("e\x{30C}", "e\x{300}")); |
| ok($objZhG->lt("e\x{300}", "e")); |
| ok($objZhG->lt("e\x{302}\x{304}", "e\x{302}\x{301}")); |
| ok($objZhG->lt("e\x{302}\x{301}", "e\x{302}\x{30C}")); |
| ok($objZhG->lt("e\x{302}\x{30C}", "e\x{302}\x{300}")); |
| ok($objZhG->lt("e\x{302}\x{300}", "e\x{302}")); |
| ok($objZhG->lt("i\x{304}", "i\x{301}")); |
| ok($objZhG->lt("i\x{301}", "i\x{30C}")); |
| ok($objZhG->lt("i\x{30C}", "i\x{300}")); |
| ok($objZhG->lt("i\x{300}", "i")); |
| ok($objZhG->lt("m\x{304}", "m\x{301}")); |
| ok($objZhG->lt("m\x{301}", "m\x{30C}")); |
| ok($objZhG->lt("m\x{30C}", "m\x{300}")); |
| ok($objZhG->lt("m\x{300}", "m")); |
| ok($objZhG->lt("n\x{304}", "n\x{301}")); |
| ok($objZhG->lt("n\x{301}", "n\x{30C}")); |
| ok($objZhG->lt("n\x{30C}", "n\x{300}")); |
| ok($objZhG->lt("n\x{300}", "n")); |
| ok($objZhG->lt("o\x{304}", "o\x{301}")); |
| ok($objZhG->lt("o\x{301}", "o\x{30C}")); |
| ok($objZhG->lt("o\x{30C}", "o\x{300}")); |
| ok($objZhG->lt("o\x{300}", "o")); |
| ok($objZhG->lt("u\x{304}", "u\x{301}")); |
| ok($objZhG->lt("u\x{301}", "u\x{30C}")); |
| ok($objZhG->lt("u\x{30C}", "u\x{300}")); |
| ok($objZhG->lt("u\x{300}", "u")); |
| ok($objZhG->lt("u\x{308}\x{304}", "u\x{308}\x{301}")); |
| ok($objZhG->lt("u\x{308}\x{301}", "u\x{308}\x{30C}")); |
| ok($objZhG->lt("u\x{308}\x{30C}", "u\x{308}\x{300}")); |
| ok($objZhG->lt("u\x{308}\x{300}", "u\x{308}")); |
| |
| # 74 |
| |
| ok($objZhG->eq("a\x{304}", "A\x{304}")); |
| ok($objZhG->eq("a\x{301}", "A\x{301}")); |
| ok($objZhG->eq("a\x{30C}", "A\x{30C}")); |
| ok($objZhG->eq("a\x{300}", "A\x{300}")); |
| ok($objZhG->eq("e\x{304}", "E\x{304}")); |
| ok($objZhG->eq("e\x{301}", "E\x{301}")); |
| ok($objZhG->eq("e\x{30C}", "E\x{30C}")); |
| ok($objZhG->eq("e\x{300}", "E\x{300}")); |
| ok($objZhG->eq("e\x{302}\x{304}", "E\x{302}\x{304}")); |
| ok($objZhG->eq("e\x{302}\x{301}", "E\x{302}\x{301}")); |
| ok($objZhG->eq("e\x{302}\x{30C}", "E\x{302}\x{30C}")); |
| ok($objZhG->eq("e\x{302}\x{300}", "E\x{302}\x{300}")); |
| ok($objZhG->eq("e\x{302}", "E\x{302}")); |
| ok($objZhG->eq("i\x{304}", "I\x{304}")); |
| ok($objZhG->eq("i\x{301}", "I\x{301}")); |
| ok($objZhG->eq("i\x{30C}", "I\x{30C}")); |
| ok($objZhG->eq("i\x{300}", "I\x{300}")); |
| ok($objZhG->eq("m\x{304}", "M\x{304}")); |
| ok($objZhG->eq("m\x{301}", "M\x{301}")); |
| ok($objZhG->eq("m\x{30C}", "M\x{30C}")); |
| ok($objZhG->eq("m\x{300}", "M\x{300}")); |
| ok($objZhG->eq("n\x{304}", "N\x{304}")); |
| ok($objZhG->eq("n\x{301}", "N\x{301}")); |
| ok($objZhG->eq("n\x{30C}", "N\x{30C}")); |
| ok($objZhG->eq("n\x{300}", "N\x{300}")); |
| ok($objZhG->eq("o\x{304}", "O\x{304}")); |
| ok($objZhG->eq("o\x{301}", "O\x{301}")); |
| ok($objZhG->eq("o\x{30C}", "O\x{30C}")); |
| ok($objZhG->eq("o\x{300}", "O\x{300}")); |
| ok($objZhG->eq("u\x{304}", "U\x{304}")); |
| ok($objZhG->eq("u\x{301}", "U\x{301}")); |
| ok($objZhG->eq("u\x{30C}", "U\x{30C}")); |
| ok($objZhG->eq("u\x{300}", "U\x{300}")); |
| ok($objZhG->eq("u\x{308}\x{304}", "U\x{308}\x{304}")); |
| ok($objZhG->eq("u\x{308}\x{301}", "U\x{308}\x{301}")); |
| ok($objZhG->eq("u\x{308}\x{30C}", "U\x{308}\x{30C}")); |
| ok($objZhG->eq("u\x{308}\x{300}", "U\x{308}\x{300}")); |
| ok($objZhG->eq("u\x{308}", "U\x{308}")); |
| |
| # 112 |
| |
| $objZhG->change(level => 3); |
| |
| ok($objZhG->lt("a\x{304}", "A\x{304}")); |
| ok($objZhG->lt("a\x{301}", "A\x{301}")); |
| ok($objZhG->lt("a\x{30C}", "A\x{30C}")); |
| ok($objZhG->lt("a\x{300}", "A\x{300}")); |
| ok($objZhG->lt("e\x{304}", "E\x{304}")); |
| ok($objZhG->lt("e\x{301}", "E\x{301}")); |
| ok($objZhG->lt("e\x{30C}", "E\x{30C}")); |
| ok($objZhG->lt("e\x{300}", "E\x{300}")); |
| ok($objZhG->lt("e\x{302}\x{304}", "E\x{302}\x{304}")); |
| ok($objZhG->lt("e\x{302}\x{301}", "E\x{302}\x{301}")); |
| ok($objZhG->lt("e\x{302}\x{30C}", "E\x{302}\x{30C}")); |
| ok($objZhG->lt("e\x{302}\x{300}", "E\x{302}\x{300}")); |
| ok($objZhG->lt("e\x{302}", "E\x{302}")); |
| ok($objZhG->lt("i\x{304}", "I\x{304}")); |
| ok($objZhG->lt("i\x{301}", "I\x{301}")); |
| ok($objZhG->lt("i\x{30C}", "I\x{30C}")); |
| ok($objZhG->lt("i\x{300}", "I\x{300}")); |
| ok($objZhG->lt("m\x{304}", "M\x{304}")); |
| ok($objZhG->lt("m\x{301}", "M\x{301}")); |
| ok($objZhG->lt("m\x{30C}", "M\x{30C}")); |
| ok($objZhG->lt("m\x{300}", "M\x{300}")); |
| ok($objZhG->lt("n\x{304}", "N\x{304}")); |
| ok($objZhG->lt("n\x{301}", "N\x{301}")); |
| ok($objZhG->lt("n\x{30C}", "N\x{30C}")); |
| ok($objZhG->lt("n\x{300}", "N\x{300}")); |
| ok($objZhG->lt("o\x{304}", "O\x{304}")); |
| ok($objZhG->lt("o\x{301}", "O\x{301}")); |
| ok($objZhG->lt("o\x{30C}", "O\x{30C}")); |
| ok($objZhG->lt("o\x{300}", "O\x{300}")); |
| ok($objZhG->lt("u\x{304}", "U\x{304}")); |
| ok($objZhG->lt("u\x{301}", "U\x{301}")); |
| ok($objZhG->lt("u\x{30C}", "U\x{30C}")); |
| ok($objZhG->lt("u\x{300}", "U\x{300}")); |
| ok($objZhG->lt("u\x{308}\x{304}", "U\x{308}\x{304}")); |
| ok($objZhG->lt("u\x{308}\x{301}", "U\x{308}\x{301}")); |
| ok($objZhG->lt("u\x{308}\x{30C}", "U\x{308}\x{30C}")); |
| ok($objZhG->lt("u\x{308}\x{300}", "U\x{308}\x{300}")); |
| ok($objZhG->lt("u\x{308}", "U\x{308}")); |
| |
| # 150 |
| |
| ok($objZhG->eq("a\x{304}", "\x{101}")); |
| ok($objZhG->eq("A\x{304}", "\x{100}")); |
| ok($objZhG->eq("a\x{301}", pack('U', 0xE1))); |
| ok($objZhG->eq("a\x{301}", "a\x{341}")); |
| ok($objZhG->eq("A\x{301}", pack('U', 0xC1))); |
| ok($objZhG->eq("A\x{301}", "A\x{341}")); |
| ok($objZhG->eq("a\x{30C}", "\x{1CE}")); |
| ok($objZhG->eq("A\x{30C}", "\x{1CD}")); |
| ok($objZhG->eq("a\x{300}", pack('U', 0xE0))); |
| ok($objZhG->eq("a\x{300}", "a\x{340}")); |
| ok($objZhG->eq("A\x{300}", pack('U', 0xC0))); |
| ok($objZhG->eq("A\x{300}", "A\x{340}")); |
| ok($objZhG->eq("e\x{304}", "\x{113}")); |
| ok($objZhG->eq("E\x{304}", "\x{112}")); |
| ok($objZhG->eq("e\x{301}", pack('U', 0xE9))); |
| ok($objZhG->eq("e\x{301}", "e\x{341}")); |
| ok($objZhG->eq("E\x{301}", pack('U', 0xC9))); |
| ok($objZhG->eq("E\x{301}", "E\x{341}")); |
| ok($objZhG->eq("e\x{30C}", "\x{11B}")); |
| ok($objZhG->eq("E\x{30C}", "\x{11A}")); |
| ok($objZhG->eq("e\x{300}", pack('U', 0xE8))); |
| ok($objZhG->eq("e\x{300}", "e\x{340}")); |
| ok($objZhG->eq("E\x{300}", pack('U', 0xC8))); |
| ok($objZhG->eq("E\x{300}", "E\x{340}")); |
| ok($objZhG->eq("e\x{302}\x{304}", pack('U*', 0xEA, 0x304))); |
| ok($objZhG->eq("E\x{302}\x{304}", pack('U*', 0xCA, 0x304))); |
| ok($objZhG->eq("e\x{302}\x{301}", "\x{1EBF}")); |
| ok($objZhG->eq("e\x{302}\x{301}", "e\x{302}\x{341}")); |
| ok($objZhG->eq("E\x{302}\x{301}", "\x{1EBE}")); |
| ok($objZhG->eq("E\x{302}\x{301}", "E\x{302}\x{341}")); |
| ok($objZhG->eq("e\x{302}\x{301}", pack('U*', 0xEA, 0x301))); |
| ok($objZhG->eq("e\x{302}\x{301}", pack('U*', 0xEA, 0x341))); |
| ok($objZhG->eq("E\x{302}\x{301}", pack('U*', 0xCA, 0x301))); |
| ok($objZhG->eq("E\x{302}\x{301}", pack('U*', 0xCA, 0x341))); |
| ok($objZhG->eq("e\x{302}\x{30C}", pack('U*', 0xEA, 0x30C))); |
| ok($objZhG->eq("E\x{302}\x{30C}", pack('U*', 0xCA, 0x30C))); |
| ok($objZhG->eq("e\x{302}\x{300}", "\x{1EC1}")); |
| ok($objZhG->eq("e\x{302}\x{300}", "e\x{302}\x{340}")); |
| ok($objZhG->eq("E\x{302}\x{300}", "\x{1EC0}")); |
| ok($objZhG->eq("E\x{302}\x{300}", "E\x{302}\x{340}")); |
| ok($objZhG->eq("e\x{302}\x{300}", pack('U*', 0xEA, 0x300))); |
| ok($objZhG->eq("e\x{302}\x{300}", pack('U*', 0xEA, 0x340))); |
| ok($objZhG->eq("E\x{302}\x{300}", pack('U*', 0xCA, 0x300))); |
| ok($objZhG->eq("E\x{302}\x{300}", pack('U*', 0xCA, 0x340))); |
| ok($objZhG->eq("e\x{302}", pack('U', 0xEA))); |
| ok($objZhG->eq("E\x{302}", pack('U', 0xCA))); |
| ok($objZhG->eq("i\x{304}", "\x{12B}")); |
| ok($objZhG->eq("I\x{304}", "\x{12A}")); |
| ok($objZhG->eq("i\x{301}", pack('U', 0xED))); |
| ok($objZhG->eq("i\x{301}", "i\x{341}")); |
| ok($objZhG->eq("I\x{301}", pack('U', 0xCD))); |
| ok($objZhG->eq("I\x{301}", "I\x{341}")); |
| ok($objZhG->eq("i\x{30C}", "\x{1D0}")); |
| ok($objZhG->eq("I\x{30C}", "\x{1CF}")); |
| ok($objZhG->eq("i\x{300}", pack('U', 0xEC))); |
| ok($objZhG->eq("i\x{300}", "i\x{340}")); |
| ok($objZhG->eq("I\x{300}", pack('U', 0xCC))); |
| ok($objZhG->eq("I\x{300}", "I\x{340}")); |
| ok($objZhG->eq("m\x{301}", "\x{1E3F}")); |
| ok($objZhG->eq("m\x{301}", "m\x{341}")); |
| ok($objZhG->eq("M\x{301}", "\x{1E3E}")); |
| ok($objZhG->eq("M\x{301}", "M\x{341}")); |
| ok($objZhG->eq("m\x{300}", "m\x{340}")); |
| ok($objZhG->eq("M\x{300}", "M\x{340}")); |
| ok($objZhG->eq("n\x{301}", "\x{144}")); |
| ok($objZhG->eq("n\x{301}", "n\x{341}")); |
| ok($objZhG->eq("N\x{301}", "\x{143}")); |
| ok($objZhG->eq("N\x{301}", "N\x{341}")); |
| ok($objZhG->eq("n\x{30C}", "\x{148}")); |
| ok($objZhG->eq("N\x{30C}", "\x{147}")); |
| ok($objZhG->eq("n\x{300}", "\x{1F9}")); |
| ok($objZhG->eq("n\x{300}", "n\x{340}")); |
| ok($objZhG->eq("N\x{300}", "\x{1F8}")); |
| ok($objZhG->eq("N\x{300}", "N\x{340}")); |
| ok($objZhG->eq("o\x{304}", "\x{14D}")); |
| ok($objZhG->eq("O\x{304}", "\x{14C}")); |
| ok($objZhG->eq("o\x{301}", pack('U', 0xF3))); |
| ok($objZhG->eq("o\x{301}", "o\x{341}")); |
| ok($objZhG->eq("O\x{301}", pack('U', 0xD3))); |
| ok($objZhG->eq("O\x{301}", "O\x{341}")); |
| ok($objZhG->eq("o\x{30C}", "\x{1D2}")); |
| ok($objZhG->eq("O\x{30C}", "\x{1D1}")); |
| ok($objZhG->eq("o\x{300}", pack('U', 0xF2))); |
| ok($objZhG->eq("o\x{300}", "o\x{340}")); |
| ok($objZhG->eq("O\x{300}", pack('U', 0xD2))); |
| ok($objZhG->eq("O\x{300}", "O\x{340}")); |
| ok($objZhG->eq("u\x{304}", "\x{16B}")); |
| ok($objZhG->eq("U\x{304}", "\x{16A}")); |
| ok($objZhG->eq("u\x{301}", pack('U', 0xFA))); |
| ok($objZhG->eq("u\x{301}", "u\x{341}")); |
| ok($objZhG->eq("U\x{301}", pack('U', 0xDA))); |
| ok($objZhG->eq("U\x{301}", "U\x{341}")); |
| ok($objZhG->eq("u\x{30C}", "\x{1D4}")); |
| ok($objZhG->eq("U\x{30C}", "\x{1D3}")); |
| ok($objZhG->eq("u\x{300}", pack('U', 0xF9))); |
| ok($objZhG->eq("u\x{300}", "u\x{340}")); |
| ok($objZhG->eq("U\x{300}", pack('U', 0xD9))); |
| ok($objZhG->eq("U\x{300}", "U\x{340}")); |
| ok($objZhG->eq("u\x{308}\x{304}", "\x{1D6}")); |
| ok($objZhG->eq("U\x{308}\x{304}", "\x{1D5}")); |
| ok($objZhG->eq("u\x{308}\x{304}", pack('U*', 0xFC, 0x304))); |
| ok($objZhG->eq("U\x{308}\x{304}", pack('U*', 0xDC, 0x304))); |
| ok($objZhG->eq("u\x{308}\x{301}", "\x{1D8}")); |
| ok($objZhG->eq("u\x{308}\x{301}", "u\x{308}\x{341}")); |
| ok($objZhG->eq("U\x{308}\x{301}", "\x{1D7}")); |
| ok($objZhG->eq("U\x{308}\x{301}", "U\x{308}\x{341}")); |
| ok($objZhG->eq("u\x{308}\x{301}", pack('U*', 0xFC, 0x301))); |
| ok($objZhG->eq("u\x{308}\x{301}", pack('U*', 0xFC, 0x341))); |
| ok($objZhG->eq("U\x{308}\x{301}", pack('U*', 0xDC, 0x301))); |
| ok($objZhG->eq("U\x{308}\x{301}", pack('U*', 0xDC, 0x341))); |
| ok($objZhG->eq("u\x{308}\x{30C}", "\x{1DA}")); |
| ok($objZhG->eq("U\x{308}\x{30C}", "\x{1D9}")); |
| ok($objZhG->eq("u\x{308}\x{30C}", pack('U*', 0xFC, 0x30C))); |
| ok($objZhG->eq("U\x{308}\x{30C}", pack('U*', 0xDC, 0x30C))); |
| ok($objZhG->eq("u\x{308}\x{300}", "\x{1DC}")); |
| ok($objZhG->eq("u\x{308}\x{300}", "u\x{308}\x{340}")); |
| ok($objZhG->eq("U\x{308}\x{300}", "\x{1DB}")); |
| ok($objZhG->eq("U\x{308}\x{300}", "U\x{308}\x{340}")); |
| ok($objZhG->eq("u\x{308}\x{300}", pack('U*', 0xFC, 0x300))); |
| ok($objZhG->eq("u\x{308}\x{300}", pack('U*', 0xFC, 0x340))); |
| ok($objZhG->eq("U\x{308}\x{300}", pack('U*', 0xDC, 0x300))); |
| ok($objZhG->eq("U\x{308}\x{300}", pack('U*', 0xDC, 0x340))); |
| ok($objZhG->eq("u\x{308}", pack('U', 0xFC))); |
| ok($objZhG->eq("U\x{308}", pack('U', 0xDC))); |
| |
| # 274 |
| |
| ok($objZhG->eq("e\x{302}\x{303}", "\x{1EC5}")); |
| ok($objZhG->eq("E\x{302}\x{303}", "\x{1EC4}")); |
| ok($objZhG->eq("e\x{302}\x{309}", "\x{1EC3}")); |
| ok($objZhG->eq("E\x{302}\x{309}", "\x{1EC2}")); |
| ok($objZhG->eq("e\x{302}\x{323}", "\x{1EC7}")); |
| ok($objZhG->eq("E\x{302}\x{323}", "\x{1EC6}")); |
| |
| # 280 |
| |
| $objZhG->change(level => 1); |
| |
| ok($objZhG->lt("\x{A000}", "\x{554A}")); |
| ok($objZhG->lt("\x{554A}", "\x{963F}")); |
| ok($objZhG->lt("\x{963F}", "\x{57C3}")); |
| ok($objZhG->lt("\x{57C3}", "\x{6328}")); |
| ok($objZhG->lt("\x{6328}", "\x{54CE}")); |
| ok($objZhG->lt("\x{54CE}", "\x{5509}")); |
| ok($objZhG->lt("\x{5509}", "\x{54C0}")); |
| ok($objZhG->lt("\x{54C0}", "\x{7691}")); |
| ok($objZhG->lt("\x{7691}", "\x{764C}")); |
| ok($objZhG->lt("\x{764C}", "\x{853C}")); |
| ok($objZhG->lt("\x{853C}", "\x{77EE}")); |
| ok($objZhG->lt("\x{77EE}", "\x{4E00}")); |
| ok($objZhG->lt("\x{4E00}", "\x{9F2F}")); |
| ok($objZhG->lt("\x{9F2F}", "\x{9F39}")); |
| ok($objZhG->lt("\x{9F39}", "\x{9F37}")); |
| ok($objZhG->lt("\x{9F37}", "\x{9F3D}")); |
| ok($objZhG->lt("\x{9F3D}", "\x{9F3E}")); |
| ok($objZhG->lt("\x{9F3E}", "\x{9F44}")); |
| |
| # 298 |