Update Unicode-Collate to CPAN version 1.27
[perl.git] / cpan / Unicode-Collate / t / loc_fr.t
index 772f609..a863805 100644 (file)
@@ -16,7 +16,7 @@ BEGIN {
 
 use strict;
 use warnings;
-BEGIN { $| = 1; print "1..27\n"; }
+BEGIN { $| = 1; print "1..63\n"; }
 my $count = 0;
 sub ok ($;$) {
     my $p = my $r = shift;
@@ -82,3 +82,44 @@ ok($objFr->eq("\x{1E3}", "$ae\x{304}"));
 ok($objFr->eq("\x{1E2}", "$AE\x{304}"));
 
 # 27
+
+ok($objFr->eq("a\x{300}", pack('U', 0xE0)));
+ok($objFr->eq("A\x{300}", pack('U', 0xC0)));
+ok($objFr->eq("e\x{300}", pack('U', 0xE8)));
+ok($objFr->eq("E\x{300}", pack('U', 0xC8)));
+ok($objFr->eq("i\x{300}", pack('U', 0xEC)));
+ok($objFr->eq("I\x{300}", pack('U', 0xCC)));
+ok($objFr->eq("o\x{300}", pack('U', 0xF2)));
+ok($objFr->eq("O\x{300}", pack('U', 0xD2)));
+ok($objFr->eq("u\x{300}", pack('U', 0xF9)));
+ok($objFr->eq("U\x{300}", pack('U', 0xD9)));
+ok($objFr->eq("y\x{300}", "\x{1EF3}"));
+ok($objFr->eq("Y\x{300}", "\x{1EF2}"));
+
+ok($objFr->eq("a\x{301}", pack('U', 0xE1)));
+ok($objFr->eq("A\x{301}", pack('U', 0xC1)));
+ok($objFr->eq("e\x{301}", pack('U', 0xE9)));
+ok($objFr->eq("E\x{301}", pack('U', 0xC9)));
+ok($objFr->eq("i\x{301}", pack('U', 0xED)));
+ok($objFr->eq("I\x{301}", pack('U', 0xCD)));
+ok($objFr->eq("o\x{301}", pack('U', 0xF3)));
+ok($objFr->eq("O\x{301}", pack('U', 0xD3)));
+ok($objFr->eq("u\x{301}", pack('U', 0xFA)));
+ok($objFr->eq("U\x{301}", pack('U', 0xDA)));
+ok($objFr->eq("y\x{301}", pack('U', 0xFD)));
+ok($objFr->eq("Y\x{301}", pack('U', 0xDD)));
+
+ok($objFr->eq("a\x{308}", pack('U', 0xE4)));
+ok($objFr->eq("A\x{308}", pack('U', 0xC4)));
+ok($objFr->eq("e\x{308}", pack('U', 0xEB)));
+ok($objFr->eq("E\x{308}", pack('U', 0xCB)));
+ok($objFr->eq("i\x{308}", pack('U', 0xEF)));
+ok($objFr->eq("I\x{308}", pack('U', 0xCF)));
+ok($objFr->eq("o\x{308}", pack('U', 0xF6)));
+ok($objFr->eq("O\x{308}", pack('U', 0xD6)));
+ok($objFr->eq("u\x{308}", pack('U', 0xFC)));
+ok($objFr->eq("U\x{308}", pack('U', 0xDC)));
+ok($objFr->eq("y\x{308}", pack('U', 0xFF)));
+ok($objFr->eq("Y\x{308}", "\x{178}"));
+
+# 63