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