diff options
Diffstat (limited to 'cpan/Unicode-Collate/t/loc_wo.t')
| -rw-r--r-- | cpan/Unicode-Collate/t/loc_wo.t | 10 |
1 files changed, 8 insertions, 2 deletions
diff --git a/cpan/Unicode-Collate/t/loc_wo.t b/cpan/Unicode-Collate/t/loc_wo.t index ceff5068e9..48cb8df21d 100644 --- a/cpan/Unicode-Collate/t/loc_wo.t +++ b/cpan/Unicode-Collate/t/loc_wo.t @@ -4,7 +4,7 @@ use warnings; use Unicode::Collate::Locale; use Test; -plan tests => 34; +plan tests => 40; my $objWo = Unicode::Collate::Locale-> new(locale => 'WO', normalization => undef); @@ -50,14 +50,20 @@ ok($objWo->lt("o\x{301}", "O\x{301}")); # 24 ok($objWo->eq("a\x{300}", pack('U', 0xE0))); +ok($objWo->eq("a\x{340}", pack('U', 0xE0))); ok($objWo->eq("A\x{300}", pack('U', 0xC0))); +ok($objWo->eq("A\x{340}", pack('U', 0xC0))); ok($objWo->eq("e\x{301}", pack('U', 0xE9))); +ok($objWo->eq("e\x{341}", pack('U', 0xE9))); ok($objWo->eq("E\x{301}", pack('U', 0xC9))); +ok($objWo->eq("E\x{341}", pack('U', 0xC9))); ok($objWo->eq("e\x{308}", pack('U', 0xEB))); ok($objWo->eq("E\x{308}", pack('U', 0xCB))); ok($objWo->eq("n\x{303}", pack('U', 0xF1))); ok($objWo->eq("N\x{303}", pack('U', 0xD1))); ok($objWo->eq("o\x{301}", pack('U', 0xF3))); +ok($objWo->eq("o\x{341}", pack('U', 0xF3))); ok($objWo->eq("O\x{301}", pack('U', 0xD3))); +ok($objWo->eq("O\x{341}", pack('U', 0xD3))); -# 34 +# 40 |