| |
| 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..52\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 $Kssa = "\x{B95}\x{BCD}\x{BB7}"; |
| |
| my $objTa = Unicode::Collate::Locale-> |
| new(locale => 'TA', normalization => undef); |
| |
| ok($objTa->getlocale, 'ta'); |
| |
| $objTa->change(level => 1); |
| |
| ok($objTa->lt("\x{B94}", "\x{B82}")); |
| ok($objTa->gt("\x{B83}", "\x{B82}")); |
| ok($objTa->lt("\x{B83}", "\x{B95}\x{BCD}")); |
| ok($objTa->gt("\x{B95}", "\x{B95}\x{BCD}")); |
| ok($objTa->lt("\x{B95}", "\x{B99}\x{BCD}")); |
| ok($objTa->gt("\x{B99}", "\x{B99}\x{BCD}")); |
| ok($objTa->lt("\x{B99}", "\x{B9A}\x{BCD}")); |
| ok($objTa->gt("\x{B9A}", "\x{B9A}\x{BCD}")); |
| ok($objTa->lt("\x{B9A}", "\x{B9E}\x{BCD}")); |
| ok($objTa->gt("\x{B9E}", "\x{B9E}\x{BCD}")); |
| ok($objTa->lt("\x{B9E}", "\x{B9F}\x{BCD}")); |
| ok($objTa->gt("\x{B9F}", "\x{B9F}\x{BCD}")); |
| ok($objTa->lt("\x{B9F}", "\x{BA3}\x{BCD}")); |
| ok($objTa->gt("\x{BA3}", "\x{BA3}\x{BCD}")); |
| ok($objTa->lt("\x{BA3}", "\x{BA4}\x{BCD}")); |
| ok($objTa->gt("\x{BA4}", "\x{BA4}\x{BCD}")); |
| ok($objTa->lt("\x{BA4}", "\x{BA8}\x{BCD}")); |
| ok($objTa->gt("\x{BA8}", "\x{BA8}\x{BCD}")); |
| ok($objTa->lt("\x{BA8}", "\x{BAA}\x{BCD}")); |
| ok($objTa->gt("\x{BAA}", "\x{BAA}\x{BCD}")); |
| ok($objTa->lt("\x{BAA}", "\x{BAE}\x{BCD}")); |
| ok($objTa->gt("\x{BAE}", "\x{BAE}\x{BCD}")); |
| ok($objTa->lt("\x{BAE}", "\x{BAF}\x{BCD}")); |
| ok($objTa->gt("\x{BAF}", "\x{BAF}\x{BCD}")); |
| ok($objTa->lt("\x{BAF}", "\x{BB0}\x{BCD}")); |
| ok($objTa->gt("\x{BB0}", "\x{BB0}\x{BCD}")); |
| ok($objTa->lt("\x{BB0}", "\x{BB2}\x{BCD}")); |
| ok($objTa->gt("\x{BB2}", "\x{BB2}\x{BCD}")); |
| ok($objTa->lt("\x{BB2}", "\x{BB5}\x{BCD}")); |
| ok($objTa->gt("\x{BB5}", "\x{BB5}\x{BCD}")); |
| ok($objTa->lt("\x{BB5}", "\x{BB4}\x{BCD}")); |
| ok($objTa->gt("\x{BB4}", "\x{BB4}\x{BCD}")); |
| ok($objTa->lt("\x{BB4}", "\x{BB3}\x{BCD}")); |
| ok($objTa->gt("\x{BB3}", "\x{BB3}\x{BCD}")); |
| ok($objTa->lt("\x{BB3}", "\x{BB1}\x{BCD}")); |
| ok($objTa->gt("\x{BB1}", "\x{BB1}\x{BCD}")); |
| ok($objTa->lt("\x{BB1}", "\x{BA9}\x{BCD}")); |
| ok($objTa->gt("\x{BA9}", "\x{BA9}\x{BCD}")); |
| ok($objTa->lt("\x{BA9}", "\x{B9C}\x{BCD}")); |
| ok($objTa->gt("\x{B9C}", "\x{B9C}\x{BCD}")); |
| ok($objTa->lt("\x{B9C}", "\x{BB6}\x{BCD}")); |
| ok($objTa->gt("\x{BB6}", "\x{BB6}\x{BCD}")); |
| ok($objTa->lt("\x{BB6}", "\x{BB7}\x{BCD}")); |
| ok($objTa->gt("\x{BB7}", "\x{BB7}\x{BCD}")); |
| ok($objTa->lt("\x{BB7}", "\x{BB8}\x{BCD}")); |
| ok($objTa->gt("\x{BB8}", "\x{BB8}\x{BCD}")); |
| ok($objTa->lt("\x{BB8}", "\x{BB9}\x{BCD}")); |
| ok($objTa->gt("\x{BB9}", "\x{BB9}\x{BCD}")); |
| ok($objTa->lt("\x{BB9}", "${Kssa}\x{BCD}")); |
| ok($objTa->gt("${Kssa}", "${Kssa}\x{BCD}")); |
| |
| # 52 |