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