diff options
Diffstat (limited to 'cpan/Unicode-Collate/t/overcjk1.t')
| -rw-r--r-- | cpan/Unicode-Collate/t/overcjk1.t | 12 |
1 files changed, 8 insertions, 4 deletions
diff --git a/cpan/Unicode-Collate/t/overcjk1.t b/cpan/Unicode-Collate/t/overcjk1.t index 0cc23dea50..87f5eaac85 100644 --- a/cpan/Unicode-Collate/t/overcjk1.t +++ b/cpan/Unicode-Collate/t/overcjk1.t @@ -16,7 +16,7 @@ BEGIN { use strict; use warnings; -BEGIN { $| = 1; print "1..187\n"; } # 11 + 16 x @Versions +BEGIN { $| = 1; print "1..258\n"; } # 11 + 19 x @Versions my $count = 0; sub ok ($;$) { my $p = my $r = shift; @@ -64,8 +64,9 @@ ok($overCJK->lt("a\x{4E03}", "A\x{4E01}")); # 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). -my @Versions = (8, 9, 11, 14, 16, 18, 20, 22, 24, 26, 28); +my @Versions = (8, 9, 11, 14, 16, 18, 20, 22, 24, 26, 28, 30, 32); for my $v (@Versions) { $overCJK->change(UCA_Version => $v); @@ -83,7 +84,10 @@ for my $v (@Versions) { ok($overCJK->cmp("a\x{9FC4}", "A\x{9FCA}") == ($v >= 20 ? 1 : -1)); ok($overCJK->cmp("a\x{9FCA}", "A\x{9FCB}") == ($v >= 20 ? 1 : -1)); ok($overCJK->cmp("a\x{9FCB}", "A\x{9FCC}") == ($v >= 24 ? 1 : -1)); - ok($overCJK->cmp("a\x{9FCC}", "A\x{9FCD}") == -1); - ok($overCJK->cmp("a\x{9FCD}", "A\x{9FCF}") == -1); + ok($overCJK->cmp("a\x{9FCC}", "A\x{9FCD}") == ($v >= 32 ? 1 : -1)); + ok($overCJK->cmp("a\x{9FCD}", "A\x{9FCF}") == ($v >= 32 ? 1 : -1)); + ok($overCJK->cmp("a\x{9FCF}", "A\x{9FD5}") == ($v >= 32 ? 1 : -1)); + ok($overCJK->cmp("a\x{9FD5}", "A\x{9FD6}") == -1); + ok($overCJK->cmp("a\x{9FD6}", "A\x{9FDF}") == -1); } |