Updated Unicode-Collate to CPAN version 0.76

[perl5.git] / cpan / Unicode-Collate / t / loc_nb.t

diff --git a/cpan/Unicode-Collate/t/loc_nb.t b/cpan/Unicode-Collate/t/loc_nb.t
index 4ad8352..4de166a 100644 (file)
--- a/cpan/Unicode-Collate/t/loc_nb.t
+++ b/cpan/Unicode-Collate/t/loc_nb.t
@@ -1,10 +1,26 @@
-#!perl
+
+BEGIN {
+    unless ("A" eq pack('U', 0x41)) {
+       print "1..0 # Unicode::Collate " .
+           "cannot stringify a Unicode code point\n";
+       exit 0;
+    }
+    if ($ENV{PERL_CORE}) {
+       chdir('t') if -d 't';
+       @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
+    }
+}
+
+use Test;
+BEGIN { plan tests => 95 };
+

 use strict;
 use warnings;
 use Unicode::Collate::Locale;
 
 use strict;
 use warnings;
 use Unicode::Collate::Locale;
 

-use Test;
-plan tests => 83;
+ok(1);
+
+#########################

 
 my $eth  = pack 'U', 0xF0;
 my $ETH  = pack 'U', 0xD0;
 
 my $eth  = pack 'U', 0xF0;
 my $ETH  = pack 'U', 0xD0;


@@ -26,24 +42,22 @@ my $Arng = pack 'U', 0xC5;
 my $objNb = Unicode::Collate::Locale->
     new(locale => 'NB', normalization => undef);
 
 my $objNb = Unicode::Collate::Locale->
     new(locale => 'NB', normalization => undef);
 

-ok(1);

 ok($objNb->getlocale, 'nb');
 
 $objNb->change(level => 1);
 
 ok($objNb->getlocale, 'nb');
 
 $objNb->change(level => 1);
 

-ok($objNb->lt("z", $ae));
+ok($objNb->lt('z', $ae));

 ok($objNb->lt($ae, $ostk));
 ok($objNb->lt($ostk, $arng));
 ok($objNb->lt($ae, $ostk));
 ok($objNb->lt($ostk, $arng));

-ok($objNb->lt($arng, "\x{0292}"));
+ok($objNb->lt($arng, "\x{1C0}"));

 
 # 6
 
 ok($objNb->eq('d', "\x{111}"));
 ok($objNb->eq("\x{111}", $eth));
 ok($objNb->eq('y', $uuml));
 
 # 6
 
 ok($objNb->eq('d', "\x{111}"));
 ok($objNb->eq("\x{111}", $eth));
 ok($objNb->eq('y', $uuml));

-ok($objNb->eq($uuml, "\x{0171}"));
-
-ok($objNb->eq($ae,   $auml));
+ok($objNb->eq($uuml, "\x{171}"));
+ok($objNb->eq($ae, $auml));

 ok($objNb->eq($auml, "\x{119}"));
 ok($objNb->eq($ostk, $ouml));
 ok($objNb->eq($ouml, "\x{151}"));
 ok($objNb->eq($auml, "\x{119}"));
 ok($objNb->eq($ostk, $ouml));
 ok($objNb->eq($ouml, "\x{151}"));


@@ -56,9 +70,8 @@ $objNb->change(level => 2);
 ok($objNb->lt('d', "\x{111}"));
 ok($objNb->lt("\x{111}", $eth));
 ok($objNb->lt('y', $uuml));
 ok($objNb->lt('d', "\x{111}"));
 ok($objNb->lt("\x{111}", $eth));
 ok($objNb->lt('y', $uuml));

-ok($objNb->lt($uuml, "\x{0171}"));
-
-ok($objNb->lt($ae,   $auml));
+ok($objNb->lt($uuml, "\x{171}"));
+ok($objNb->lt($ae, $auml));

 ok($objNb->lt($auml, "\x{119}"));
 ok($objNb->lt($ostk, $ouml));
 ok($objNb->lt($ouml, "\x{151}"));
 ok($objNb->lt($auml, "\x{119}"));
 ok($objNb->lt($ostk, $ouml));
 ok($objNb->lt($ouml, "\x{151}"));


@@ -112,29 +125,41 @@ ok($objNb->eq("u\x{308}", $uuml));
 ok($objNb->eq("U\x{308}", $Uuml));
 ok($objNb->eq("u\x{30B}", "\x{171}"));
 ok($objNb->eq("U\x{30B}", "\x{170}"));
 ok($objNb->eq("U\x{308}", $Uuml));
 ok($objNb->eq("u\x{30B}", "\x{171}"));
 ok($objNb->eq("U\x{30B}", "\x{170}"));

-ok($objNb->eq("\x{1FD}", "$ae\x{301}"));
-ok($objNb->eq("\x{1FC}", "$AE\x{301}"));
-ok($objNb->eq("\x{1E3}", "$ae\x{304}"));
-ok($objNb->eq("\x{1E2}", "$AE\x{304}"));
-
-# 66
-

 ok($objNb->eq("a\x{308}", $auml));
 ok($objNb->eq("A\x{308}", $Auml));
 ok($objNb->eq("e\x{328}", "\x{119}"));
 ok($objNb->eq("E\x{328}", "\x{118}"));
 ok($objNb->eq("o\x{338}", $ostk));
 ok($objNb->eq("O\x{338}", $Ostk));
 ok($objNb->eq("a\x{308}", $auml));
 ok($objNb->eq("A\x{308}", $Auml));
 ok($objNb->eq("e\x{328}", "\x{119}"));
 ok($objNb->eq("E\x{328}", "\x{118}"));
 ok($objNb->eq("o\x{338}", $ostk));
 ok($objNb->eq("O\x{338}", $Ostk));

-ok($objNb->eq("o\x{338}\x{301}", "\x{1FF}"));
-ok($objNb->eq("O\x{338}\x{301}", "\x{1FE}"));

 ok($objNb->eq("o\x{308}", $ouml));
 ok($objNb->eq("O\x{308}", $Ouml));
 ok($objNb->eq("o\x{30B}", "\x{151}"));
 ok($objNb->eq("O\x{30B}", "\x{150}"));
 ok($objNb->eq("a\x{30A}", $arng));
 ok($objNb->eq("A\x{30A}", $Arng));
 ok($objNb->eq("o\x{308}", $ouml));
 ok($objNb->eq("O\x{308}", $Ouml));
 ok($objNb->eq("o\x{30B}", "\x{151}"));
 ok($objNb->eq("O\x{30B}", "\x{150}"));
 ok($objNb->eq("a\x{30A}", $arng));
 ok($objNb->eq("A\x{30A}", $Arng));

+
+# 74
+
+ok($objNb->eq("u\x{308}\x{300}", "\x{1DC}"));
+ok($objNb->eq("U\x{308}\x{300}", "\x{1DB}"));
+ok($objNb->eq("u\x{308}\x{301}", "\x{1D8}"));
+ok($objNb->eq("U\x{308}\x{301}", "\x{1D7}"));
+ok($objNb->eq("u\x{308}\x{304}", "\x{1D6}"));
+ok($objNb->eq("U\x{308}\x{304}", "\x{1D5}"));
+ok($objNb->eq("u\x{308}\x{30C}", "\x{1DA}"));
+ok($objNb->eq("U\x{308}\x{30C}", "\x{1D9}"));
+ok($objNb->eq("\x{1FD}", "$ae\x{301}"));
+ok($objNb->eq("\x{1FC}", "$AE\x{301}"));
+ok($objNb->eq("\x{1E3}", "$ae\x{304}"));
+ok($objNb->eq("\x{1E2}", "$AE\x{304}"));
+ok($objNb->eq("a\x{308}\x{304}", "\x{1DF}"));
+ok($objNb->eq("A\x{308}\x{304}", "\x{1DE}"));
+ok($objNb->eq("o\x{338}\x{301}", "\x{1FF}"));
+ok($objNb->eq("O\x{338}\x{301}", "\x{1FE}"));
+ok($objNb->eq("o\x{308}\x{304}", "\x{22B}"));
+ok($objNb->eq("O\x{308}\x{304}", "\x{22A}"));

 ok($objNb->eq("A\x{30A}", "\x{212B}"));
 ok($objNb->eq("a\x{30A}\x{301}", "\x{1FB}"));
 ok($objNb->eq("A\x{30A}\x{301}", "\x{1FA}"));
 
 ok($objNb->eq("A\x{30A}", "\x{212B}"));
 ok($objNb->eq("a\x{30A}\x{301}", "\x{1FB}"));
 ok($objNb->eq("A\x{30A}\x{301}", "\x{1FA}"));
 

-# 83
+# 95