1
2BEGIN {
3    if ($ENV{PERL_CORE}) {
4	chdir('t') if -d 't';
5	@INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
6    }
7}
8
9use strict;
10use warnings;
11BEGIN { $| = 1; print "1..52\n"; }
12my $count = 0;
13sub ok ($;$) {
14    my $p = my $r = shift;
15    if (@_) {
16	my $x = shift;
17	$p = !defined $x ? !defined $r : !defined $r ? 0 : $r eq $x;
18    }
19    print $p ? "ok" : "not ok", ' ', ++$count, "\n";
20}
21
22use Unicode::Collate;
23
24ok(1);
25
26sub _pack_U   { Unicode::Collate::pack_U(@_) }
27sub _unpack_U { Unicode::Collate::unpack_U(@_) }
28
29#########################
30
31use Unicode::Collate::CJK::Korean;
32
33my $collator = Unicode::Collate->new(
34    normalization => undef,
35    overrideCJK => \&Unicode::Collate::CJK::Korean::weightKorean
36);
37
38sub hex_sort {
39    my @source = map _pack_U(hex $_), split ' ', shift;
40    my @sorted = $collator->sort(@source);
41    return join " ", map sprintf("%04X", _unpack_U($_)), @sorted;
42}
43
44# 1
45
46$collator->change(level => 1);
47
48ok($collator->eq("\x{AC00}", "\x{4F3D}"));
49ok($collator->eq("\x{4F3D}", "\x{4F73}"));
50ok($collator->eq("\x{4F73}", "\x{5047}"));
51ok($collator->eq("\x{5047}", "\x{50F9}"));
52ok($collator->eq("\x{50F9}", "\x{52A0}"));
53ok($collator->eq("\x{52A0}", "\x{53EF}"));
54ok($collator->lt("\x{53EF}", "\x{AC01}"));
55
56ok($collator->eq("\x{AC1D}", "\x{5580}"));
57ok($collator->eq("\x{5580}", "\x{5BA2}"));
58ok($collator->lt("\x{5BA2}", "\x{AC31}"));
59
60ok($collator->eq("\x{C77C}", "\x{4E00}"));
61ok($collator->eq("\x{4E00}", "\x{4F5A}"));
62ok($collator->eq("\x{4F5A}", "\x{4F7E}"));
63
64ok($collator->lt("\x{993C}", "\x{D790}"));
65ok($collator->eq("\x{D790}", "\x{8A70}"));
66ok($collator->eq("\x{8A70}", "\x{72B5}"));
67ok($collator->eq("\x{72B5}", "\x{7E88}"));
68ok($collator->eq("\x{7E88}", "\x{896D}"));
69ok($collator->eq("\x{896D}", "\x{9821}"));
70ok($collator->eq("\x{9821}", "\x{9EE0}"));
71
72# Ext.B
73ok($collator->lt("\x{20000}", "\x{20001}"));
74ok($collator->lt("\x{20001}", "\x{20002}"));
75ok($collator->lt("\x{20002}", "\x{20003}"));
76ok($collator->lt("\x{20003}", "\x{20004}"));
77ok($collator->lt("\x{20004}", "\x{20005}"));
78
79# 26
80
81$collator->change(level => 2);
82
83ok($collator->lt("\x{AC00}", "\x{4F3D}"));
84ok($collator->lt("\x{4F3D}", "\x{4F73}"));
85ok($collator->lt("\x{4F73}", "\x{5047}"));
86ok($collator->lt("\x{5047}", "\x{50F9}"));
87ok($collator->lt("\x{50F9}", "\x{52A0}"));
88ok($collator->lt("\x{52A0}", "\x{53EF}"));
89ok($collator->lt("\x{53EF}", "\x{AC01}"));
90
91ok($collator->lt("\x{AC1D}", "\x{5580}"));
92ok($collator->lt("\x{5580}", "\x{5BA2}"));
93ok($collator->lt("\x{5BA2}", "\x{AC31}"));
94
95ok($collator->lt("\x{C77C}", "\x{4E00}"));
96ok($collator->lt("\x{4E00}", "\x{4F5A}"));
97ok($collator->lt("\x{4F5A}", "\x{4F7E}"));
98
99ok($collator->lt("\x{993C}", "\x{D790}"));
100ok($collator->lt("\x{D790}", "\x{8A70}"));
101ok($collator->lt("\x{8A70}", "\x{72B5}"));
102ok($collator->lt("\x{72B5}", "\x{7E88}"));
103ok($collator->lt("\x{7E88}", "\x{896D}"));
104ok($collator->lt("\x{896D}", "\x{9821}"));
105ok($collator->lt("\x{9821}", "\x{9EE0}"));
106
107# Ext.B
108ok($collator->lt("\x{20000}", "\x{20001}"));
109ok($collator->lt("\x{20001}", "\x{20002}"));
110ok($collator->lt("\x{20002}", "\x{20003}"));
111ok($collator->lt("\x{20003}", "\x{20004}"));
112ok($collator->lt("\x{20004}", "\x{20005}"));
113
114# 51
115
116ok(hex_sort('4E00 4E8C 4E09 56DB 4E94 516D 4E03 516B 4E5D 5341'),
117            '4E5D 516D 56DB 4E09 5341 4E94 4E8C 4E00 4E03 516B');
118
119# 52
120