Update Unicode-Collate to CPAN version 0.59

  [DELTA]

  0.59  Sun Sep  5 17:03:52 2010
    - U::C::Locale newly supports locales: az, fil, ha, lt, mt, tr, wo, yo.
    - precomposites of a-uml, o-uml, and u-uml are tailored as well.
        (affected locales: da, et, fi, fo, is, kl, nb, nn, sk, sv)

1 files changed, 17 insertions, 2 deletions

diff --git a/cpan/Unicode-Collate/t/loc_fi.t b/cpan/Unicode-Collate/t/loc_fi.t
index bbddc08c02..afd6707206 100644
--- a/cpan/Unicode-Collate/t/loc_fi.t
+++ b/cpan/Unicode-Collate/t/loc_fi.t
@@ -4,7 +4,7 @@ use warnings;
 use Unicode::Collate::Locale;
 
 use Test;
-plan tests => 70;
+plan tests => 82;
 
 my $uuml = pack 'U', 0xFC;
 my $Uuml = pack 'U', 0xDC;
@@ -95,8 +95,19 @@ ok($objFi->lt($ostk, $Ostk));
 
 ok($objFi->eq("u\x{308}", $uuml));
 ok($objFi->eq("U\x{308}", $Uuml));
+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}"));
+ok($objFi->eq("U\x{308}\x{301}", "\x{1D7}"));
+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}"));
@@ -104,15 +115,19 @@ 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}"));
 
-# 70
+# 82