Commit | Line | Data |
---|---|---|
456a1446 CBW |
1 | #!perl |
2 | use strict; | |
3 | use warnings; | |
4 | use Unicode::Collate::Locale; | |
5 | ||
6 | use Test; | |
7 | plan tests => 83; | |
8 | ||
9 | my $eth = pack 'U', 0xF0; | |
10 | my $ETH = pack 'U', 0xD0; | |
11 | my $thrn = pack 'U', 0xFE; | |
12 | my $THRN = pack 'U', 0xDE; | |
13 | my $uuml = pack 'U', 0xFC; | |
14 | my $Uuml = pack 'U', 0xDC; | |
15 | my $ae = pack 'U', 0xE6; | |
16 | my $AE = pack 'U', 0xC6; | |
17 | my $auml = pack 'U', 0xE4; | |
18 | my $Auml = pack 'U', 0xC4; | |
19 | my $ostk = pack 'U', 0xF8; | |
20 | my $Ostk = pack 'U', 0xD8; | |
21 | my $ouml = pack 'U', 0xF6; | |
22 | my $Ouml = pack 'U', 0xD6; | |
23 | my $arng = pack 'U', 0xE5; | |
24 | my $Arng = pack 'U', 0xC5; | |
25 | ||
26 | my $objNn = Unicode::Collate::Locale-> | |
27 | new(locale => 'NN', normalization => undef); | |
28 | ||
29 | ok(1); | |
30 | ok($objNn->getlocale, 'nn'); | |
31 | ||
32 | $objNn->change(level => 1); | |
33 | ||
34 | ok($objNn->lt("z", $ae)); | |
35 | ok($objNn->lt($ae, $ostk)); | |
36 | ok($objNn->lt($ostk, $arng)); | |
6484f676 | 37 | ok($objNn->lt($arng, "\x{292}")); |
456a1446 CBW |
38 | |
39 | # 6 | |
40 | ||
41 | ok($objNn->eq('d', "\x{111}")); | |
42 | ok($objNn->eq("\x{111}", $eth)); | |
43 | ok($objNn->eq('y', $uuml)); | |
6484f676 | 44 | ok($objNn->eq($uuml, "\x{171}")); |
456a1446 CBW |
45 | |
46 | ok($objNn->eq($ae, $auml)); | |
47 | ok($objNn->eq($auml, "\x{119}")); | |
48 | ok($objNn->eq($ostk, $ouml)); | |
49 | ok($objNn->eq($ouml, "\x{151}")); | |
50 | ok($objNn->eq("\x{151}", "\x{153}")); | |
51 | ||
52 | # 15 | |
53 | ||
54 | $objNn->change(level => 2); | |
55 | ||
56 | ok($objNn->lt('d', "\x{111}")); | |
57 | ok($objNn->lt("\x{111}", $eth)); | |
58 | ok($objNn->lt('y', $uuml)); | |
6484f676 | 59 | ok($objNn->lt($uuml, "\x{171}")); |
456a1446 CBW |
60 | |
61 | ok($objNn->lt($ae, $auml)); | |
62 | ok($objNn->lt($auml, "\x{119}")); | |
63 | ok($objNn->lt($ostk, $ouml)); | |
64 | ok($objNn->lt($ouml, "\x{151}")); | |
65 | ok($objNn->lt("\x{151}", "\x{153}")); | |
66 | ||
67 | # 24 | |
68 | ||
69 | ok($objNn->eq("\x{111}", "\x{110}")); | |
70 | ok($objNn->eq($eth, $ETH)); | |
71 | ok($objNn->eq('th', $thrn)); | |
72 | ok($objNn->eq($thrn, 'TH')); | |
73 | ok($objNn->eq('TH', $THRN)); | |
74 | ok($objNn->eq($uuml, $Uuml)); | |
75 | ok($objNn->eq("\x{171}", "\x{170}")); | |
76 | ok($objNn->eq($ae, $AE)); | |
77 | ok($objNn->eq($AE, "\x{1D2D}")); | |
78 | ok($objNn->eq($auml, $Auml)); | |
79 | ok($objNn->eq("\x{119}", "\x{118}")); | |
80 | ok($objNn->eq($ostk, $Ostk)); | |
81 | ok($objNn->eq($ouml, $Ouml)); | |
82 | ok($objNn->eq("\x{151}", "\x{150}")); | |
83 | ok($objNn->eq("\x{153}", "\x{152}")); | |
84 | ok($objNn->eq($arng, $Arng)); | |
85 | ||
86 | # 40 | |
87 | ||
88 | $objNn->change(level => 3); | |
89 | ||
90 | ok($objNn->lt("\x{111}", "\x{110}")); | |
91 | ok($objNn->lt($eth, $ETH)); | |
92 | ok($objNn->lt('th', $thrn)); | |
93 | ok($objNn->lt($thrn, 'TH')); | |
94 | ok($objNn->lt('TH', $THRN)); | |
95 | ok($objNn->lt($uuml, $Uuml)); | |
96 | ok($objNn->lt("\x{171}", "\x{170}")); | |
97 | ok($objNn->lt($ae, $AE)); | |
98 | ok($objNn->lt($AE, "\x{1D2D}")); | |
99 | ok($objNn->lt($auml, $Auml)); | |
100 | ok($objNn->lt("\x{119}", "\x{118}")); | |
101 | ok($objNn->lt($ostk, $Ostk)); | |
102 | ok($objNn->lt($ouml, $Ouml)); | |
103 | ok($objNn->lt("\x{151}", "\x{150}")); | |
104 | ok($objNn->lt("\x{153}", "\x{152}")); | |
105 | ok($objNn->lt($arng, $Arng)); | |
106 | ||
107 | # 56 | |
108 | ||
109 | ok($objNn->eq("d\x{335}", "\x{111}")); | |
110 | ok($objNn->eq("D\x{335}", "\x{110}")); | |
111 | ok($objNn->eq("u\x{308}", $uuml)); | |
112 | ok($objNn->eq("U\x{308}", $Uuml)); | |
113 | ok($objNn->eq("u\x{30B}", "\x{171}")); | |
114 | ok($objNn->eq("U\x{30B}", "\x{170}")); | |
115 | ok($objNn->eq("\x{1FD}", "$ae\x{301}")); | |
116 | ok($objNn->eq("\x{1FC}", "$AE\x{301}")); | |
117 | ok($objNn->eq("\x{1E3}", "$ae\x{304}")); | |
118 | ok($objNn->eq("\x{1E2}", "$AE\x{304}")); | |
119 | ||
120 | # 66 | |
121 | ||
122 | ok($objNn->eq("a\x{308}", $auml)); | |
123 | ok($objNn->eq("A\x{308}", $Auml)); | |
124 | ok($objNn->eq("e\x{328}", "\x{119}")); | |
125 | ok($objNn->eq("E\x{328}", "\x{118}")); | |
126 | ok($objNn->eq("o\x{338}", $ostk)); | |
127 | ok($objNn->eq("O\x{338}", $Ostk)); | |
128 | ok($objNn->eq("o\x{338}\x{301}", "\x{1FF}")); | |
129 | ok($objNn->eq("O\x{338}\x{301}", "\x{1FE}")); | |
130 | ok($objNn->eq("o\x{308}", $ouml)); | |
131 | ok($objNn->eq("O\x{308}", $Ouml)); | |
132 | ok($objNn->eq("o\x{30B}", "\x{151}")); | |
133 | ok($objNn->eq("O\x{30B}", "\x{150}")); | |
134 | ok($objNn->eq("a\x{30A}", $arng)); | |
135 | ok($objNn->eq("A\x{30A}", $Arng)); | |
136 | ok($objNn->eq("A\x{30A}", "\x{212B}")); | |
137 | ok($objNn->eq("a\x{30A}\x{301}", "\x{1FB}")); | |
138 | ok($objNn->eq("A\x{30A}\x{301}", "\x{1FA}")); | |
139 | ||
140 | # 83 |