diff options
Diffstat (limited to 'cpan/Unicode-Collate/t/loc_yo.t')
| -rw-r--r-- | cpan/Unicode-Collate/t/loc_yo.t | 11 |
1 files changed, 9 insertions, 2 deletions
diff --git a/cpan/Unicode-Collate/t/loc_yo.t b/cpan/Unicode-Collate/t/loc_yo.t index 9a2a1a01fc..06823f5719 100644 --- a/cpan/Unicode-Collate/t/loc_yo.t +++ b/cpan/Unicode-Collate/t/loc_yo.t @@ -4,7 +4,7 @@ use warnings; use Unicode::Collate::Locale; use Test; -plan tests => 27; +plan tests => 33; my $objYo = Unicode::Collate::Locale-> new(locale => 'YO', normalization => undef); @@ -53,4 +53,11 @@ ok($objYo->eq("O\x{323}", "\x{1ECC}")); ok($objYo->eq("s\x{323}", "\x{1E63}")); ok($objYo->eq("S\x{323}", "\x{1E62}")); -# 27 +ok($objYo->eq("e\x{323}\x{302}", "\x{1EC7}")); +ok($objYo->eq("E\x{323}\x{302}", "\x{1EC6}")); +ok($objYo->eq("o\x{323}\x{302}", "\x{1ED9}")); +ok($objYo->eq("O\x{323}\x{302}", "\x{1ED8}")); +ok($objYo->eq("o\x{323}\x{31B}", "\x{1EE3}")); +ok($objYo->eq("O\x{323}\x{31B}", "\x{1EE2}")); + +# 33 |