Commit | Line | Data |
---|---|---|
68adb2b0 CBW |
1 | |
2 | BEGIN { | |
3 | unless ("A" eq pack('U', 0x41)) { | |
4 | print "1..0 # Unicode::Collate " . | |
5 | "cannot stringify a Unicode code point\n"; | |
6 | exit 0; | |
7 | } | |
8 | if ($ENV{PERL_CORE}) { | |
9 | chdir('t') if -d 't'; | |
10 | @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib); | |
11 | } | |
12 | } | |
13 | ||
14 | use Test; | |
15 | BEGIN { plan tests => 82 }; | |
16 | ||
64dc7822 CBW |
17 | use strict; |
18 | use warnings; | |
19 | use Unicode::Collate::Locale; | |
20 | ||
68adb2b0 CBW |
21 | ok(1); |
22 | ||
23 | ######################### | |
64dc7822 CBW |
24 | |
25 | my $uuml = pack 'U', 0xFC; | |
26 | my $Uuml = pack 'U', 0xDC; | |
27 | my $arng = pack 'U', 0xE5; | |
28 | my $Arng = pack 'U', 0xC5; | |
29 | my $auml = pack 'U', 0xE4; | |
30 | my $Auml = pack 'U', 0xC4; | |
31 | my $ae = pack 'U', 0xE6; | |
32 | my $AE = pack 'U', 0xC6; | |
33 | my $ouml = pack 'U', 0xF6; | |
34 | my $Ouml = pack 'U', 0xD6; | |
35 | my $ostk = pack 'U', 0xF8; | |
36 | my $Ostk = pack 'U', 0xD8; | |
37 | ||
38 | my $objFi = Unicode::Collate::Locale-> | |
39 | new(locale => 'FI', normalization => undef); | |
40 | ||
64dc7822 CBW |
41 | ok($objFi->getlocale, 'fi'); |
42 | ||
43 | $objFi->change(level => 1); | |
44 | ||
45 | ok($objFi->lt('z', $arng)); | |
46 | ok($objFi->lt($arng, $auml)); | |
47 | ok($objFi->lt($auml, $ouml)); | |
48 | ||
49 | # 5 | |
50 | ||
51 | ok($objFi->eq("d\x{335}", "\x{111}")); | |
52 | ok($objFi->eq("g\x{335}", "\x{1E5}")); | |
53 | ok($objFi->eq("n\x{335}", "\x{14B}")); | |
54 | ok($objFi->eq("t\x{335}", "\x{167}")); | |
55 | ok($objFi->eq("z\x{335}", "\x{292}")); | |
56 | ok($objFi->eq('v', 'w')); | |
57 | ok($objFi->eq('y', $uuml)); | |
58 | ok($objFi->eq($auml, $ae)); | |
59 | ok($objFi->eq($ouml, $ostk)); | |
60 | ||
61 | # 14 | |
62 | ||
63 | $objFi->change(level => 2); | |
64 | ||
65 | ok($objFi->lt("d\x{335}", "\x{111}")); | |
66 | ok($objFi->lt("g\x{335}", "\x{1E5}")); | |
67 | ok($objFi->lt("n\x{335}", "\x{14B}")); | |
68 | ok($objFi->lt("t\x{335}", "\x{167}")); | |
69 | ok($objFi->lt("z\x{335}", "\x{292}")); | |
70 | ok($objFi->lt('v', 'w')); | |
71 | ok($objFi->lt('y', $uuml)); | |
72 | ok($objFi->lt($auml, $ae)); | |
73 | ok($objFi->lt($ouml, $ostk)); | |
74 | ||
75 | # 23 | |
76 | ||
77 | ok($objFi->eq("\x{111}", "\x{110}")); | |
78 | ok($objFi->eq("\x{1E5}", "\x{1E4}")); | |
79 | ok($objFi->eq("\x{14B}", "\x{14A}")); | |
80 | ok($objFi->eq("\x{167}", "\x{166}")); | |
81 | ok($objFi->eq("\x{292}", "\x{1B7}")); | |
82 | ok($objFi->eq('w', 'W')); | |
83 | ok($objFi->eq($uuml, $Uuml)); | |
84 | ok($objFi->eq($arng, $Arng)); | |
85 | ok($objFi->eq($auml, $Auml)); | |
86 | ok($objFi->eq($ae, $AE)); | |
87 | ok($objFi->eq($AE, "\x{1D2D}")); | |
88 | ok($objFi->eq($ouml, $Ouml)); | |
89 | ok($objFi->eq($ostk, $Ostk)); | |
90 | ||
91 | # 36 | |
92 | ||
93 | $objFi->change(level => 3); | |
94 | ||
95 | ok($objFi->lt("\x{111}", "\x{110}")); | |
96 | ok($objFi->lt("\x{1E5}", "\x{1E4}")); | |
97 | ok($objFi->lt("\x{14B}", "\x{14A}")); | |
98 | ok($objFi->lt("\x{167}", "\x{166}")); | |
99 | ok($objFi->lt("\x{292}", "\x{1B7}")); | |
100 | ok($objFi->lt('w', 'W')); | |
101 | ok($objFi->lt($uuml, $Uuml)); | |
102 | ok($objFi->lt($arng, $Arng)); | |
103 | ok($objFi->lt($auml, $Auml)); | |
104 | ok($objFi->lt($ae, $AE)); | |
105 | ok($objFi->lt($AE, "\x{1D2D}")); | |
106 | ok($objFi->lt($ouml, $Ouml)); | |
107 | ok($objFi->lt($ostk, $Ostk)); | |
108 | ||
109 | # 49 | |
110 | ||
111 | ok($objFi->eq("u\x{308}", $uuml)); | |
112 | ok($objFi->eq("U\x{308}", $Uuml)); | |
1393fe00 CBW |
113 | ok($objFi->eq("\x{1EF}", "\x{292}\x{30C}")); |
114 | ok($objFi->eq("\x{1EE}", "\x{1B7}\x{30C}")); | |
115 | ok($objFi->eq("a\x{30A}", $arng)); | |
116 | ok($objFi->eq("A\x{30A}", $Arng)); | |
117 | ok($objFi->eq("a\x{308}", $auml)); | |
118 | ok($objFi->eq("A\x{308}", $Auml)); | |
119 | ok($objFi->eq("o\x{308}", $ouml)); | |
120 | ok($objFi->eq("O\x{308}", $Ouml)); | |
121 | ok($objFi->eq("o\x{338}", $ostk)); | |
122 | ok($objFi->eq("O\x{338}", $Ostk)); | |
123 | ||
124 | # 61 | |
125 | ||
f1a7422f CBW |
126 | ok($objFi->eq("u\x{308}\x{300}", "\x{1DC}")); |
127 | ok($objFi->eq("U\x{308}\x{300}", "\x{1DB}")); | |
128 | ok($objFi->eq("u\x{308}\x{301}", "\x{1D8}")); | |
129 | ok($objFi->eq("U\x{308}\x{301}", "\x{1D7}")); | |
130 | ok($objFi->eq("u\x{308}\x{304}", "\x{1D6}")); | |
131 | ok($objFi->eq("U\x{308}\x{304}", "\x{1D5}")); | |
132 | ok($objFi->eq("u\x{308}\x{30C}", "\x{1DA}")); | |
133 | ok($objFi->eq("U\x{308}\x{30C}", "\x{1D9}")); | |
64dc7822 CBW |
134 | ok($objFi->eq("A\x{30A}", "\x{212B}")); |
135 | ok($objFi->eq("a\x{30A}\x{301}", "\x{1FB}")); | |
136 | ok($objFi->eq("A\x{30A}\x{301}", "\x{1FA}")); | |
f1a7422f CBW |
137 | ok($objFi->eq("a\x{308}\x{304}", "\x{1DF}")); |
138 | ok($objFi->eq("A\x{308}\x{304}", "\x{1DE}")); | |
64dc7822 CBW |
139 | ok($objFi->eq("\x{1FD}", "$ae\x{301}")); |
140 | ok($objFi->eq("\x{1FC}", "$AE\x{301}")); | |
141 | ok($objFi->eq("\x{1E3}", "$ae\x{304}")); | |
142 | ok($objFi->eq("\x{1E2}", "$AE\x{304}")); | |
f1a7422f CBW |
143 | ok($objFi->eq("o\x{308}\x{304}", "\x{22B}")); |
144 | ok($objFi->eq("O\x{308}\x{304}", "\x{22A}")); | |
64dc7822 CBW |
145 | ok($objFi->eq("o\x{338}\x{301}", "\x{1FF}")); |
146 | ok($objFi->eq("O\x{338}\x{301}", "\x{1FE}")); | |
147 | ||
f1a7422f | 148 | # 82 |