1 2BEGIN { 3 unless ('A' eq pack('U', 0x41)) { 4 print "1..0 # Unicode::Collate cannot pack a Unicode code point\n"; 5 exit 0; 6 } 7 unless (0x41 == unpack('U', 'A')) { 8 print "1..0 # Unicode::Collate cannot get a Unicode code point\n"; 9 exit 0; 10 } 11 if ($ENV{PERL_CORE}) { 12 chdir('t') if -d 't'; 13 @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib); 14 } 15} 16 17use strict; 18use warnings; 19BEGIN { $| = 1; print "1..40\n"; } 20my $count = 0; 21sub ok ($;$) { 22 my $p = my $r = shift; 23 if (@_) { 24 my $x = shift; 25 $p = !defined $x ? !defined $r : !defined $r ? 0 : $r eq $x; 26 } 27 print $p ? "ok" : "not ok", ' ', ++$count, "\n"; 28} 29 30use Unicode::Collate::Locale; 31 32ok(1); 33 34######################### 35 36my $objWo = Unicode::Collate::Locale-> 37 new(locale => 'WO', normalization => undef); 38 39ok($objWo->getlocale, 'wo'); 40 41$objWo->change(level => 1); 42 43ok($objWo->lt("a", "a\x{300}")); 44ok($objWo->gt("b", "a\x{300}")); 45ok($objWo->lt("e", "e\x{301}")); 46ok($objWo->lt("e\x{301}", "e\x{308}")); 47ok($objWo->gt("f", "e\x{308}")); 48ok($objWo->lt("n", "n\x{303}")); 49ok($objWo->lt("n\x{303}", "\x{14B}")); 50ok($objWo->gt("o", "\x{14B}")); 51ok($objWo->lt("o", "o\x{301}")); 52ok($objWo->gt("p", "o\x{301}")); 53 54# 12 55 56$objWo->change(level => 2); 57 58ok($objWo->eq("a\x{300}", "A\x{300}")); 59ok($objWo->eq("e\x{301}", "E\x{301}")); 60ok($objWo->eq("e\x{308}", "E\x{308}")); 61ok($objWo->eq("n\x{303}", "N\x{303}")); 62ok($objWo->eq( "\x{14B}", "\x{14A}")); 63ok($objWo->eq("o\x{301}", "O\x{301}")); 64 65# 18 66 67$objWo->change(level => 3); 68 69ok($objWo->lt("a\x{300}", "A\x{300}")); 70ok($objWo->lt("e\x{301}", "E\x{301}")); 71ok($objWo->lt("e\x{308}", "E\x{308}")); 72ok($objWo->lt("n\x{303}", "N\x{303}")); 73ok($objWo->lt( "\x{14B}", "\x{14A}")); 74ok($objWo->lt("o\x{301}", "O\x{301}")); 75 76# 24 77 78ok($objWo->eq("a\x{300}", pack('U', 0xE0))); 79ok($objWo->eq("a\x{340}", pack('U', 0xE0))); 80ok($objWo->eq("A\x{300}", pack('U', 0xC0))); 81ok($objWo->eq("A\x{340}", pack('U', 0xC0))); 82ok($objWo->eq("e\x{301}", pack('U', 0xE9))); 83ok($objWo->eq("e\x{341}", pack('U', 0xE9))); 84ok($objWo->eq("E\x{301}", pack('U', 0xC9))); 85ok($objWo->eq("E\x{341}", pack('U', 0xC9))); 86ok($objWo->eq("e\x{308}", pack('U', 0xEB))); 87ok($objWo->eq("E\x{308}", pack('U', 0xCB))); 88ok($objWo->eq("n\x{303}", pack('U', 0xF1))); 89ok($objWo->eq("N\x{303}", pack('U', 0xD1))); 90ok($objWo->eq("o\x{301}", pack('U', 0xF3))); 91ok($objWo->eq("o\x{341}", pack('U', 0xF3))); 92ok($objWo->eq("O\x{301}", pack('U', 0xD3))); 93ok($objWo->eq("O\x{341}", pack('U', 0xD3))); 94 95# 40 96