1
2BEGIN {
3    unless ('A' eq pack('U', 0x41)) {
4	print "1..0 # Unicode::Collate cannot pack a Unicode code point\n";
5	exit 0;
6    }
7    unless (0x41 == unpack('U', 'A')) {
8	print "1..0 # Unicode::Collate cannot get a Unicode code point\n";
9	exit 0;
10    }
11    if ($ENV{PERL_CORE}) {
12	chdir('t') if -d 't';
13	@INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
14    }
15}
16
17use strict;
18use warnings;
19BEGIN { $| = 1; print "1..44\n"; }
20my $count = 0;
21sub ok ($;$) {
22    my $p = my $r = shift;
23    if (@_) {
24	my $x = shift;
25	$p = !defined $x ? !defined $r : !defined $r ? 0 : $r eq $x;
26    }
27    print $p ? "ok" : "not ok", ' ', ++$count, "\n";
28}
29
30use Unicode::Collate::Locale;
31
32ok(1);
33
34#########################
35
36my $objWo = Unicode::Collate::Locale->
37    new(locale => 'WO', normalization => undef);
38
39ok($objWo->getlocale, 'wo');
40
41$objWo->change(level => 1);
42
43ok($objWo->lt("a", "a\x{300}"));
44ok($objWo->lt("az","a\x{300}"));
45ok($objWo->gt("b", "a\x{300}"));
46ok($objWo->lt("e", "e\x{301}"));
47ok($objWo->lt("ez","e\x{301}"));
48ok($objWo->lt("e\x{301}", "e\x{308}"));
49ok($objWo->gt("f", "e\x{308}"));
50ok($objWo->lt("n", "n\x{303}"));
51ok($objWo->lt("nz","n\x{303}"));
52ok($objWo->lt("n\x{303}", "\x{14B}"));
53ok($objWo->gt("o", "\x{14B}"));
54ok($objWo->lt("o", "o\x{301}"));
55ok($objWo->lt("oz","o\x{301}"));
56ok($objWo->gt("p", "o\x{301}"));
57
58# 16
59
60$objWo->change(level => 2);
61
62ok($objWo->eq("a\x{300}", "A\x{300}"));
63ok($objWo->eq("e\x{301}", "E\x{301}"));
64ok($objWo->eq("e\x{308}", "E\x{308}"));
65ok($objWo->eq("n\x{303}", "N\x{303}"));
66ok($objWo->eq( "\x{14B}",  "\x{14A}"));
67ok($objWo->eq("o\x{301}", "O\x{301}"));
68
69# 22
70
71$objWo->change(level => 3);
72
73ok($objWo->lt("a\x{300}", "A\x{300}"));
74ok($objWo->lt("e\x{301}", "E\x{301}"));
75ok($objWo->lt("e\x{308}", "E\x{308}"));
76ok($objWo->lt("n\x{303}", "N\x{303}"));
77ok($objWo->lt( "\x{14B}",  "\x{14A}"));
78ok($objWo->lt("o\x{301}", "O\x{301}"));
79
80# 28
81
82ok($objWo->eq("a\x{300}", pack('U', 0xE0)));
83ok($objWo->eq("a\x{340}", pack('U', 0xE0)));
84ok($objWo->eq("A\x{300}", pack('U', 0xC0)));
85ok($objWo->eq("A\x{340}", pack('U', 0xC0)));
86ok($objWo->eq("e\x{301}", pack('U', 0xE9)));
87ok($objWo->eq("e\x{341}", pack('U', 0xE9)));
88ok($objWo->eq("E\x{301}", pack('U', 0xC9)));
89ok($objWo->eq("E\x{341}", pack('U', 0xC9)));
90ok($objWo->eq("e\x{308}", pack('U', 0xEB)));
91ok($objWo->eq("E\x{308}", pack('U', 0xCB)));
92ok($objWo->eq("n\x{303}", pack('U', 0xF1)));
93ok($objWo->eq("N\x{303}", pack('U', 0xD1)));
94ok($objWo->eq("o\x{301}", pack('U', 0xF3)));
95ok($objWo->eq("o\x{341}", pack('U', 0xF3)));
96ok($objWo->eq("O\x{301}", pack('U', 0xD3)));
97ok($objWo->eq("O\x{341}", pack('U', 0xD3)));
98
99# 44
100