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..69\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 $objLt = Unicode::Collate::Locale-> 32 new(locale => 'LT', normalization => undef); 33 34ok($objLt->getlocale, 'lt'); 35 36$objLt->change(level => 1); 37 38ok($objLt->lt("c", "c\x{30C}")); 39ok($objLt->gt("d", "c\x{30C}")); 40ok($objLt->lt("s", "s\x{30C}")); 41ok($objLt->gt("t", "s\x{30C}")); 42ok($objLt->lt("z", "z\x{30C}")); 43ok($objLt->lt("z\x{30C}", "\x{292}")); # U+0292 EZH 44 45# 8 46 47ok($objLt->eq("a", "a\x{328}")); 48ok($objLt->eq("e", "e\x{328}")); 49ok($objLt->eq("e\x{328}", "e\x{307}")); 50ok($objLt->eq("i", "i\x{328}")); 51ok($objLt->eq("y", "i\x{328}")); 52ok($objLt->eq("u", "u\x{328}")); 53ok($objLt->eq("u\x{328}", "u\x{304}")); 54 55# 15 56 57$objLt->change(level => 2); 58 59ok($objLt->lt("a", "a\x{328}")); 60ok($objLt->lt("e", "e\x{328}")); 61ok($objLt->lt("e\x{328}", "e\x{307}")); 62ok($objLt->lt("i", "i\x{328}")); 63ok($objLt->gt("y", "i\x{328}")); 64ok($objLt->lt("u", "u\x{328}")); 65ok($objLt->lt("u\x{328}", "u\x{304}")); 66 67# 22 68 69ok($objLt->eq("c\x{30C}", "C\x{30C}")); 70ok($objLt->eq("s\x{30C}", "S\x{30C}")); 71ok($objLt->eq("z\x{30C}", "Z\x{30C}")); 72 73ok($objLt->eq("i\x{307}", "I\x{307}")); 74ok($objLt->eq("y", "Y")); 75 76ok($objLt->eq("a\x{328}", "A\x{328}")); 77ok($objLt->eq("e\x{328}", "E\x{328}")); 78ok($objLt->eq("e\x{307}", "E\x{307}")); 79ok($objLt->eq("i\x{328}", "I\x{328}")); 80ok($objLt->eq("u\x{328}", "U\x{328}")); 81ok($objLt->eq("u\x{304}", "U\x{304}")); 82 83# 33 84 85# according to CLDR tests 86ok($objLt->gt("I\x{307}\x{300}", "I\x{300}")); 87ok($objLt->gt("I\x{307}\x{301}", "I\x{301}")); 88ok($objLt->gt("I\x{307}\x{303}", "I\x{303}")); 89 90# 36 91 92$objLt->change(level => 3); 93 94ok($objLt->lt("c\x{30C}", "C\x{30C}")); 95ok($objLt->lt("s\x{30C}", "S\x{30C}")); 96ok($objLt->lt("z\x{30C}", "Z\x{30C}")); 97 98ok($objLt->lt("i\x{307}", "I\x{307}")); 99ok($objLt->lt("y", "Y")); 100 101ok($objLt->lt("a\x{328}", "A\x{328}")); 102ok($objLt->lt("e\x{328}", "E\x{328}")); 103ok($objLt->lt("e\x{307}", "E\x{307}")); 104ok($objLt->lt("i\x{328}", "I\x{328}")); 105ok($objLt->lt("u\x{328}", "U\x{328}")); 106ok($objLt->lt("u\x{304}", "U\x{304}")); 107 108# 47 109 110ok($objLt->eq("c\x{30C}", "\x{10D}")); 111ok($objLt->eq("C\x{30C}", "\x{10C}")); 112ok($objLt->eq("s\x{30C}", "\x{161}")); 113ok($objLt->eq("S\x{30C}", "\x{160}")); 114ok($objLt->eq("z\x{30C}", "\x{17E}")); 115ok($objLt->eq("Z\x{30C}", "\x{17D}")); 116 117ok($objLt->eq("I\x{307}", "\x{130}")); 118 119ok($objLt->eq("a\x{328}", "\x{105}")); 120ok($objLt->eq("A\x{328}", "\x{104}")); 121ok($objLt->eq("e\x{328}", "\x{119}")); 122ok($objLt->eq("E\x{328}", "\x{118}")); 123ok($objLt->eq("e\x{307}", "\x{117}")); 124ok($objLt->eq("E\x{307}", "\x{116}")); 125ok($objLt->eq("i\x{328}", "\x{12F}")); 126ok($objLt->eq("I\x{328}", "\x{12E}")); 127ok($objLt->eq("u\x{328}", "\x{173}")); 128ok($objLt->eq("U\x{328}", "\x{172}")); 129ok($objLt->eq("u\x{304}", "\x{16B}")); 130ok($objLt->eq("U\x{304}", "\x{16A}")); 131 132# 66 133 134ok($objLt->eq("i\x{307}\x{300}", "i\x{300}")); 135ok($objLt->eq("i\x{307}\x{301}", "i\x{301}")); 136ok($objLt->eq("i\x{307}\x{303}", "i\x{303}")); 137 138# 69 139