1 2BEGIN { 3 if ($ENV{PERL_CORE}) { 4 chdir('t') if -d 't'; 5 @INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib); 6 } 7} 8 9use strict; 10use warnings; 11BEGIN { $| = 1; print "1..17\n"; } 12my $count = 0; 13sub 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 22use Unicode::Collate::Locale; 23 24ok(1); 25 26sub _pack_U { Unicode::Collate::pack_U(@_) } 27sub _unpack_U { Unicode::Collate::unpack_U(@_) } 28 29######################### 30 31my $objSw = Unicode::Collate::Locale-> 32 new(locale => 'SW', normalization => undef); 33 34ok($objSw->getlocale, 'default'); # no tailoring since 0.74 35 36$objSw->change(level => 1); 37 38ok($objSw->lt("c", "ch")); 39ok($objSw->gt("cz","ch")); 40ok($objSw->lt("d", "dh")); 41ok($objSw->gt("dz","dh")); 42ok($objSw->lt("g", "gh")); 43ok($objSw->gt("gz","gh")); 44ok($objSw->lt("k", "kh")); 45ok($objSw->gt("kz","kh")); 46ok($objSw->lt("n", "ng'")); 47ok($objSw->gt("ny","ng'")); 48ok($objSw->gt("nz","ny")); 49ok($objSw->lt("s", "sh")); 50ok($objSw->gt("sz","sh")); 51ok($objSw->lt("t", "th")); 52ok($objSw->gt("tz","th")); 53 54# 17 55