summaryrefslogtreecommitdiff
path: root/cpan/Unicode-Collate/t/loc_fo.t
diff options
context:
space:
mode:
Diffstat (limited to 'cpan/Unicode-Collate/t/loc_fo.t')
-rw-r--r--cpan/Unicode-Collate/t/loc_fo.t22
1 files changed, 17 insertions, 5 deletions
diff --git a/cpan/Unicode-Collate/t/loc_fo.t b/cpan/Unicode-Collate/t/loc_fo.t
index 04799a2f55..e072d6e58a 100644
--- a/cpan/Unicode-Collate/t/loc_fo.t
+++ b/cpan/Unicode-Collate/t/loc_fo.t
@@ -4,7 +4,7 @@ use warnings;
use Unicode::Collate::Locale;
use Test;
-plan tests => 93;
+plan tests => 105;
my $eth = pack 'U', 0xF0;
my $ETH = pack 'U', 0xD0;
@@ -118,25 +118,37 @@ ok($objFo->eq("d\x{335}", "\x{111}"));
ok($objFo->eq("D\x{335}", "\x{110}"));
ok($objFo->eq("u\x{308}", $uuml));
ok($objFo->eq("U\x{308}", $Uuml));
+ok($objFo->eq("u\x{308}\x{300}", "\x{1DC}"));
+ok($objFo->eq("U\x{308}\x{300}", "\x{1DB}"));
+ok($objFo->eq("u\x{308}\x{301}", "\x{1D8}"));
+ok($objFo->eq("U\x{308}\x{301}", "\x{1D7}"));
+ok($objFo->eq("u\x{308}\x{304}", "\x{1D6}"));
+ok($objFo->eq("U\x{308}\x{304}", "\x{1D5}"));
+ok($objFo->eq("u\x{308}\x{30C}", "\x{1DA}"));
+ok($objFo->eq("U\x{308}\x{30C}", "\x{1D9}"));
ok($objFo->eq("u\x{30B}", "\x{171}"));
ok($objFo->eq("U\x{30B}", "\x{170}"));
+
+# 80
+
ok($objFo->eq("\x{1FD}", "$ae\x{301}"));
ok($objFo->eq("\x{1FC}", "$AE\x{301}"));
ok($objFo->eq("\x{1E3}", "$ae\x{304}"));
ok($objFo->eq("\x{1E2}", "$AE\x{304}"));
ok($objFo->eq("a\x{308}", $auml));
ok($objFo->eq("A\x{308}", $Auml));
+ok($objFo->eq("a\x{308}\x{304}", "\x{1DF}"));
+ok($objFo->eq("A\x{308}\x{304}", "\x{1DE}"));
ok($objFo->eq("e\x{328}", "\x{119}"));
ok($objFo->eq("E\x{328}", "\x{118}"));
-
-# 80
-
ok($objFo->eq("o\x{338}", $ostk));
ok($objFo->eq("O\x{338}", $Ostk));
ok($objFo->eq("o\x{338}\x{301}", "\x{1FF}"));
ok($objFo->eq("O\x{338}\x{301}", "\x{1FE}"));
ok($objFo->eq("o\x{308}", $ouml));
ok($objFo->eq("O\x{308}", $Ouml));
+ok($objFo->eq("o\x{308}\x{304}", "\x{22B}"));
+ok($objFo->eq("O\x{308}\x{304}", "\x{22A}"));
ok($objFo->eq("o\x{30B}", "\x{151}"));
ok($objFo->eq("O\x{30B}", "\x{150}"));
ok($objFo->eq("a\x{30A}", $arng));
@@ -145,4 +157,4 @@ ok($objFo->eq("A\x{30A}", "\x{212B}"));
ok($objFo->eq("a\x{30A}\x{301}", "\x{1FB}"));
ok($objFo->eq("A\x{30A}\x{301}", "\x{1FA}"));
-# 93
+# 105