Commit | Line | Data |
---|---|---|
6709de88 CBW |
1 | #!perl |
2 | use strict; | |
3 | use warnings; | |
4 | use Unicode::Collate::Locale; | |
5 | ||
6 | use Test; | |
7 | plan tests => 7; | |
8 | ||
9 | my $objUk = Unicode::Collate::Locale-> | |
10 | new(locale => 'UK', normalization => undef); | |
11 | ||
12 | ok(1); | |
13 | ok($objUk->getlocale, 'uk'); | |
14 | ||
15 | $objUk->change(level => 1); | |
16 | ||
17 | ok($objUk->lt("\x{433}", "\x{491}")); | |
18 | ok($objUk->gt("\x{434}", "\x{491}")); | |
19 | ||
20 | # 4 | |
21 | ||
22 | $objUk->change(level => 2); | |
23 | ||
24 | ok($objUk->eq("\x{491}", "\x{490}")); | |
25 | ||
26 | $objUk->change(level => 3); | |
27 | ||
28 | ok($objUk->lt("\x{491}", "\x{490}")); | |
29 | ||
30 | $objUk->change(upper_before_lower => 1); | |
31 | ||
32 | ok($objUk->gt("\x{491}", "\x{490}")); | |
33 | ||
34 | # 7 |