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..73\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 $objPl = Unicode::Collate::Locale-> 37 new(locale => 'PL', normalization => undef); 38 39ok($objPl->getlocale, 'pl'); 40 41$objPl->change(level => 1); 42 43ok($objPl->lt("a", "a\x{328}")); 44ok($objPl->lt("az","a\x{328}")); 45ok($objPl->gt("b", "a\x{328}")); 46ok($objPl->lt("c", "c\x{301}")); 47ok($objPl->lt("cz","c\x{301}")); 48ok($objPl->gt("d", "c\x{301}")); 49ok($objPl->lt("e", "e\x{328}")); 50ok($objPl->lt("ez","e\x{328}")); 51ok($objPl->gt("f", "e\x{328}")); 52ok($objPl->lt("l", "l\x{335}")); 53ok($objPl->lt("lz","l\x{335}")); 54ok($objPl->gt("m", "l\x{335}")); 55ok($objPl->lt("n", "n\x{301}")); 56ok($objPl->lt("nz","n\x{301}")); 57ok($objPl->gt("o", "n\x{301}")); 58ok($objPl->lt("o", "o\x{301}")); 59ok($objPl->lt("oz","o\x{301}")); 60ok($objPl->gt("p", "o\x{301}")); 61ok($objPl->lt("s", "s\x{301}")); 62ok($objPl->lt("sz","s\x{301}")); 63ok($objPl->gt("t", "s\x{301}")); 64ok($objPl->lt("z", "z\x{301}")); 65ok($objPl->lt("zz","z\x{301}")); 66ok($objPl->lt("z\x{301}", "z\x{307}")); 67ok($objPl->lt("z\x{307}", "\x{292}")); # U+0292 EZH 68 69# 27 70 71$objPl->change(level => 2); 72 73ok($objPl->eq("a\x{328}", "A\x{328}")); 74ok($objPl->eq("c\x{301}", "C\x{301}")); 75ok($objPl->eq("e\x{328}", "E\x{328}")); 76ok($objPl->eq("l\x{335}", "L\x{335}")); 77ok($objPl->eq("n\x{301}", "N\x{301}")); 78ok($objPl->eq("o\x{301}", "O\x{301}")); 79ok($objPl->eq("s\x{301}", "S\x{301}")); 80ok($objPl->eq("z\x{301}", "Z\x{301}")); 81ok($objPl->eq("z\x{307}", "Z\x{307}")); 82 83# 36 84 85$objPl->change(level => 3); 86 87ok($objPl->lt("a\x{328}", "A\x{328}")); 88ok($objPl->lt("c\x{301}", "C\x{301}")); 89ok($objPl->lt("e\x{328}", "E\x{328}")); 90ok($objPl->lt("l\x{335}", "L\x{335}")); 91ok($objPl->lt("n\x{301}", "N\x{301}")); 92ok($objPl->lt("o\x{301}", "O\x{301}")); 93ok($objPl->lt("s\x{301}", "S\x{301}")); 94ok($objPl->lt("z\x{301}", "Z\x{301}")); 95ok($objPl->lt("z\x{307}", "Z\x{307}")); 96 97# 45 98 99ok($objPl->eq("a\x{328}", "\x{105}")); 100ok($objPl->eq("A\x{328}", "\x{104}")); 101ok($objPl->eq("c\x{301}", "\x{107}")); 102ok($objPl->eq("c\x{341}", "\x{107}")); 103ok($objPl->eq("C\x{301}", "\x{106}")); 104ok($objPl->eq("C\x{341}", "\x{106}")); 105ok($objPl->eq("e\x{328}", "\x{119}")); 106ok($objPl->eq("E\x{328}", "\x{118}")); 107ok($objPl->eq("l\x{335}", "\x{142}")); 108ok($objPl->eq("L\x{335}", "\x{141}")); 109ok($objPl->eq("n\x{301}", "\x{144}")); 110ok($objPl->eq("n\x{341}", "\x{144}")); 111ok($objPl->eq("N\x{301}", "\x{143}")); 112ok($objPl->eq("N\x{341}", "\x{143}")); 113ok($objPl->eq("o\x{301}", pack('U', 0xF3))); 114ok($objPl->eq("o\x{341}", pack('U', 0xF3))); 115ok($objPl->eq("O\x{301}", pack('U', 0xD3))); 116ok($objPl->eq("O\x{341}", pack('U', 0xD3))); 117ok($objPl->eq("s\x{301}", "\x{15B}")); 118ok($objPl->eq("s\x{341}", "\x{15B}")); 119ok($objPl->eq("S\x{301}", "\x{15A}")); 120ok($objPl->eq("S\x{341}", "\x{15A}")); 121ok($objPl->eq("z\x{301}", "\x{17A}")); 122ok($objPl->eq("z\x{341}", "\x{17A}")); 123ok($objPl->eq("Z\x{301}", "\x{179}")); 124ok($objPl->eq("Z\x{341}", "\x{179}")); 125ok($objPl->eq("z\x{307}", "\x{17C}")); 126ok($objPl->eq("Z\x{307}", "\x{17B}")); 127 128# 73 129