1898184e3Ssthen
2898184e3SsthenBEGIN {
3898184e3Ssthen    if ($ENV{PERL_CORE}) {
4898184e3Ssthen	chdir('t') if -d 't';
5898184e3Ssthen	@INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
6898184e3Ssthen    }
7898184e3Ssthen}
8898184e3Ssthen
9898184e3Ssthenuse strict;
10898184e3Ssthenuse warnings;
1191f110e0Safresh1BEGIN { $| = 1; print "1..12\n"; }
12898184e3Ssthenmy $count = 0;
13898184e3Ssthensub ok ($;$) {
14898184e3Ssthen    my $p = my $r = shift;
15898184e3Ssthen    if (@_) {
16898184e3Ssthen	my $x = shift;
17898184e3Ssthen	$p = !defined $x ? !defined $r : !defined $r ? 0 : $r eq $x;
18898184e3Ssthen    }
19898184e3Ssthen    print $p ? "ok" : "not ok", ' ', ++$count, "\n";
20898184e3Ssthen}
21898184e3Ssthen
22898184e3Ssthenuse Unicode::Collate::Locale;
23898184e3Ssthen
24898184e3Ssthenok(1);
25898184e3Ssthen
26*256a93a4Safresh1sub _pack_U   { Unicode::Collate::pack_U(@_) }
27*256a93a4Safresh1sub _unpack_U { Unicode::Collate::unpack_U(@_) }
28*256a93a4Safresh1
29898184e3Ssthen#########################
30898184e3Ssthen
31898184e3Ssthenmy $objTe = Unicode::Collate::Locale->
32898184e3Ssthen    new(locale => 'TE', normalization => undef);
33898184e3Ssthen
34898184e3Ssthenok($objTe->getlocale, 'te');
35898184e3Ssthen
36898184e3Ssthen$objTe->change(level => 1);
37898184e3Ssthen
3891f110e0Safresh1for my $h (0, 1) {
3991f110e0Safresh1    no warnings 'utf8';
40*256a93a4Safresh1    my $t = $h ? _pack_U(0xFFFF) : 'z';
41898184e3Ssthen
4291f110e0Safresh1    ok($objTe->lt("\x{C13}$t", "\x{C14}"));
4391f110e0Safresh1    ok($objTe->lt("\x{C14}$t", "\x{C01}"));
4491f110e0Safresh1    ok($objTe->lt("\x{C01}$t", "\x{C02}"));
4591f110e0Safresh1    ok($objTe->lt("\x{C02}$t", "\x{C03}"));
4691f110e0Safresh1    ok($objTe->lt("\x{C03}$t", "\x{C15}"));
4791f110e0Safresh1}
485759b3d2Safresh1
495759b3d2Safresh1# 12
50