Update Unicode-Collate to CPAN version 0.79

  [DELTA]

  0.79  Sun Oct  2 20:31:01 2011
    - pod: [rt.cpan.org #70241] Fix minor grammar error in manpage
            by Harlan Lieberman-Berg.
    - 'suppress' no longer affects contractions via 'entry'.
    - U::C::Locale newly supports locales: as, fi__phonebook, gu.
    - added loc_as.t, loc_fiph.t, loc_gu in t.
    - updated some locales to CLDR 2.0 : ar, be, bg.

1 files changed, 34 insertions, 7 deletions

diff --git a/cpan/Unicode-Collate/t/loc_ar.t b/cpan/Unicode-Collate/t/loc_ar.t
index 089c30b899..4faabda1c6 100644
--- a/cpan/Unicode-Collate/t/loc_ar.t
+++ b/cpan/Unicode-Collate/t/loc_ar.t
@@ -12,7 +12,7 @@ BEGIN {
 }
 
 use Test;
-BEGIN { plan tests => 8 };
+BEGIN { plan tests => 30 };
 
 use strict;
 use warnings;
@@ -30,13 +30,40 @@ ok($objAr->getlocale, 'ar');
 $objAr->change(level => 1);
 
 ok($objAr->eq("\x{62A}", "\x{629}"));
-ok($objAr->eq("\x{62A}", "\x{FE93}"));
-ok($objAr->eq("\x{62A}", "\x{FE94}"));
+ok($objAr->eq("\x{64A}", "\x{649}"));
+
+# 4
+
+$objAr->change(level => 2);
+
+ok($objAr->lt("\x{62A}", "\x{629}"));
+ok($objAr->eq("\x{629}", "\x{FE94}"));
+ok($objAr->eq("\x{FE94}","\x{FE93}"));
+
+ok($objAr->lt("\x{64A}", "\x{649}"));
+ok($objAr->eq("\x{649}", "\x{FBE8}"));
+ok($objAr->eq("\x{FBE8}","\x{FBE9}"));
+ok($objAr->eq("\x{FBE9}","\x{FEF0}"));
+ok($objAr->eq("\x{FEF0}","\x{FEEF}"));
+ok($objAr->eq("\x{FEEF}","\x{FC90}"));
+ok($objAr->eq("\x{FC90}","\x{FC5D}"));
+
+# 14
 
 $objAr->change(level => 3);
 
-ok($objAr->eq("\x{62A}", "\x{629}"));
-ok($objAr->eq("\x{62A}", "\x{FE93}"));
-ok($objAr->eq("\x{62A}", "\x{FE94}"));
+for my $up_lo (0, 1) {
+  $objAr->change(upper_before_lower => $up_lo);
+
+  ok($objAr->lt("\x{629}", "\x{FE94}"));
+  ok($objAr->lt("\x{FE94}","\x{FE93}"));
+
+  ok($objAr->lt("\x{649}", "\x{FBE8}"));
+  ok($objAr->lt("\x{FBE8}","\x{FBE9}"));
+  ok($objAr->lt("\x{FBE9}","\x{FEF0}"));
+  ok($objAr->lt("\x{FEF0}","\x{FEEF}"));
+  ok($objAr->lt("\x{FEEF}","\x{FC90}"));
+  ok($objAr->lt("\x{FC90}","\x{FC5D}"));
+}
 
-# 8
+# 30