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..41\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 $objPa = Unicode::Collate::Locale->
32    new(locale => 'PA', normalization => undef);
33
34my $default = Unicode::Collate::Locale->
35    new(normalization => undef);
36
37ok($objPa->getlocale, 'pa');
38ok($default->getlocale, 'default');
39
40$objPa->change(level => 1);
41
42ok($objPa->lt("\x{A5C}", "\x{A4D}"));
43ok($objPa->lt("\x{A4D}", "\x{A3E}"));
44
45# 5
46
47# RRA and Vowel Signs
48for my $o ($objPa, $default) {
49  ok($o->lt("\x{A5C}", "\x{A3E}"));
50  ok($o->lt("\x{A3E}", "\x{A3F}"));
51  ok($o->lt("\x{A3F}", "\x{A40}"));
52  ok($o->lt("\x{A40}", "\x{A41}"));
53  ok($o->lt("\x{A41}", "\x{A42}"));
54  ok($o->lt("\x{A42}", "\x{A47}"));
55  ok($o->lt("\x{A47}", "\x{A48}"));
56  ok($o->lt("\x{A48}", "\x{A4B}"));
57  ok($o->lt("\x{A4B}", "\x{A4C}"));
58}
59
60# 23
61
62ok($default->lt("\x{A4C}", "\x{A4D}"));
63
64# 24
65
66ok($objPa->eq("\x{A03}", ""));
67ok($objPa->eq("\x{A03}", "\x{A71}"));
68ok($objPa->eq("\x{A71}", "\x{A70}"));
69ok($objPa->eq("\x{A70}", "\x{A02}"));
70ok($objPa->eq("\x{A02}", "\x{A01}"));
71ok($objPa->eq("\x{A01}", "\x{A3C}"));
72
73# 30
74
75$objPa->change(level => 2);
76
77ok($objPa->lt("\x{A03}", "\x{A71}"));
78ok($objPa->lt("\x{A71}", "\x{A70}"));
79ok($objPa->lt("\x{A70}", "\x{A02}"));
80ok($objPa->lt("\x{A02}", "\x{A01}"));
81ok($objPa->lt("\x{A01}", "\x{A3C}"));
82
83# 35
84
85$objPa->change(level => 3);
86
87ok($objPa->eq("\x{A33}", "\x{A32}\x{A3C}"));
88ok($objPa->eq("\x{A36}", "\x{A38}\x{A3C}"));
89ok($objPa->eq("\x{A59}", "\x{A16}\x{A3C}"));
90ok($objPa->eq("\x{A5A}", "\x{A17}\x{A3C}"));
91ok($objPa->eq("\x{A5B}", "\x{A1C}\x{A3C}"));
92ok($objPa->eq("\x{A5E}", "\x{A2B}\x{A3C}"));
93
94# 41
95