Update Unicode-Collate to CPAN version 0.87
[perl.git] / cpan / Unicode-Collate / t / loc_fr.t
1
2 BEGIN {
3     unless ("A" eq pack('U', 0x41)) {
4         print "1..0 # Unicode::Collate " .
5             "cannot stringify a Unicode code point\n";
6         exit 0;
7     }
8     if ($ENV{PERL_CORE}) {
9         chdir('t') if -d 't';
10         @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
11     }
12 }
13
14 use Test;
15 BEGIN { plan tests => 27 };
16
17 use strict;
18 use warnings;
19 use Unicode::Collate::Locale;
20
21 ok(1);
22
23 #########################
24
25 my $ae = pack 'U', 0xE6;
26 my $AE = pack 'U', 0xC6;
27
28 my $objFr = Unicode::Collate::Locale->
29     new(locale => 'FR', normalization => undef);
30
31 ok($objFr->getlocale, 'fr');
32 ok($objFr->locale_version, 0.87);
33
34 $objFr->change(level => 1);
35
36 ok($objFr->eq($ae, "ae"));
37 ok($objFr->eq($AE, "AE"));
38 ok($objFr->eq("\x{1FD}", $ae));
39 ok($objFr->eq("\x{1FC}", $AE));
40 ok($objFr->eq("\x{1E3}", $ae));
41 ok($objFr->eq("\x{1E2}", $AE));
42
43 # 9
44
45 $objFr->change(level => 2);
46
47 ok($objFr->gt($ae, "ae"));
48 ok($objFr->gt($AE, "AE"));
49 ok($objFr->gt("\x{1FD}", $ae));
50 ok($objFr->gt("\x{1FC}", $AE));
51 ok($objFr->gt("\x{1E3}", $ae));
52 ok($objFr->gt("\x{1E2}", $AE));
53
54 ok($objFr->eq($ae, $AE));
55 ok($objFr->eq($AE, "\x{1D2D}"));
56 ok($objFr->eq("$ae\x{304}", "$AE\x{304}"));
57 ok($objFr->eq("$ae\x{301}", "$AE\x{301}"));
58
59 # 19
60
61 $objFr->change(level => 3);
62
63 ok($objFr->lt($ae, $AE));
64 ok($objFr->lt($AE, "\x{1D2D}"));
65 ok($objFr->lt("$ae\x{304}", "$AE\x{304}"));
66 ok($objFr->lt("$ae\x{301}", "$AE\x{301}"));
67
68 ok($objFr->eq("\x{1FD}", "$ae\x{301}"));
69 ok($objFr->eq("\x{1FC}", "$AE\x{301}"));
70 ok($objFr->eq("\x{1E3}", "$ae\x{304}"));
71 ok($objFr->eq("\x{1E2}", "$AE\x{304}"));
72
73 # 27