Commit | Line | Data |
---|---|---|
68adb2b0 CBW |
1 | |
2 | BEGIN { | |
68adb2b0 CBW |
3 | if ($ENV{PERL_CORE}) { |
4 | chdir('t') if -d 't'; | |
5 | @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib); | |
6 | } | |
7 | } | |
8 | ||
6484f676 CBW |
9 | use strict; |
10 | use warnings; | |
cba8842c A |
11 | BEGIN { $| = 1; print "1..17\n"; } |
12 | my $count = 0; | |
13 | sub ok ($;$) { | |
14 | my $p = my $r = shift; | |
15 | if (@_) { | |
16 | my $x = shift; | |
17 | $p = !defined $x ? !defined $r : !defined $r ? 0 : $r eq $x; | |
18 | } | |
19 | print $p ? "ok" : "not ok", ' ', ++$count, "\n"; | |
20 | } | |
21 | ||
6484f676 CBW |
22 | use Unicode::Collate::Locale; |
23 | ||
68adb2b0 CBW |
24 | ok(1); |
25 | ||
983d5bee TS |
26 | sub _pack_U { Unicode::Collate::pack_U(@_) } |
27 | sub _unpack_U { Unicode::Collate::unpack_U(@_) } | |
28 | ||
68adb2b0 | 29 | ######################### |
6484f676 CBW |
30 | |
31 | my $objSw = Unicode::Collate::Locale-> | |
32 | new(locale => 'SW', normalization => undef); | |
33 | ||
fcd4e2f8 | 34 | ok($objSw->getlocale, 'default'); # no tailoring since 0.74 |
6484f676 CBW |
35 | |
36 | $objSw->change(level => 1); | |
37 | ||
19265284 CBW |
38 | ok($objSw->lt("c", "ch")); |
39 | ok($objSw->gt("cz","ch")); | |
6484f676 | 40 | ok($objSw->lt("d", "dh")); |
19265284 | 41 | ok($objSw->gt("dz","dh")); |
6484f676 | 42 | ok($objSw->lt("g", "gh")); |
19265284 | 43 | ok($objSw->gt("gz","gh")); |
6484f676 | 44 | ok($objSw->lt("k", "kh")); |
19265284 | 45 | ok($objSw->gt("kz","kh")); |
6484f676 | 46 | ok($objSw->lt("n", "ng'")); |
19265284 CBW |
47 | ok($objSw->gt("ny","ng'")); |
48 | ok($objSw->gt("nz","ny")); | |
6484f676 | 49 | ok($objSw->lt("s", "sh")); |
19265284 | 50 | ok($objSw->gt("sz","sh")); |
6484f676 | 51 | ok($objSw->lt("t", "th")); |
19265284 | 52 | ok($objSw->gt("tz","th")); |
6484f676 | 53 | |
19265284 | 54 | # 17 |