1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 131 132 133 134 135 136 137 138 139 140
|
BEGIN {
unless ("A" eq pack('U', 0x41)) {
print "1..0 # Unicode::Collate " .
"cannot stringify a Unicode code point\n";
exit 0;
}
if ($ENV{PERL_CORE}) {
chdir('t') if -d 't';
@INC = $^O eq 'MacOS' ? qw(::lib) : qw(../lib);
}
}
use Test;
BEGIN { plan tests => 120 };
use strict;
use warnings;
use Unicode::Collate::Locale;
ok(1);
#########################
our (@listEs, @listEsT, @listFr);
@listEs = qw(
cambio camella camello camelo Camern
chico chile Chile CHILE chocolate
cielo curso espacio espanto espaol esperanza lama lquido
llama Llama LLAMA llamar luz nos nueve u ojo
);
@listEsT = qw(
cambio camelo camella camello Camern cielo curso
chico chile Chile CHILE chocolate
espacio espanto espaol esperanza lama lquido luz
llama Llama LLAMA llamar nos nueve u ojo
);
@listFr = (
qw(
cadurcien ccum cCUM CCUM CCUM caennais csium cafard
coercitif cote cte Cte cot Cot ct Ct coter
lve lev gne gne MCON maon
pche PCHE pche PCHE pch PCH pcher pcher
relve relev rvle rvl
surlvation srement surminent sret
vice-consul vicennal vice-prsident vice-roi vicsimal),
"vice versa", "vice-versa",
);
ok(@listEs, 27);
ok(@listEsT, 27);
ok(@listFr, 46);
ok(Unicode::Collate::Locale::_locale('es_MX'), 'es');
ok(Unicode::Collate::Locale::_locale('en_CA'), 'default');
# 6
my $Collator = Unicode::Collate::Locale->
new(normalization => undef);
ok($Collator->getlocale, 'default');
ok(
join(':', $Collator->sort(
qw/ lib strict Carp ExtUtils CGI Time warnings Math overload Pod CPAN /
) ),
join(':',
qw/ Carp CGI CPAN ExtUtils lib Math overload Pod strict Time warnings /
),
);
ok($Collator->cmp("", ""), 0);
ok($Collator->eq("", ""));
ok($Collator->cmp("", "perl"), -1);
ok($Collator->gt("PERL", "perl"));
# 12
$Collator->change(level => 2);
ok($Collator->eq("PERL", "perl"));
my $objEs = Unicode::Collate::Locale->new
(normalization => undef, locale => 'ES');
ok($objEs->getlocale, 'es');
my $objEsT = Unicode::Collate::Locale->new
(normalization => undef, locale => 'es_ES_traditional');
ok($objEsT->getlocale, 'es__traditional');
my $objFr = Unicode::Collate::Locale->new
(normalization => undef, locale => 'FR');
ok($objFr->getlocale, 'fr');
# 16
sub randomize { my %hash; @hash{@_} = (); keys %hash; } # ?!
for (my $i = 0; $i < $#listEs; $i++) {
ok($objEs->lt($listEs[$i], $listEs[$i+1]));
}
# 42
for (my $i = 0; $i < $#listEsT; $i++) {
ok($objEsT->lt($listEsT[$i], $listEsT[$i+1]));
}
# 68
for (my $i = 0; $i < $#listFr; $i++) {
ok($objFr->lt($listFr[$i], $listFr[$i+1]));
}
# 113
our @randEs = randomize(@listEs);
our @sortEs = $objEs->sort(@randEs);
ok("@sortEs" eq "@listEs");
our @randEsT = randomize(@listEsT);
our @sortEsT = $objEsT->sort(@randEsT);
ok("@sortEsT" eq "@listEsT");
our @randFr = randomize(@listFr);
our @sortFr = $objFr->sort(@randFr);
ok("@sortFr" eq "@listFr");
# 116
{
my $keyXS = '__useXS'; # see Unicode::Collate internal
my $noLoc = Unicode::Collate->new(normalization => undef);
my $UseXS = ref($noLoc->{$keyXS});
ok(ref($Collator->{$keyXS}), $UseXS);
ok(ref($objFr ->{$keyXS}), $UseXS);
ok(ref($objEs ->{$keyXS}), $UseXS);
ok(ref($objEsT ->{$keyXS}), $UseXS);
}
# 120
|