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 $objNb = Unicode::Collate::Locale->
54    new(locale => 'NB', normalization => undef);
55
56ok($objNb->getlocale, 'nb');
57
58$objNb->change(level => 1);
59
60ok($objNb->lt('z', $ae));
61ok($objNb->lt($ae, $ostk));
62ok($objNb->lt($ostk, $arng));
63ok($objNb->lt($arng, "\x{1C0}"));
64
65# 6
66
67ok($objNb->eq('d', "\x{111}"));
68ok($objNb->eq("\x{111}", $eth));
69ok($objNb->eq('y', $uuml));
70ok($objNb->eq($uuml, "\x{171}"));
71ok($objNb->eq($ae, $auml));
72ok($objNb->eq($auml, "\x{119}"));
73ok($objNb->eq($ostk, $ouml));
74ok($objNb->eq($ouml, "\x{151}"));
75ok($objNb->eq("\x{151}", "\x{153}"));
76ok($objNb->eq($arng, 'aa'));
77
78# 16
79
80$objNb->change(level => 2);
81
82ok($objNb->lt('d', "\x{111}"));
83ok($objNb->lt("\x{111}", $eth));
84ok($objNb->lt('y', $uuml));
85ok($objNb->lt($uuml, "\x{171}"));
86ok($objNb->lt($ae, $auml));
87ok($objNb->lt($auml, "\x{119}"));
88ok($objNb->lt($ostk, $ouml));
89ok($objNb->lt($ouml, "\x{151}"));
90ok($objNb->lt("\x{151}", "\x{153}"));
91ok($objNb->lt($arng, 'aa'));
92
93# 26
94
95ok($objNb->eq("\x{111}", "\x{110}"));
96ok($objNb->eq($eth,  $ETH));
97ok($objNb->eq('th',  $thrn));
98ok($objNb->eq($thrn, 'TH'));
99ok($objNb->eq('TH',  $THRN));
100ok($objNb->eq($uuml, $Uuml));
101ok($objNb->eq("\x{171}", "\x{170}"));
102ok($objNb->eq($ae,   $AE));
103ok($objNb->eq($AE, "\x{1D2D}"));
104ok($objNb->eq($auml, $Auml));
105ok($objNb->eq("\x{119}", "\x{118}"));
106ok($objNb->eq($ostk, $Ostk));
107ok($objNb->eq($ouml, $Ouml));
108ok($objNb->eq("\x{151}", "\x{150}"));
109ok($objNb->eq("\x{153}", "\x{152}"));
110ok($objNb->eq($arng, $Arng));
111ok($objNb->eq('aa', 'Aa'));
112ok($objNb->eq('Aa', 'AA'));
113
114# 44
115
116$objNb->change(level => 3);
117
118ok($objNb->lt("\x{111}", "\x{110}"));
119ok($objNb->lt($eth,  $ETH));
120ok($objNb->lt('th',  $thrn));
121ok($objNb->lt($thrn, 'TH'));
122ok($objNb->lt('TH',  $THRN));
123ok($objNb->lt($uuml, $Uuml));
124ok($objNb->lt("\x{171}", "\x{170}"));
125ok($objNb->lt($ae,   $AE));
126ok($objNb->lt($AE, "\x{1D2D}"));
127ok($objNb->lt($auml, $Auml));
128ok($objNb->lt("\x{119}", "\x{118}"));
129ok($objNb->lt($ostk, $Ostk));
130ok($objNb->lt($ouml, $Ouml));
131ok($objNb->lt("\x{151}", "\x{150}"));
132ok($objNb->lt("\x{153}", "\x{152}"));
133ok($objNb->lt($arng, $Arng));
134ok($objNb->lt('aa', 'Aa'));
135ok($objNb->lt('Aa', 'AA'));
136
137# 62
138
139ok($objNb->eq("d\x{335}", "\x{111}"));
140ok($objNb->eq("D\x{335}", "\x{110}"));
141ok($objNb->eq("u\x{308}", $uuml));
142ok($objNb->eq("U\x{308}", $Uuml));
143ok($objNb->eq("u\x{30B}", "\x{171}"));
144ok($objNb->eq("U\x{30B}", "\x{170}"));
145ok($objNb->eq("a\x{308}", $auml));
146ok($objNb->eq("A\x{308}", $Auml));
147ok($objNb->eq("e\x{328}", "\x{119}"));
148ok($objNb->eq("E\x{328}", "\x{118}"));
149ok($objNb->eq("o\x{338}", $ostk));
150ok($objNb->eq("O\x{338}", $Ostk));
151ok($objNb->eq("o\x{308}", $ouml));
152ok($objNb->eq("O\x{308}", $Ouml));
153ok($objNb->eq("o\x{30B}", "\x{151}"));
154ok($objNb->eq("O\x{30B}", "\x{150}"));
155ok($objNb->eq("a\x{30A}", $arng));
156ok($objNb->eq("A\x{30A}", $Arng));
157
158# 80
159
160ok($objNb->eq("u\x{308}\x{300}", "\x{1DC}"));
161ok($objNb->eq("U\x{308}\x{300}", "\x{1DB}"));
162ok($objNb->eq("u\x{308}\x{301}", "\x{1D8}"));
163ok($objNb->eq("U\x{308}\x{301}", "\x{1D7}"));
164ok($objNb->eq("u\x{308}\x{304}", "\x{1D6}"));
165ok($objNb->eq("U\x{308}\x{304}", "\x{1D5}"));
166ok($objNb->eq("u\x{308}\x{30C}", "\x{1DA}"));
167ok($objNb->eq("U\x{308}\x{30C}", "\x{1D9}"));
168ok($objNb->eq("\x{1FD}", "$ae\x{301}"));
169ok($objNb->eq("\x{1FC}", "$AE\x{301}"));
170ok($objNb->eq("\x{1E3}", "$ae\x{304}"));
171ok($objNb->eq("\x{1E2}", "$AE\x{304}"));
172ok($objNb->eq("a\x{308}\x{304}", "\x{1DF}"));
173ok($objNb->eq("A\x{308}\x{304}", "\x{1DE}"));
174ok($objNb->eq("o\x{338}\x{301}", "\x{1FF}"));
175ok($objNb->eq("O\x{338}\x{301}", "\x{1FE}"));
176ok($objNb->eq("o\x{308}\x{304}", "\x{22B}"));
177ok($objNb->eq("O\x{308}\x{304}", "\x{22A}"));
178ok($objNb->eq("A\x{30A}", "\x{212B}"));
179ok($objNb->eq("a\x{30A}\x{301}", "\x{1FB}"));
180ok($objNb->eq("A\x{30A}\x{301}", "\x{1FA}"));
181
182# 101
183