diff options
Diffstat (limited to 'cpan/Unicode-Collate/t/loc_hy.t')
| -rw-r--r-- | cpan/Unicode-Collate/t/loc_hy.t | 18 |
1 files changed, 16 insertions, 2 deletions
diff --git a/cpan/Unicode-Collate/t/loc_hy.t b/cpan/Unicode-Collate/t/loc_hy.t index fe22adba5a..e3e1e1c5c6 100644 --- a/cpan/Unicode-Collate/t/loc_hy.t +++ b/cpan/Unicode-Collate/t/loc_hy.t @@ -4,7 +4,7 @@ use warnings; use Unicode::Collate::Locale; use Test; -plan tests => 7; +plan tests => 13; my $objHy = Unicode::Collate::Locale-> new(locale => 'HY', normalization => undef); @@ -17,6 +17,12 @@ $objHy->change(level => 1); ok($objHy->lt("\x{584}", "\x{587}")); ok($objHy->gt("\x{585}", "\x{587}")); +ok($objHy->lt("\x{584}\x{4E00}", "\x{587}")); +ok($objHy->lt("\x{584}\x{20000}", "\x{587}")); +ok($objHy->lt("\x{584}\x{10FFFD}","\x{587}")); + +# 7 + $objHy->change(level => 2); ok($objHy->eq("\x{587}", "\x{535}\x{582}")); @@ -29,4 +35,12 @@ $objHy->change(upper_before_lower => 1); ok($objHy->gt("\x{587}", "\x{535}\x{582}")); -# 7 +# 10 + +$objHy->change(UCA_Version => 8); + +ok($objHy->lt("\x{584}\x{4E00}", "\x{587}")); +ok($objHy->lt("\x{584}\x{20000}", "\x{587}")); +ok($objHy->lt("\x{584}\x{10FFFD}","\x{587}")); + +# 13 |