xref: /openbsd-src/gnu/usr.bin/perl/cpan/Unicode-Collate/t/cjk_py.t (revision 256a93a44f36679bee503f12e49566c2183f6181)
1898184e3Ssthen
2898184e3SsthenBEGIN {
3898184e3Ssthen    if ($ENV{PERL_CORE}) {
4898184e3Ssthen	chdir('t') if -d 't';
5898184e3Ssthen	@INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
6898184e3Ssthen    }
7898184e3Ssthen}
8898184e3Ssthen
9898184e3Ssthenuse strict;
10898184e3Ssthenuse warnings;
11898184e3SsthenBEGIN { $| = 1; print "1..19\n"; }
12898184e3Ssthenmy $count = 0;
13898184e3Ssthensub ok ($;$) {
14898184e3Ssthen    my $p = my $r = shift;
15898184e3Ssthen    if (@_) {
16898184e3Ssthen	my $x = shift;
17898184e3Ssthen	$p = !defined $x ? !defined $r : !defined $r ? 0 : $r eq $x;
18898184e3Ssthen    }
19898184e3Ssthen    print $p ? "ok" : "not ok", ' ', ++$count, "\n";
20898184e3Ssthen}
21898184e3Ssthen
22898184e3Ssthenuse Unicode::Collate;
23898184e3Ssthen
24898184e3Ssthenok(1);
25898184e3Ssthen
26*256a93a4Safresh1sub _pack_U   { Unicode::Collate::pack_U(@_) }
27*256a93a4Safresh1sub _unpack_U { Unicode::Collate::unpack_U(@_) }
28*256a93a4Safresh1
29898184e3Ssthen#########################
30898184e3Ssthen
31898184e3Ssthenuse Unicode::Collate::CJK::Pinyin;
32898184e3Ssthen
33898184e3Ssthenmy $collator = Unicode::Collate->new(
34898184e3Ssthen    table => undef,
35898184e3Ssthen    normalization => undef,
36898184e3Ssthen    overrideCJK => \&Unicode::Collate::CJK::Pinyin::weightPinyin
37898184e3Ssthen);
38898184e3Ssthen
39898184e3Ssthensub hex_sort {
40*256a93a4Safresh1    my @source = map _pack_U(hex $_), split ' ', shift;
41898184e3Ssthen    my @sorted = $collator->sort(@source);
42*256a93a4Safresh1    return join " ", map sprintf("%04X", _unpack_U($_)), @sorted;
43898184e3Ssthen}
44898184e3Ssthen
45898184e3Ssthen# 1
46898184e3Ssthen
47898184e3Ssthen$collator->change(level => 1);
48898184e3Ssthen
49898184e3Ssthenok($collator->lt("\x{963F}", "\x{5730}"));
50898184e3Ssthenok($collator->lt("\x{5730}", "\x{7ACB}"));
51898184e3Ssthenok($collator->lt("\x{7ACB}", "\x{4EBA}"));
52898184e3Ssthenok($collator->lt("\x{4EBA}", "\x{65E5}"));
53898184e3Ssthenok($collator->lt("\x{65E5}", "\x{4E0A}"));
54898184e3Ssthenok($collator->lt("\x{4E0A}", "\x{5929}"));
55898184e3Ssthenok($collator->lt("\x{5929}", "\x{4E0B}"));
56898184e3Ssthenok($collator->lt("\x{4E0B}", "\x{65BC}"));
57898184e3Ssthenok($collator->lt("\x{65BC}", "\x{4E2D}"));
58898184e3Ssthenok($collator->lt("\x{4E2D}", "\x{7AFA}"));
59898184e3Ssthenok($collator->lt("\x{7AFA}", "\x{5750}"));
60898184e3Ssthen
61898184e3Ssthen# Ext.B
62898184e3Ssthenok($collator->lt("\x{20000}", "\x{20001}"));
63898184e3Ssthenok($collator->lt("\x{20001}", "\x{20002}"));
64898184e3Ssthenok($collator->lt("\x{20002}", "\x{20003}"));
65898184e3Ssthenok($collator->lt("\x{20003}", "\x{20004}"));
66898184e3Ssthenok($collator->lt("\x{20004}", "\x{20005}"));
67898184e3Ssthen
68898184e3Ssthen# 17
69898184e3Ssthen
70898184e3Ssthenok(hex_sort('4E00 4E8C 4E09 56DB 4E94 516D 4E03 516B 4E5D 5341'),
71898184e3Ssthen            '516B 4E8C 4E5D 516D 4E03 4E09 5341 56DB 4E94 4E00');
72898184e3Ssthen
73898184e3Ssthenok(hex_sort('4E0C 4E8D 4F5C 5140 554A 5750 57C3 5EA7 963F 9F3D 9F3E 9F44'),
74898184e3Ssthen            '963F 554A 57C3 4E8D 9F3E 4E0C 9F3D 5140 9F44 4F5C 5750 5EA7');
75898184e3Ssthen
76898184e3Ssthen# 19
77