1
2BEGIN {
3    unless ('A' eq pack('U', 0x41)) {
4	print "1..0 # Unicode::Collate cannot pack a Unicode code point\n";
5	exit 0;
6    }
7    unless (0x41 == unpack('U', 'A')) {
8	print "1..0 # Unicode::Collate cannot get a Unicode code point\n";
9	exit 0;
10    }
11    if ($ENV{PERL_CORE}) {
12	chdir('t') if -d 't';
13	@INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
14    }
15}
16
17use strict;
18use warnings;
19BEGIN { $| = 1; print "1..101\n"; }
20my $count = 0;
21sub ok ($;$) {
22    my $p = my $r = shift;
23    if (@_) {
24	my $x = shift;
25	$p = !defined $x ? !defined $r : !defined $r ? 0 : $r eq $x;
26    }
27    print $p ? "ok" : "not ok", ' ', ++$count, "\n";
28}
29
30use Unicode::Collate::Locale;
31
32ok(1);
33
34#########################
35
36my $eth  = pack 'U', 0xF0;
37my $ETH  = pack 'U', 0xD0;
38my $thrn = pack 'U', 0xFE;
39my $THRN = pack 'U', 0xDE;
40my $uuml = pack 'U', 0xFC;
41my $Uuml = pack 'U', 0xDC;
42my $ae   = pack 'U', 0xE6;
43my $AE   = pack 'U', 0xC6;
44my $auml = pack 'U', 0xE4;
45my $Auml = pack 'U', 0xC4;
46my $ostk = pack 'U', 0xF8;
47my $Ostk = pack 'U', 0xD8;
48my $ouml = pack 'U', 0xF6;
49my $Ouml = pack 'U', 0xD6;
50my $arng = pack 'U', 0xE5;
51my $Arng = pack 'U', 0xC5;
52
53my $objKl = Unicode::Collate::Locale->
54    new(locale => 'KL', normalization => undef);
55
56ok($objKl->getlocale, 'kl');
57
58$objKl->change(level => 1);
59
60ok($objKl->lt('z', $ae));
61ok($objKl->lt($ae, $ostk));
62ok($objKl->lt($ostk, $arng));
63ok($objKl->lt($arng, "\x{1C0}"));
64
65# 6
66
67ok($objKl->eq('d', "\x{111}"));
68ok($objKl->eq("\x{111}", $eth));
69ok($objKl->eq('q', "\x{138}"));
70ok($objKl->eq('q', "K'"));
71ok($objKl->eq('y', $uuml));
72ok($objKl->eq($uuml, "\x{171}"));
73ok($objKl->eq($ae, $auml));
74ok($objKl->eq($auml, "\x{119}"));
75ok($objKl->eq($ostk, $ouml));
76ok($objKl->eq($ouml, "\x{151}"));
77ok($objKl->eq("\x{151}", "\x{153}"));
78
79# 17
80
81$objKl->change(level => 2);
82
83ok($objKl->lt('d', "\x{111}"));
84ok($objKl->lt("\x{111}", $eth));
85ok($objKl->lt('q', "\x{138}"));
86ok($objKl->lt('q', "K'"));
87ok($objKl->lt('y', $uuml));
88ok($objKl->lt($uuml, "\x{171}"));
89ok($objKl->lt($ae, $auml));
90ok($objKl->lt($auml, "\x{119}"));
91ok($objKl->lt($ostk, $ouml));
92ok($objKl->lt($ouml, "\x{151}"));
93ok($objKl->lt("\x{151}", "\x{153}"));
94
95# 28
96
97ok($objKl->eq("\x{111}", "\x{110}"));
98ok($objKl->eq($eth,  $ETH));
99ok($objKl->eq("\x{138}", "K'"));
100ok($objKl->eq('th',  $thrn));
101ok($objKl->eq($thrn, 'TH'));
102ok($objKl->eq('TH',  $THRN));
103ok($objKl->eq($uuml, $Uuml));
104ok($objKl->eq("\x{171}", "\x{170}"));
105ok($objKl->eq($ae,   $AE));
106ok($objKl->eq($AE, "\x{1D2D}"));
107ok($objKl->eq($auml, $Auml));
108ok($objKl->eq("\x{119}", "\x{118}"));
109ok($objKl->eq($ostk, $Ostk));
110ok($objKl->eq($ouml, $Ouml));
111ok($objKl->eq("\x{151}", "\x{150}"));
112ok($objKl->eq("\x{153}", "\x{152}"));
113ok($objKl->eq($arng, $Arng));
114
115# 45
116
117$objKl->change(level => 3);
118
119ok($objKl->lt("\x{111}", "\x{110}"));
120ok($objKl->lt($eth,  $ETH));
121ok($objKl->lt("\x{138}", "K'"));
122ok($objKl->lt('th',  $thrn));
123ok($objKl->lt($thrn, 'TH'));
124ok($objKl->lt('TH',  $THRN));
125ok($objKl->lt($uuml, $Uuml));
126ok($objKl->lt("\x{171}", "\x{170}"));
127ok($objKl->lt($ae,   $AE));
128ok($objKl->lt($AE, "\x{1D2D}"));
129ok($objKl->lt($auml, $Auml));
130ok($objKl->lt("\x{119}", "\x{118}"));
131ok($objKl->lt($ostk, $Ostk));
132ok($objKl->lt($ouml, $Ouml));
133ok($objKl->lt("\x{151}", "\x{150}"));
134ok($objKl->lt("\x{153}", "\x{152}"));
135ok($objKl->lt($arng, $Arng));
136
137# 62
138
139ok($objKl->eq("d\x{335}", "\x{111}"));
140ok($objKl->eq("D\x{335}", "\x{110}"));
141ok($objKl->eq("u\x{308}", $uuml));
142ok($objKl->eq("U\x{308}", $Uuml));
143ok($objKl->eq("u\x{30B}", "\x{171}"));
144ok($objKl->eq("U\x{30B}", "\x{170}"));
145ok($objKl->eq("a\x{308}", $auml));
146ok($objKl->eq("A\x{308}", $Auml));
147ok($objKl->eq("e\x{328}", "\x{119}"));
148ok($objKl->eq("E\x{328}", "\x{118}"));
149ok($objKl->eq("o\x{338}", $ostk));
150ok($objKl->eq("O\x{338}", $Ostk));
151ok($objKl->eq("o\x{308}", $ouml));
152ok($objKl->eq("O\x{308}", $Ouml));
153ok($objKl->eq("o\x{30B}", "\x{151}"));
154ok($objKl->eq("O\x{30B}", "\x{150}"));
155ok($objKl->eq("a\x{30A}", $arng));
156ok($objKl->eq("A\x{30A}", $Arng));
157
158# 80
159
160ok($objKl->eq("u\x{308}\x{300}", "\x{1DC}"));
161ok($objKl->eq("U\x{308}\x{300}", "\x{1DB}"));
162ok($objKl->eq("u\x{308}\x{301}", "\x{1D8}"));
163ok($objKl->eq("U\x{308}\x{301}", "\x{1D7}"));
164ok($objKl->eq("u\x{308}\x{304}", "\x{1D6}"));
165ok($objKl->eq("U\x{308}\x{304}", "\x{1D5}"));
166ok($objKl->eq("u\x{308}\x{30C}", "\x{1DA}"));
167ok($objKl->eq("U\x{308}\x{30C}", "\x{1D9}"));
168ok($objKl->eq("\x{1FD}", "$ae\x{301}"));
169ok($objKl->eq("\x{1FC}", "$AE\x{301}"));
170ok($objKl->eq("\x{1E3}", "$ae\x{304}"));
171ok($objKl->eq("\x{1E2}", "$AE\x{304}"));
172ok($objKl->eq("a\x{308}\x{304}", "\x{1DF}"));
173ok($objKl->eq("A\x{308}\x{304}", "\x{1DE}"));
174ok($objKl->eq("o\x{338}\x{301}", "\x{1FF}"));
175ok($objKl->eq("O\x{338}\x{301}", "\x{1FE}"));
176ok($objKl->eq("o\x{308}\x{304}", "\x{22B}"));
177ok($objKl->eq("O\x{308}\x{304}", "\x{22A}"));
178ok($objKl->eq("A\x{30A}", "\x{212B}"));
179ok($objKl->eq("a\x{30A}\x{301}", "\x{1FB}"));
180ok($objKl->eq("A\x{30A}\x{301}", "\x{1FA}"));
181
182# 101
183