diff options
Diffstat (limited to 'cpan/Unicode-Collate/t/loc_fi.t')
-rw-r--r-- | cpan/Unicode-Collate/t/loc_fi.t | 26 |
1 files changed, 13 insertions, 13 deletions
diff --git a/cpan/Unicode-Collate/t/loc_fi.t b/cpan/Unicode-Collate/t/loc_fi.t index afd6707206..c8be1fb7f2 100644 --- a/cpan/Unicode-Collate/t/loc_fi.t +++ b/cpan/Unicode-Collate/t/loc_fi.t @@ -95,6 +95,19 @@ ok($objFi->lt($ostk, $Ostk)); ok($objFi->eq("u\x{308}", $uuml)); ok($objFi->eq("U\x{308}", $Uuml)); +ok($objFi->eq("\x{1EF}", "\x{292}\x{30C}")); +ok($objFi->eq("\x{1EE}", "\x{1B7}\x{30C}")); +ok($objFi->eq("a\x{30A}", $arng)); +ok($objFi->eq("A\x{30A}", $Arng)); +ok($objFi->eq("a\x{308}", $auml)); +ok($objFi->eq("A\x{308}", $Auml)); +ok($objFi->eq("o\x{308}", $ouml)); +ok($objFi->eq("O\x{308}", $Ouml)); +ok($objFi->eq("o\x{338}", $ostk)); +ok($objFi->eq("O\x{338}", $Ostk)); + +# 61 + ok($objFi->eq("u\x{308}\x{300}", "\x{1DC}")); ok($objFi->eq("U\x{308}\x{300}", "\x{1DB}")); ok($objFi->eq("u\x{308}\x{301}", "\x{1D8}")); @@ -103,30 +116,17 @@ ok($objFi->eq("u\x{308}\x{304}", "\x{1D6}")); ok($objFi->eq("U\x{308}\x{304}", "\x{1D5}")); ok($objFi->eq("u\x{308}\x{30C}", "\x{1DA}")); ok($objFi->eq("U\x{308}\x{30C}", "\x{1D9}")); -ok($objFi->eq("\x{1EF}", "\x{292}\x{30C}")); -ok($objFi->eq("\x{1EE}", "\x{1B7}\x{30C}")); - -# 61 - -ok($objFi->eq("a\x{30A}", $arng)); -ok($objFi->eq("A\x{30A}", $Arng)); ok($objFi->eq("A\x{30A}", "\x{212B}")); ok($objFi->eq("a\x{30A}\x{301}", "\x{1FB}")); ok($objFi->eq("A\x{30A}\x{301}", "\x{1FA}")); -ok($objFi->eq("a\x{308}", $auml)); -ok($objFi->eq("A\x{308}", $Auml)); ok($objFi->eq("a\x{308}\x{304}", "\x{1DF}")); ok($objFi->eq("A\x{308}\x{304}", "\x{1DE}")); ok($objFi->eq("\x{1FD}", "$ae\x{301}")); ok($objFi->eq("\x{1FC}", "$AE\x{301}")); ok($objFi->eq("\x{1E3}", "$ae\x{304}")); ok($objFi->eq("\x{1E2}", "$AE\x{304}")); -ok($objFi->eq("o\x{308}", $ouml)); -ok($objFi->eq("O\x{308}", $Ouml)); ok($objFi->eq("o\x{308}\x{304}", "\x{22B}")); ok($objFi->eq("O\x{308}\x{304}", "\x{22A}")); -ok($objFi->eq("o\x{338}", $ostk)); -ok($objFi->eq("O\x{338}", $Ostk)); ok($objFi->eq("o\x{338}\x{301}", "\x{1FF}")); ok($objFi->eq("O\x{338}\x{301}", "\x{1FE}")); |