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..208\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 $objNoSuppress = Unicode::Collate::Locale-> 32 new(locale => 'NoSuppress', normalization => undef); 33 34ok($objNoSuppress->getlocale, 'default'); 35 36$objNoSuppress->change(level => 1); 37 38ok($objNoSuppress->gt("\x{439}", "\x{438}")); # not suppressed 39ok($objNoSuppress->gt("\x{419}", "\x{418}")); # not suppressed 40 41# 4 42 43ok($objNoSuppress->eq("\x{4D1}", "\x{430}")); 44ok($objNoSuppress->eq("\x{4D0}", "\x{410}")); 45ok($objNoSuppress->eq("\x{4D3}", "\x{430}")); 46ok($objNoSuppress->eq("\x{4D2}", "\x{410}")); 47ok($objNoSuppress->eq("\x{4DB}", "\x{4D9}")); 48ok($objNoSuppress->eq("\x{4DA}", "\x{4D8}")); 49ok($objNoSuppress->eq("\x{453}", "\x{433}")); 50ok($objNoSuppress->eq("\x{403}", "\x{413}")); 51ok($objNoSuppress->eq("\x{450}", "\x{435}")); 52ok($objNoSuppress->eq("\x{400}", "\x{415}")); 53ok($objNoSuppress->eq("\x{4D7}", "\x{435}")); 54ok($objNoSuppress->eq("\x{4D6}", "\x{415}")); 55ok($objNoSuppress->eq("\x{451}", "\x{435}")); 56ok($objNoSuppress->eq("\x{401}", "\x{415}")); 57ok($objNoSuppress->eq("\x{4C2}", "\x{436}")); 58ok($objNoSuppress->eq("\x{4C1}", "\x{416}")); 59ok($objNoSuppress->eq("\x{4DD}", "\x{436}")); 60ok($objNoSuppress->eq("\x{4DC}", "\x{416}")); 61ok($objNoSuppress->eq("\x{4DF}", "\x{437}")); 62ok($objNoSuppress->eq("\x{4DE}", "\x{417}")); 63ok($objNoSuppress->eq("\x{45D}", "\x{438}")); 64ok($objNoSuppress->eq("\x{40D}", "\x{418}")); 65ok($objNoSuppress->eq("\x{4E5}", "\x{438}")); 66ok($objNoSuppress->eq("\x{4E4}", "\x{418}")); 67ok($objNoSuppress->eq("\x{4E3}", "\x{438}")); 68ok($objNoSuppress->eq("\x{4E2}", "\x{418}")); 69ok($objNoSuppress->eq("\x{457}", "\x{456}")); 70ok($objNoSuppress->eq("\x{407}", "\x{406}")); 71ok($objNoSuppress->eq("\x{45C}", "\x{43A}")); 72ok($objNoSuppress->eq("\x{40C}", "\x{41A}")); 73ok($objNoSuppress->eq("\x{4E7}", "\x{43E}")); 74ok($objNoSuppress->eq("\x{4E6}", "\x{41E}")); 75ok($objNoSuppress->eq("\x{4EB}", "\x{4E9}")); 76ok($objNoSuppress->eq("\x{4EA}", "\x{4E8}")); 77ok($objNoSuppress->eq("\x{45E}", "\x{443}")); 78ok($objNoSuppress->eq("\x{40E}", "\x{423}")); 79ok($objNoSuppress->eq("\x{4F1}", "\x{443}")); 80ok($objNoSuppress->eq("\x{4F0}", "\x{423}")); 81ok($objNoSuppress->eq("\x{4F3}", "\x{443}")); 82ok($objNoSuppress->eq("\x{4F2}", "\x{423}")); 83ok($objNoSuppress->eq("\x{4EF}", "\x{443}")); 84ok($objNoSuppress->eq("\x{4EE}", "\x{423}")); 85ok($objNoSuppress->eq("\x{4F5}", "\x{447}")); 86ok($objNoSuppress->eq("\x{4F4}", "\x{427}")); 87ok($objNoSuppress->eq("\x{4F9}", "\x{44B}")); 88ok($objNoSuppress->eq("\x{4F8}", "\x{42B}")); 89ok($objNoSuppress->eq("\x{4ED}", "\x{44D}")); 90ok($objNoSuppress->eq("\x{4EC}", "\x{42D}")); 91ok($objNoSuppress->eq("\x{477}", "\x{475}")); 92ok($objNoSuppress->eq("\x{476}", "\x{474}")); 93 94# 54 95 96$objNoSuppress->change(level => 2); 97 98ok($objNoSuppress->gt("\x{4D1}", "\x{430}")); 99ok($objNoSuppress->gt("\x{4D0}", "\x{410}")); 100ok($objNoSuppress->gt("\x{4D3}", "\x{430}")); 101ok($objNoSuppress->gt("\x{4D2}", "\x{410}")); 102ok($objNoSuppress->gt("\x{4DB}", "\x{4D9}")); 103ok($objNoSuppress->gt("\x{4DA}", "\x{4D8}")); 104ok($objNoSuppress->gt("\x{453}", "\x{433}")); 105ok($objNoSuppress->gt("\x{403}", "\x{413}")); 106ok($objNoSuppress->gt("\x{450}", "\x{435}")); 107ok($objNoSuppress->gt("\x{400}", "\x{415}")); 108ok($objNoSuppress->gt("\x{4D7}", "\x{435}")); 109ok($objNoSuppress->gt("\x{4D6}", "\x{415}")); 110ok($objNoSuppress->gt("\x{451}", "\x{435}")); 111ok($objNoSuppress->gt("\x{401}", "\x{415}")); 112ok($objNoSuppress->gt("\x{4C2}", "\x{436}")); 113ok($objNoSuppress->gt("\x{4C1}", "\x{416}")); 114ok($objNoSuppress->gt("\x{4DD}", "\x{436}")); 115ok($objNoSuppress->gt("\x{4DC}", "\x{416}")); 116ok($objNoSuppress->gt("\x{4DF}", "\x{437}")); 117ok($objNoSuppress->gt("\x{4DE}", "\x{417}")); 118ok($objNoSuppress->gt("\x{45D}", "\x{438}")); 119ok($objNoSuppress->gt("\x{40D}", "\x{418}")); 120ok($objNoSuppress->gt("\x{4E5}", "\x{438}")); 121ok($objNoSuppress->gt("\x{4E4}", "\x{418}")); 122ok($objNoSuppress->gt("\x{4E3}", "\x{438}")); 123ok($objNoSuppress->gt("\x{4E2}", "\x{418}")); 124ok($objNoSuppress->gt("\x{457}", "\x{456}")); 125ok($objNoSuppress->gt("\x{407}", "\x{406}")); 126ok($objNoSuppress->gt("\x{45C}", "\x{43A}")); 127ok($objNoSuppress->gt("\x{40C}", "\x{41A}")); 128ok($objNoSuppress->gt("\x{4E7}", "\x{43E}")); 129ok($objNoSuppress->gt("\x{4E6}", "\x{41E}")); 130ok($objNoSuppress->gt("\x{4EB}", "\x{4E9}")); 131ok($objNoSuppress->gt("\x{4EA}", "\x{4E8}")); 132ok($objNoSuppress->gt("\x{45E}", "\x{443}")); 133ok($objNoSuppress->gt("\x{40E}", "\x{423}")); 134ok($objNoSuppress->gt("\x{4F1}", "\x{443}")); 135ok($objNoSuppress->gt("\x{4F0}", "\x{423}")); 136ok($objNoSuppress->gt("\x{4F3}", "\x{443}")); 137ok($objNoSuppress->gt("\x{4F2}", "\x{423}")); 138ok($objNoSuppress->gt("\x{4EF}", "\x{443}")); 139ok($objNoSuppress->gt("\x{4EE}", "\x{423}")); 140ok($objNoSuppress->gt("\x{4F5}", "\x{447}")); 141ok($objNoSuppress->gt("\x{4F4}", "\x{427}")); 142ok($objNoSuppress->gt("\x{4F9}", "\x{44B}")); 143ok($objNoSuppress->gt("\x{4F8}", "\x{42B}")); 144ok($objNoSuppress->gt("\x{4ED}", "\x{44D}")); 145ok($objNoSuppress->gt("\x{4EC}", "\x{42D}")); 146ok($objNoSuppress->gt("\x{477}", "\x{475}")); 147ok($objNoSuppress->gt("\x{476}", "\x{474}")); 148 149# 104 150 151$objNoSuppress->change(level => 3); 152 153ok($objNoSuppress->eq("\x{439}", "\x{438}\x{306}")); # not suppressed 154ok($objNoSuppress->eq("\x{419}", "\x{418}\x{306}")); # not suppressed 155 156# 106 157 158ok($objNoSuppress->gt("\x{439}", "\x{438}\0\x{306}")); # not suppressed 159ok($objNoSuppress->gt("\x{419}", "\x{418}\0\x{306}")); # not suppressed 160 161# 108 162 163for my $i ("", "\0") { 164 ok($objNoSuppress->eq("\x{4D1}", "\x{430}$i\x{306}")); 165 ok($objNoSuppress->eq("\x{4D0}", "\x{410}$i\x{306}")); 166 ok($objNoSuppress->eq("\x{4D3}", "\x{430}$i\x{308}")); 167 ok($objNoSuppress->eq("\x{4D2}", "\x{410}$i\x{308}")); 168 ok($objNoSuppress->eq("\x{4DB}", "\x{4D9}$i\x{308}")); 169 ok($objNoSuppress->eq("\x{4DA}", "\x{4D8}$i\x{308}")); 170 ok($objNoSuppress->eq("\x{453}", "\x{433}$i\x{301}")); 171 ok($objNoSuppress->eq("\x{403}", "\x{413}$i\x{301}")); 172 ok($objNoSuppress->eq("\x{450}", "\x{435}$i\x{300}")); 173 ok($objNoSuppress->eq("\x{400}", "\x{415}$i\x{300}")); 174 ok($objNoSuppress->eq("\x{4D7}", "\x{435}$i\x{306}")); 175 ok($objNoSuppress->eq("\x{4D6}", "\x{415}$i\x{306}")); 176 ok($objNoSuppress->eq("\x{451}", "\x{435}$i\x{308}")); 177 ok($objNoSuppress->eq("\x{401}", "\x{415}$i\x{308}")); 178 ok($objNoSuppress->eq("\x{4C2}", "\x{436}$i\x{306}")); 179 ok($objNoSuppress->eq("\x{4C1}", "\x{416}$i\x{306}")); 180 ok($objNoSuppress->eq("\x{4DD}", "\x{436}$i\x{308}")); 181 ok($objNoSuppress->eq("\x{4DC}", "\x{416}$i\x{308}")); 182 ok($objNoSuppress->eq("\x{4DF}", "\x{437}$i\x{308}")); 183 ok($objNoSuppress->eq("\x{4DE}", "\x{417}$i\x{308}")); 184 ok($objNoSuppress->eq("\x{45D}", "\x{438}$i\x{300}")); 185 ok($objNoSuppress->eq("\x{40D}", "\x{418}$i\x{300}")); 186 ok($objNoSuppress->eq("\x{4E5}", "\x{438}$i\x{308}")); 187 ok($objNoSuppress->eq("\x{4E4}", "\x{418}$i\x{308}")); 188 ok($objNoSuppress->eq("\x{4E3}", "\x{438}$i\x{304}")); 189 ok($objNoSuppress->eq("\x{4E2}", "\x{418}$i\x{304}")); 190 ok($objNoSuppress->eq("\x{457}", "\x{456}$i\x{308}")); 191 ok($objNoSuppress->eq("\x{407}", "\x{406}$i\x{308}")); 192 ok($objNoSuppress->eq("\x{45C}", "\x{43A}$i\x{301}")); 193 ok($objNoSuppress->eq("\x{40C}", "\x{41A}$i\x{301}")); 194 ok($objNoSuppress->eq("\x{4E7}", "\x{43E}$i\x{308}")); 195 ok($objNoSuppress->eq("\x{4E6}", "\x{41E}$i\x{308}")); 196 ok($objNoSuppress->eq("\x{4EB}", "\x{4E9}$i\x{308}")); 197 ok($objNoSuppress->eq("\x{4EA}", "\x{4E8}$i\x{308}")); 198 ok($objNoSuppress->eq("\x{45E}", "\x{443}$i\x{306}")); 199 ok($objNoSuppress->eq("\x{40E}", "\x{423}$i\x{306}")); 200 ok($objNoSuppress->eq("\x{4F1}", "\x{443}$i\x{308}")); 201 ok($objNoSuppress->eq("\x{4F0}", "\x{423}$i\x{308}")); 202 ok($objNoSuppress->eq("\x{4F3}", "\x{443}$i\x{30B}")); 203 ok($objNoSuppress->eq("\x{4F2}", "\x{423}$i\x{30B}")); 204 ok($objNoSuppress->eq("\x{4EF}", "\x{443}$i\x{304}")); 205 ok($objNoSuppress->eq("\x{4EE}", "\x{423}$i\x{304}")); 206 ok($objNoSuppress->eq("\x{4F5}", "\x{447}$i\x{308}")); 207 ok($objNoSuppress->eq("\x{4F4}", "\x{427}$i\x{308}")); 208 ok($objNoSuppress->eq("\x{4F9}", "\x{44B}$i\x{308}")); 209 ok($objNoSuppress->eq("\x{4F8}", "\x{42B}$i\x{308}")); 210 ok($objNoSuppress->eq("\x{4ED}", "\x{44D}$i\x{308}")); 211 ok($objNoSuppress->eq("\x{4EC}", "\x{42D}$i\x{308}")); 212 ok($objNoSuppress->eq("\x{477}", "\x{475}$i\x{30F}")); 213 ok($objNoSuppress->eq("\x{476}", "\x{474}$i\x{30F}")); 214} 215 216# 208 217