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 => 52 }; | |
16 | ||
584e761d CBW |
17 | use strict; |
18 | use warnings; | |
19 | use Unicode::Collate::Locale; | |
20 | ||
68adb2b0 CBW |
21 | ok(1); |
22 | ||
23 | ######################### | |
584e761d CBW |
24 | |
25 | my $objKo = Unicode::Collate::Locale-> | |
26 | new(locale => 'KO', normalization => undef); | |
27 | ||
584e761d CBW |
28 | ok($objKo->getlocale, 'ko'); |
29 | ||
30 | $objKo->change(level => 1); | |
31 | ||
32 | ok($objKo->eq("\x{AC00}", "\x{4F3D}")); | |
33 | ok($objKo->eq("\x{4F3D}", "\x{4F73}")); | |
34 | ok($objKo->eq("\x{4F73}", "\x{5047}")); | |
35 | ok($objKo->eq("\x{5047}", "\x{50F9}")); | |
36 | ok($objKo->eq("\x{50F9}", "\x{52A0}")); | |
37 | ok($objKo->eq("\x{52A0}", "\x{53EF}")); | |
38 | ok($objKo->lt("\x{53EF}", "\x{AC01}")); | |
39 | ||
40 | ok($objKo->eq("\x{AC1D}", "\x{5580}")); | |
41 | ok($objKo->eq("\x{5580}", "\x{5BA2}")); | |
42 | ok($objKo->lt("\x{5BA2}", "\x{AC31}")); | |
43 | ||
44 | ok($objKo->eq("\x{C77C}", "\x{4E00}")); | |
45 | ok($objKo->eq("\x{4E00}", "\x{4F5A}")); | |
46 | ok($objKo->eq("\x{4F5A}", "\x{4F7E}")); | |
47 | ||
48 | ok($objKo->lt("\x{993C}", "\x{D790}")); | |
49 | ok($objKo->eq("\x{D790}", "\x{8A70}")); | |
50 | ok($objKo->eq("\x{8A70}", "\x{72B5}")); | |
51 | ok($objKo->eq("\x{72B5}", "\x{7E88}")); | |
52 | ok($objKo->eq("\x{7E88}", "\x{896D}")); | |
53 | ok($objKo->eq("\x{896D}", "\x{9821}")); | |
54 | ok($objKo->eq("\x{9821}", "\x{9EE0}")); | |
55 | ||
56 | # 22 | |
57 | ||
68adb2b0 CBW |
58 | # Ext.B |
59 | ok($objKo->lt("\x{20000}", "\x{20001}")); | |
60 | ok($objKo->lt("\x{20001}", "\x{20002}")); | |
61 | ok($objKo->lt("\x{20002}", "\x{20003}")); | |
62 | ok($objKo->lt("\x{20003}", "\x{20004}")); | |
63 | ok($objKo->lt("\x{20004}", "\x{20005}")); | |
64 | ||
65 | # 27 | |
66 | ||
584e761d CBW |
67 | $objKo->change(level => 2); |
68 | ||
69 | ok($objKo->lt("\x{AC00}", "\x{4F3D}")); | |
70 | ok($objKo->lt("\x{4F3D}", "\x{4F73}")); | |
71 | ok($objKo->lt("\x{4F73}", "\x{5047}")); | |
72 | ok($objKo->lt("\x{5047}", "\x{50F9}")); | |
73 | ok($objKo->lt("\x{50F9}", "\x{52A0}")); | |
74 | ok($objKo->lt("\x{52A0}", "\x{53EF}")); | |
75 | ok($objKo->lt("\x{53EF}", "\x{AC01}")); | |
76 | ||
77 | ok($objKo->lt("\x{AC1D}", "\x{5580}")); | |
78 | ok($objKo->lt("\x{5580}", "\x{5BA2}")); | |
79 | ok($objKo->lt("\x{5BA2}", "\x{AC31}")); | |
80 | ||
81 | ok($objKo->lt("\x{C77C}", "\x{4E00}")); | |
82 | ok($objKo->lt("\x{4E00}", "\x{4F5A}")); | |
83 | ok($objKo->lt("\x{4F5A}", "\x{4F7E}")); | |
84 | ||
85 | ok($objKo->lt("\x{993C}", "\x{D790}")); | |
86 | ok($objKo->lt("\x{D790}", "\x{8A70}")); | |
87 | ok($objKo->lt("\x{8A70}", "\x{72B5}")); | |
88 | ok($objKo->lt("\x{72B5}", "\x{7E88}")); | |
89 | ok($objKo->lt("\x{7E88}", "\x{896D}")); | |
90 | ok($objKo->lt("\x{896D}", "\x{9821}")); | |
91 | ok($objKo->lt("\x{9821}", "\x{9EE0}")); | |
92 | ||
68adb2b0 CBW |
93 | # 47 |
94 | ||
95 | # Ext.B | |
96 | ok($objKo->lt("\x{20000}", "\x{20001}")); | |
97 | ok($objKo->lt("\x{20001}", "\x{20002}")); | |
98 | ok($objKo->lt("\x{20002}", "\x{20003}")); | |
99 | ok($objKo->lt("\x{20003}", "\x{20004}")); | |
100 | ok($objKo->lt("\x{20004}", "\x{20005}")); | |
101 | ||
102 | # 52 |