Commit | Line | Data |
---|---|---|
68adb2b0 CBW |
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 => 32 }; | |
16 | ||
1393fe00 CBW |
17 | use strict; |
18 | use warnings; | |
19 | use Unicode::Collate::Locale; | |
20 | ||
68adb2b0 CBW |
21 | ok(1); |
22 | ||
23 | ######################### | |
1393fe00 CBW |
24 | |
25 | my $auml = pack 'U', 0xE4; | |
26 | my $Auml = pack 'U', 0xC4; | |
27 | my $ouml = pack 'U', 0xF6; | |
28 | my $Ouml = pack 'U', 0xD6; | |
29 | my $uuml = pack 'U', 0xFC; | |
30 | my $Uuml = pack 'U', 0xDC; | |
31 | ||
32 | my $objDe = Unicode::Collate::Locale-> | |
33 | new(locale => 'DE', normalization => undef); | |
34 | ||
1393fe00 CBW |
35 | ok($objDe->getlocale, 'default'); |
36 | ||
37 | $objDe->change(level => 1); | |
38 | ||
39 | ok($objDe->lt("a\x{308}", "ae")); | |
40 | ok($objDe->lt("A\x{308}", "AE")); | |
41 | ok($objDe->lt("o\x{308}", "oe")); | |
42 | ok($objDe->lt("O\x{308}", "OE")); | |
43 | ok($objDe->lt("u\x{308}", "ue")); | |
44 | ok($objDe->lt("U\x{308}", "UE")); | |
45 | ||
46 | # 8 | |
47 | ||
48 | ok($objDe->eq("a\x{308}", "a")); | |
49 | ok($objDe->eq("A\x{308}", "A")); | |
50 | ok($objDe->eq("o\x{308}", "o")); | |
51 | ok($objDe->eq("O\x{308}", "O")); | |
52 | ok($objDe->eq("u\x{308}", "u")); | |
53 | ok($objDe->eq("U\x{308}", "U")); | |
54 | ||
55 | # 14 | |
56 | ||
57 | $objDe->change(level => 2); | |
58 | ||
59 | ok($objDe->gt("a\x{308}", "a")); | |
60 | ok($objDe->gt("A\x{308}", "A")); | |
61 | ok($objDe->gt("o\x{308}", "o")); | |
62 | ok($objDe->gt("O\x{308}", "O")); | |
63 | ok($objDe->gt("u\x{308}", "u")); | |
64 | ok($objDe->gt("U\x{308}", "U")); | |
65 | ||
c02ee425 CBW |
66 | ok($objDe->eq("a\x{308}", "A\x{308}")); |
67 | ok($objDe->eq("o\x{308}", "O\x{308}")); | |
68 | ok($objDe->eq("u\x{308}", "U\x{308}")); | |
69 | ||
70 | # 23 | |
71 | ||
72 | $objDe->change(level => 3); | |
73 | ||
74 | ok($objDe->lt("a\x{308}", "A\x{308}")); | |
75 | ok($objDe->lt("o\x{308}", "O\x{308}")); | |
76 | ok($objDe->lt("u\x{308}", "U\x{308}")); | |
77 | ||
78 | ok($objDe->eq("a\x{308}", $auml)); | |
79 | ok($objDe->eq("A\x{308}", $Auml)); | |
80 | ok($objDe->eq("o\x{308}", $ouml)); | |
81 | ok($objDe->eq("O\x{308}", $Ouml)); | |
82 | ok($objDe->eq("u\x{308}", $uuml)); | |
83 | ok($objDe->eq("U\x{308}", $Uuml)); | |
84 | ||
85 | # 32 |