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
150
151
152
153
154
155
156
157
158
159
160
|
BEGIN {
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..1426\n"; } # 1 + 75 x @Versions
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;
ok(1);
sub _pack_U { Unicode::Collate::pack_U(@_) }
sub _unpack_U { Unicode::Collate::unpack_U(@_) }
#########################
my $coll = Unicode::Collate->new(
table => 'keys.txt',
normalization => undef,
);
# CJK UI Ext > CJK UI.
# [ UCA_Version 8: Ext.A < UI and BMP < Ext.B (code point order) ]
# 4E00..9FA5 are CJK UI.
# 9FA6..9FBB are CJK UI since UCA_Version 14 (Unicode 4.1).
# 9FBC..9FC3 are CJK UI since UCA_Version 18 (Unicode 5.1).
# 9FC4..9FCB are CJK UI since UCA_Version 20 (Unicode 5.2).
# 9FCC is CJK UI since UCA_Version 24 (Unicode 6.1).
# 9FCD..9FD5 are CJK UI since UCA_Version 32 (Unicode 8.0).
# 9FD6..9FEA are CJK UI since UCA_Version 36 (Unicode 10.0).
# 9FEB..9FEF are CJK UI since UCA_Version 38 (Unicode 11.0).
# 9FF0..9FFC are CJK UI since UCA_Version 43 (Unicode 13.0).
# 3400..4DB5 are CJK UI Ext.A since UCA_Version 8 (Unicode 3.0).
# 4DB6..4DBF are CJK UI Ext.A since UCA_Version 43 (Unicode 13.0).
# 20000..2A6D6 are CJK UI Ext.B since UCA_Version 8 (Unicode 3.1).
# 2A6D7..2A6DD are CJK UI Ext.B since UCA_Version 43 (Unicode 13.0).
# 2A700..2B734 are CJK UI Ext.C since UCA_Version 20 (Unicode 5.2).
# 2B740..2B81D are CJK UI Ext.D since UCA_Version 22 (Unicode 6.0).
# 2B820..2CEA1 are CJK UI Ext.E since UCA_Version 32 (Unicode 8.0).
# 2CEB0..2EBE0 are CJK UI Ext.F since UCA_Version 36 (Unicode 10.0).
# 30000..3134A are CJK UI Ext.G since UCA_Version 43 (Unicode 13.0).
my @Versions = ( 8, 9, 11, 14, 16, 18, 20, 22, 24, 26,
28, 30, 32, 34, 36, 38, 40, 41, 43);
for my $v (@Versions) {
$coll->change(UCA_Version => $v);
# Ext.A > UI
ok($coll->cmp("\x{3400}", "\x{4E00}") == ($v >= 9 ? 1 : -1)); # UI
ok($coll->cmp("\x{3400}", "\x{9FA5}") == ($v >= 9 ? 1 : -1)); # UI
ok($coll->cmp("\x{3400}", "\x{9FA6}") == ($v >= 14 ? 1 : -1)); # new
ok($coll->cmp("\x{3400}", "\x{9FBB}") == ($v >= 14 ? 1 : -1)); # new
ok($coll->cmp("\x{3400}", "\x{9FBC}") == ($v >= 18 ? 1 : -1)); # new
ok($coll->cmp("\x{3400}", "\x{9FC3}") == ($v >= 18 ? 1 : -1)); # new
ok($coll->cmp("\x{3400}", "\x{9FC4}") == ($v >= 20 ? 1 : -1)); # new
ok($coll->cmp("\x{3400}", "\x{9FCB}") == ($v >= 20 ? 1 : -1)); # new
ok($coll->cmp("\x{3400}", "\x{9FCC}") == ($v >= 24 ? 1 : -1)); # new
ok($coll->cmp("\x{3400}", "\x{9FCD}") == ($v >= 32 ? 1 : -1)); # new
ok($coll->cmp("\x{3400}", "\x{9FD5}") == ($v >= 32 ? 1 : -1)); # new
ok($coll->cmp("\x{3400}", "\x{9FD6}") == ($v >= 36 ? 1 : -1)); # new
ok($coll->cmp("\x{3400}", "\x{9FEA}") == ($v >= 36 ? 1 : -1)); # new
ok($coll->cmp("\x{3400}", "\x{9FEB}") == ($v >= 38 ? 1 : -1)); # new
ok($coll->cmp("\x{3400}", "\x{9FEF}") == ($v >= 38 ? 1 : -1)); # new
ok($coll->cmp("\x{3400}", "\x{9FF0}") == ($v >= 43 ? 1 : -1)); # new
ok($coll->cmp("\x{3400}", "\x{9FFC}") == ($v >= 43 ? 1 : -1)); # new
ok($coll->cmp("\x{3400}", "\x{9FFD}") == -1); # na
ok($coll->cmp("\x{3400}", "\x{9FFF}") == -1); # na
# UI < UI
ok($coll->cmp("\x{4E00}", "\x{9FA5}") == -1); # UI < UI
ok($coll->cmp("\x{9FA5}", "\x{9FA6}") == -1); # UI < new
ok($coll->cmp("\x{9FA6}", "\x{9FBB}") == -1); # new < new
ok($coll->cmp("\x{9FBB}", "\x{9FBC}") == -1); # new < new
ok($coll->cmp("\x{9FBC}", "\x{9FC3}") == -1); # new < new
ok($coll->cmp("\x{9FC3}", "\x{9FC4}") == -1); # new < new
ok($coll->cmp("\x{9FC4}", "\x{9FCB}") == -1); # new < new
ok($coll->cmp("\x{9FCB}", "\x{9FCC}") == -1); # new < new
ok($coll->cmp("\x{9FCC}", "\x{9FCD}") == -1); # new < new
ok($coll->cmp("\x{9FCD}", "\x{9FD5}") == -1); # new < new
ok($coll->cmp("\x{9FD5}", "\x{9FD6}") == -1); # new < new
ok($coll->cmp("\x{9FD6}", "\x{9FEA}") == -1); # new < new
ok($coll->cmp("\x{9FEA}", "\x{9FEB}") == -1); # new < new
ok($coll->cmp("\x{9FEB}", "\x{9FEF}") == -1); # new < new
ok($coll->cmp("\x{9FEF}", "\x{9FF0}") == -1); # new < new
ok($coll->cmp("\x{9FF0}", "\x{9FFC}") == -1); # new < new
ok($coll->cmp("\x{9FFC}", "\x{9FFD}") == -1); # new < na
ok($coll->cmp("\x{9FFD}", "\x{9FFF}") == -1); # na < na
# Ext.A < Ext.B
ok($coll->cmp("\x{3400}", "\x{20000}") == -1);
# Ext.A
ok($coll->cmp("\x{3400}", "\x{4DB5}") == -1); # A < A
ok($coll->cmp("\x{2FFF}", "\x{3400}") == ($v >= 8 ? 1 : -1)); # na > A
ok($coll->cmp("\x{2FFF}", "\x{4DB5}") == ($v >= 8 ? 1 : -1)); # na > A
ok($coll->cmp("\x{2FFF}", "\x{4DB6}") == ($v >= 43 ? 1 : -1)); # na > A
ok($coll->cmp("\x{2FFF}", "\x{4DBF}") == ($v >= 43 ? 1 : -1)); # na > A
# Ext.B
ok($coll->cmp("\x{20000}","\x{2A6D6}") == -1); # B < B
ok($coll->cmp("\x{2FFF}", "\x{20000}") == ($v >= 9 ? 1 : -1)); # na > B
ok($coll->cmp("\x{2FFF}", "\x{2A6D6}") == ($v >= 9 ? 1 : -1)); # na > B
ok($coll->cmp("\x{2FFF}", "\x{2A6D7}") == ($v >= 43 ? 1 : -1)); # na > B
ok($coll->cmp("\x{2FFF}", "\x{2A6DD}") == ($v >= 43 ? 1 : -1)); # na > B
ok($coll->cmp("\x{2FFF}", "\x{2A6DE}") == -1); # na < na
ok($coll->cmp("\x{2FFF}", "\x{2A6DF}") == -1); # na < na
# Ext.C
ok($coll->cmp("\x{2A700}","\x{2B734}") == -1); # C < C
ok($coll->cmp("\x{2FFF}", "\x{2A700}") == ($v >= 20 ? 1 : -1)); # na > C
ok($coll->cmp("\x{2FFF}", "\x{2B734}") == ($v >= 20 ? 1 : -1)); # na > C
ok($coll->cmp("\x{2FFF}", "\x{2B735}") == -1); # na < na
ok($coll->cmp("\x{2FFF}", "\x{2B73F}") == -1); # na < na
# Ext.D
ok($coll->cmp("\x{2B740}","\x{2B81D}") == -1); # D < D
ok($coll->cmp("\x{2FFF}", "\x{2B740}") == ($v >= 22 ? 1 : -1)); # na > D
ok($coll->cmp("\x{2FFF}", "\x{2B81D}") == ($v >= 22 ? 1 : -1)); # na > D
ok($coll->cmp("\x{2FFF}", "\x{2B81E}") == -1); # na < na
ok($coll->cmp("\x{2FFF}", "\x{2B81F}") == -1); # na < na
# Ext.E
ok($coll->cmp("\x{2B820}","\x{2CEA1}") == -1); # E < E
ok($coll->cmp("\x{2FFF}", "\x{2B820}") == ($v >= 32 ? 1 : -1)); # na > E
ok($coll->cmp("\x{2FFF}", "\x{2CEA1}") == ($v >= 32 ? 1 : -1)); # na > E
ok($coll->cmp("\x{2FFF}", "\x{2CEA2}") == -1); # na < na
ok($coll->cmp("\x{2FFF}", "\x{2CEAF}") == -1); # na < na
# Ext.F
ok($coll->cmp("\x{2CEB0}","\x{2EBE0}") == -1); # F < F
ok($coll->cmp("\x{2FFF}", "\x{2CEB0}") == ($v >= 36 ? 1 : -1)); # na > F
ok($coll->cmp("\x{2FFF}", "\x{2EBE0}") == ($v >= 36 ? 1 : -1)); # na > F
ok($coll->cmp("\x{2FFF}", "\x{2EBE1}") == -1); # na < na
ok($coll->cmp("\x{2FFF}", "\x{2EBEF}") == -1); # na < na
# Ext.G
ok($coll->cmp("\x{30000}","\x{3134A}") == -1); # G < G
ok($coll->cmp("\x{2FFF}", "\x{30000}") == ($v >= 43 ? 1 : -1)); # na > G
ok($coll->cmp("\x{2FFF}", "\x{3134A}") == ($v >= 43 ? 1 : -1)); # na > G
ok($coll->cmp("\x{2FFF}", "\x{3134B}") == -1); # na < na
ok($coll->cmp("\x{2FFF}", "\x{3134F}") == -1); # na < na
}
|
