diff options
Diffstat (limited to 'cpan/Unicode-Collate/t/compatui.t')
| -rw-r--r-- | cpan/Unicode-Collate/t/compatui.t | 157 |
1 files changed, 80 insertions, 77 deletions
diff --git a/cpan/Unicode-Collate/t/compatui.t b/cpan/Unicode-Collate/t/compatui.t index 66a8735ab6..769debf2c6 100644 --- a/cpan/Unicode-Collate/t/compatui.t +++ b/cpan/Unicode-Collate/t/compatui.t @@ -20,96 +20,99 @@ use Unicode::Collate; ok(1); +######################### + my @Versions = (8, 9, 11, 14, 16, 18, 20, 22); # 12 compatibility ideographs are treated as unified ideographs: # FA0E, FA0F, FA11, FA13, FA14, FA1F, FA21, FA23, FA24, FA27, FA28, FA29. my $Collator = Unicode::Collate->new( - table => 'keys.txt', - normalization => undef, + table => 'keys.txt', + normalization => undef, ); for my $v (@Versions) { -$Collator->change(UCA_Version => $v); -ok($Collator->lt("\x{4E00}", "\x{1FFF}")); -ok($Collator->lt("\x{9FA5}", "\x{1FFF}")); -ok($Collator->gt("\x{FA00}", "\x{1FFF}")); -ok($Collator->gt("\x{FA0D}", "\x{1FFF}")); -ok($Collator->lt("\x{FA0E}", "\x{1FFF}")); -ok($Collator->lt("\x{FA0F}", "\x{1FFF}")); -ok($Collator->gt("\x{FA10}", "\x{1FFF}")); -ok($Collator->lt("\x{FA11}", "\x{1FFF}")); -ok($Collator->gt("\x{FA12}", "\x{1FFF}")); -ok($Collator->lt("\x{FA13}", "\x{1FFF}")); -ok($Collator->lt("\x{FA14}", "\x{1FFF}")); -ok($Collator->gt("\x{FA15}", "\x{1FFF}")); -ok($Collator->gt("\x{FA16}", "\x{1FFF}")); -ok($Collator->gt("\x{FA17}", "\x{1FFF}")); -ok($Collator->gt("\x{FA18}", "\x{1FFF}")); -ok($Collator->gt("\x{FA19}", "\x{1FFF}")); -ok($Collator->gt("\x{FA1A}", "\x{1FFF}")); -ok($Collator->gt("\x{FA1B}", "\x{1FFF}")); -ok($Collator->gt("\x{FA1C}", "\x{1FFF}")); -ok($Collator->gt("\x{FA1D}", "\x{1FFF}")); -ok($Collator->gt("\x{FA1E}", "\x{1FFF}")); -ok($Collator->lt("\x{FA1F}", "\x{1FFF}")); -ok($Collator->gt("\x{FA20}", "\x{1FFF}")); -ok($Collator->lt("\x{FA21}", "\x{1FFF}")); -ok($Collator->gt("\x{FA22}", "\x{1FFF}")); -ok($Collator->lt("\x{FA23}", "\x{1FFF}")); -ok($Collator->lt("\x{FA24}", "\x{1FFF}")); -ok($Collator->gt("\x{FA25}", "\x{1FFF}")); -ok($Collator->gt("\x{FA26}", "\x{1FFF}")); -ok($Collator->lt("\x{FA27}", "\x{1FFF}")); -ok($Collator->lt("\x{FA28}", "\x{1FFF}")); -ok($Collator->lt("\x{FA29}", "\x{1FFF}")); -ok($Collator->gt("\x{FA2A}", "\x{1FFF}")); -ok($Collator->gt("\x{FA30}", "\x{1FFF}")); -ok($Collator->gt("\x{FAFF}", "\x{1FFF}")); + $Collator->change(UCA_Version => $v); + ok($Collator->lt("\x{4E00}", "\x{1FFF}")); + ok($Collator->lt("\x{9FA5}", "\x{1FFF}")); + ok($Collator->gt("\x{FA00}", "\x{1FFF}")); + ok($Collator->gt("\x{FA0D}", "\x{1FFF}")); + ok($Collator->lt("\x{FA0E}", "\x{1FFF}")); + ok($Collator->lt("\x{FA0F}", "\x{1FFF}")); + ok($Collator->gt("\x{FA10}", "\x{1FFF}")); + ok($Collator->lt("\x{FA11}", "\x{1FFF}")); + ok($Collator->gt("\x{FA12}", "\x{1FFF}")); + ok($Collator->lt("\x{FA13}", "\x{1FFF}")); + ok($Collator->lt("\x{FA14}", "\x{1FFF}")); + ok($Collator->gt("\x{FA15}", "\x{1FFF}")); + ok($Collator->gt("\x{FA16}", "\x{1FFF}")); + ok($Collator->gt("\x{FA17}", "\x{1FFF}")); + ok($Collator->gt("\x{FA18}", "\x{1FFF}")); + ok($Collator->gt("\x{FA19}", "\x{1FFF}")); + ok($Collator->gt("\x{FA1A}", "\x{1FFF}")); + ok($Collator->gt("\x{FA1B}", "\x{1FFF}")); + ok($Collator->gt("\x{FA1C}", "\x{1FFF}")); + ok($Collator->gt("\x{FA1D}", "\x{1FFF}")); + ok($Collator->gt("\x{FA1E}", "\x{1FFF}")); + ok($Collator->lt("\x{FA1F}", "\x{1FFF}")); + ok($Collator->gt("\x{FA20}", "\x{1FFF}")); + ok($Collator->lt("\x{FA21}", "\x{1FFF}")); + ok($Collator->gt("\x{FA22}", "\x{1FFF}")); + ok($Collator->lt("\x{FA23}", "\x{1FFF}")); + ok($Collator->lt("\x{FA24}", "\x{1FFF}")); + ok($Collator->gt("\x{FA25}", "\x{1FFF}")); + ok($Collator->gt("\x{FA26}", "\x{1FFF}")); + ok($Collator->lt("\x{FA27}", "\x{1FFF}")); + ok($Collator->lt("\x{FA28}", "\x{1FFF}")); + ok($Collator->lt("\x{FA29}", "\x{1FFF}")); + ok($Collator->gt("\x{FA2A}", "\x{1FFF}")); + ok($Collator->gt("\x{FA30}", "\x{1FFF}")); + ok($Collator->gt("\x{FAFF}", "\x{1FFF}")); } my $IgnoreCJK = Unicode::Collate->new( - table => 'keys.txt', - normalization => undef, - overrideCJK => sub {()}, + table => 'keys.txt', + normalization => undef, + overrideCJK => sub {()}, ); for my $v (@Versions) { -$IgnoreCJK->change(UCA_Version => $v); -ok($IgnoreCJK->eq("\x{4E00}", "")); -ok($IgnoreCJK->eq("\x{9FA5}", "")); -ok($IgnoreCJK->gt("\x{FA00}", "\x{1FFF}")); -ok($IgnoreCJK->gt("\x{FA0D}", "\x{1FFF}")); -ok($IgnoreCJK->eq("\x{FA0E}", "")); -ok($IgnoreCJK->eq("\x{FA0F}", "")); -ok($IgnoreCJK->gt("\x{FA10}", "\x{1FFF}")); -ok($IgnoreCJK->eq("\x{FA11}", "")); -ok($IgnoreCJK->gt("\x{FA12}", "\x{1FFF}")); -ok($IgnoreCJK->eq("\x{FA13}", "")); -ok($IgnoreCJK->eq("\x{FA14}", "")); -ok($IgnoreCJK->gt("\x{FA15}", "\x{1FFF}")); -ok($IgnoreCJK->gt("\x{FA16}", "\x{1FFF}")); -ok($IgnoreCJK->gt("\x{FA17}", "\x{1FFF}")); -ok($IgnoreCJK->gt("\x{FA18}", "\x{1FFF}")); -ok($IgnoreCJK->gt("\x{FA19}", "\x{1FFF}")); -ok($IgnoreCJK->gt("\x{FA1A}", "\x{1FFF}")); -ok($IgnoreCJK->gt("\x{FA1B}", "\x{1FFF}")); -ok($IgnoreCJK->gt("\x{FA1C}", "\x{1FFF}")); -ok($IgnoreCJK->gt("\x{FA1D}", "\x{1FFF}")); -ok($IgnoreCJK->gt("\x{FA1E}", "\x{1FFF}")); -ok($IgnoreCJK->eq("\x{FA1F}", "")); -ok($IgnoreCJK->gt("\x{FA20}", "\x{1FFF}")); -ok($IgnoreCJK->eq("\x{FA21}", "")); -ok($IgnoreCJK->gt("\x{FA22}", "\x{1FFF}")); -ok($IgnoreCJK->eq("\x{FA23}", "")); -ok($IgnoreCJK->eq("\x{FA24}", "")); -ok($IgnoreCJK->gt("\x{FA25}", "\x{1FFF}")); -ok($IgnoreCJK->gt("\x{FA26}", "\x{1FFF}")); -ok($IgnoreCJK->eq("\x{FA27}", "")); -ok($IgnoreCJK->eq("\x{FA28}", "")); -ok($IgnoreCJK->eq("\x{FA29}", "")); -ok($IgnoreCJK->gt("\x{FA2A}", "\x{1FFF}")); -ok($IgnoreCJK->gt("\x{FA30}", "\x{1FFF}")); -ok($IgnoreCJK->gt("\x{FAFF}", "\x{1FFF}")); + $IgnoreCJK->change(UCA_Version => $v); + ok($IgnoreCJK->eq("\x{4E00}", "")); + ok($IgnoreCJK->eq("\x{9FA5}", "")); + ok($IgnoreCJK->gt("\x{FA00}", "\x{1FFF}")); + ok($IgnoreCJK->gt("\x{FA0D}", "\x{1FFF}")); + ok($IgnoreCJK->eq("\x{FA0E}", "")); + ok($IgnoreCJK->eq("\x{FA0F}", "")); + ok($IgnoreCJK->gt("\x{FA10}", "\x{1FFF}")); + ok($IgnoreCJK->eq("\x{FA11}", "")); + ok($IgnoreCJK->gt("\x{FA12}", "\x{1FFF}")); + ok($IgnoreCJK->eq("\x{FA13}", "")); + ok($IgnoreCJK->eq("\x{FA14}", "")); + ok($IgnoreCJK->gt("\x{FA15}", "\x{1FFF}")); + ok($IgnoreCJK->gt("\x{FA16}", "\x{1FFF}")); + ok($IgnoreCJK->gt("\x{FA17}", "\x{1FFF}")); + ok($IgnoreCJK->gt("\x{FA18}", "\x{1FFF}")); + ok($IgnoreCJK->gt("\x{FA19}", "\x{1FFF}")); + ok($IgnoreCJK->gt("\x{FA1A}", "\x{1FFF}")); + ok($IgnoreCJK->gt("\x{FA1B}", "\x{1FFF}")); + ok($IgnoreCJK->gt("\x{FA1C}", "\x{1FFF}")); + ok($IgnoreCJK->gt("\x{FA1D}", "\x{1FFF}")); + ok($IgnoreCJK->gt("\x{FA1E}", "\x{1FFF}")); + ok($IgnoreCJK->eq("\x{FA1F}", "")); + ok($IgnoreCJK->gt("\x{FA20}", "\x{1FFF}")); + ok($IgnoreCJK->eq("\x{FA21}", "")); + ok($IgnoreCJK->gt("\x{FA22}", "\x{1FFF}")); + ok($IgnoreCJK->eq("\x{FA23}", "")); + ok($IgnoreCJK->eq("\x{FA24}", "")); + ok($IgnoreCJK->gt("\x{FA25}", "\x{1FFF}")); + ok($IgnoreCJK->gt("\x{FA26}", "\x{1FFF}")); + ok($IgnoreCJK->eq("\x{FA27}", "")); + ok($IgnoreCJK->eq("\x{FA28}", "")); + ok($IgnoreCJK->eq("\x{FA29}", "")); + ok($IgnoreCJK->gt("\x{FA2A}", "\x{1FFF}")); + ok($IgnoreCJK->gt("\x{FA30}", "\x{1FFF}")); + ok($IgnoreCJK->gt("\x{FAFF}", "\x{1FFF}")); } + |