1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
|
BEGIN {
unless ('A' eq pack('U', 0x41)) {
print "1..0 # Unicode::Collate cannot pack a Unicode code point\n";
exit 0;
}
unless (0x41 == unpack('U', 'A')) {
print "1..0 # Unicode::Collate cannot get a Unicode code point\n";
exit 0;
}
if ($ENV{PERL_CORE}) {
chdir('t') if -d 't';
@INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
}
}
use strict;
use warnings;
BEGIN { $| = 1; print "1..78\n"; }
my $count = 0;
sub ok ($;$) {
my $p = my $r = shift;
if (@_) {
my $x = shift;
$p = !defined $x ? !defined $r : !defined $r ? 0 : $r eq $x;
}
print $p ? "ok" : "not ok", ' ', ++$count, "\n";
}
use Unicode::Collate::Locale;
ok(1);
#########################
my $objWae = Unicode::Collate::Locale->
new(locale => 'WAE', normalization => undef);
ok($objWae->getlocale, 'wae');
$objWae->change(level => 1);
ok($objWae->lt("aa", "a9"));
ok($objWae->gt("aA", "a9"));
ok($objWae->gt("Aa", "a9"));
ok($objWae->gt("AA", "a9"));
ok($objWae->lt("ee", "e9"));
ok($objWae->gt("eE", "e9"));
ok($objWae->gt("Ee", "e9"));
ok($objWae->gt("EE", "e9"));
ok($objWae->lt("ii", "i9"));
ok($objWae->gt("iI", "i9"));
ok($objWae->gt("Ii", "i9"));
ok($objWae->gt("II", "i9"));
ok($objWae->lt("oo", "o9"));
ok($objWae->gt("oO", "o9"));
ok($objWae->gt("Oo", "o9"));
ok($objWae->gt("OO", "o9"));
ok($objWae->lt("uu", "u9"));
ok($objWae->gt("uU", "u9"));
ok($objWae->gt("Uu", "u9"));
ok($objWae->gt("UU", "u9"));
# 22
ok($objWae->lt("ch", "c9"));
ok($objWae->gt("cH", "c9"));
ok($objWae->gt("Ch", "c9"));
ok($objWae->gt("CH", "c9"));
ok($objWae->lt("sch", "s9"));
ok($objWae->gt("scH", "s9"));
ok($objWae->gt("sCh", "s9"));
ok($objWae->gt("sCH", "s9"));
ok($objWae->gt("Sch", "s9"));
ok($objWae->gt("ScH", "s9"));
ok($objWae->gt("SCh", "s9"));
ok($objWae->gt("SCH", "s9"));
# 34
ok($objWae->lt("a\x{308}a\x{308}", "a9"));
ok($objWae->gt("a\x{308}A\x{308}", "a9"));
ok($objWae->gt("A\x{308}a\x{308}", "a9"));
ok($objWae->gt("A\x{308}A\x{308}", "a9"));
ok($objWae->lt("o\x{308}o\x{308}", "o9"));
ok($objWae->gt("o\x{308}O\x{308}", "o9"));
ok($objWae->gt("O\x{308}o\x{308}", "o9"));
ok($objWae->gt("O\x{308}O\x{308}", "o9"));
ok($objWae->lt("u\x{308}u\x{308}", "u9"));
ok($objWae->gt("u\x{308}U\x{308}", "u9"));
ok($objWae->gt("U\x{308}u\x{308}", "u9"));
ok($objWae->gt("U\x{308}U\x{308}", "u9"));
# 46
$objWae->change(level => 3);
ok($objWae->eq("a\x{301}", pack('U', 0xE1)));
ok($objWae->eq("e\x{301}", pack('U', 0xE9)));
ok($objWae->eq("i\x{301}", pack('U', 0xED)));
ok($objWae->eq("o\x{301}", pack('U', 0xF3)));
ok($objWae->eq("u\x{301}", pack('U', 0xFA)));
ok($objWae->eq("a\x{301}", "aa"));
ok($objWae->eq("e\x{301}", "ee"));
ok($objWae->eq("i\x{301}", "ii"));
ok($objWae->eq("o\x{301}", "oo"));
ok($objWae->eq("u\x{301}", "uu"));
# 56
ok($objWae->eq("c\x{30C}", "\x{10D}"));
ok($objWae->eq("s\x{30C}", "\x{161}"));
ok($objWae->eq("c\x{30C}", "ch"));
ok($objWae->eq("s\x{30C}", "sch"));
# 60
my $a1 = pack('U', 0xE4);
my $o1 = pack('U', 0xF6);
my $u1 = pack('U', 0xFC);
my $a2 = "a\x{308}";
my $o2 = "o\x{308}";
my $u2 = "u\x{308}";
ok($objWae->eq($a1, $a2));
ok($objWae->eq($o1, $o2));
ok($objWae->eq($u1, $u2));
ok($objWae->eq("a\x{303}", pack('U', 0xE3)));
ok($objWae->eq("o\x{303}", pack('U', 0xF5)));
ok($objWae->eq("u\x{303}", "\x{169}"));
# 66
ok($objWae->eq("a\x{303}", $a1.$a1));
ok($objWae->eq("a\x{303}", $a1.$a2));
ok($objWae->eq("a\x{303}", $a2.$a1));
ok($objWae->eq("a\x{303}", $a2.$a2));
ok($objWae->eq("o\x{303}", $o1.$o1));
ok($objWae->eq("o\x{303}", $o1.$o2));
ok($objWae->eq("o\x{303}", $o2.$o1));
ok($objWae->eq("o\x{303}", $o2.$o2));
ok($objWae->eq("u\x{303}", $u1.$u1));
ok($objWae->eq("u\x{303}", $u1.$u2));
ok($objWae->eq("u\x{303}", $u2.$u1));
ok($objWae->eq("u\x{303}", $u2.$u2));
# 78
|
