#!/usr/bin/perl -w
require 5.002;
$runtests=shift(@ARGV);
if ( -f "t/testfunc.pl" ) {
require "t/testfunc.pl";
$dir="./lib";
$tdir="t";
} elsif ( -f "testfunc.pl" ) {
require "testfunc.pl";
$dir="../lib";
$tdir=".";
} else {
die "ERROR: cannot find testfunc.pl\n";
}
unshift(@INC,$dir);
use Locale::Codes::Country;
%type = ( "LOCALE_CODE_ALPHA_2" => LOCALE_CODE_ALPHA_2,
"LOCALE_CODE_ALPHA_3" => LOCALE_CODE_ALPHA_3,
"LOCALE_CODE_NUMERIC" => LOCALE_CODE_NUMERIC,
);
sub test {
my(@test) = @_;
$test[1] = $type{$test[1]} if (@test == 2 && $test[1] && exists $type{$test[1]});
return code2country(@test);
}
$tests = "
~ _undef_
_undef_ ~ _undef_
zz ~ _undef_
zz LOCALE_CODE_ALPHA_2 ~ _undef_
zz LOCALE_CODE_ALPHA_3 ~ _undef_
zz LOCALE_CODE_NUMERIC ~ _undef_
ja ~ _undef_
uk ~ _undef_
BO
~
Bolivia, Plurinational State of
BO
LOCALE_CODE_ALPHA_2
~
Bolivia, Plurinational State of
bol
LOCALE_CODE_ALPHA_3
~
Bolivia (Plurinational State of)
pk ~ Pakistan
sn ~ Senegal
us
~
United States
ad ~ Andorra
ad LOCALE_CODE_ALPHA_2 ~ Andorra
and LOCALE_CODE_ALPHA_3 ~ Andorra
020 LOCALE_CODE_NUMERIC ~ Andorra
48 LOCALE_CODE_NUMERIC ~ Bahrain
zw ~ Zimbabwe
gb
~
United Kingdom
kz ~ Kazakhstan
mo ~ Macao
tl LOCALE_CODE_ALPHA_2 ~ Timor-Leste
tls LOCALE_CODE_ALPHA_3 ~ Timor-Leste
626 LOCALE_CODE_NUMERIC ~ Timor-Leste
BO LOCALE_CODE_ALPHA_3 ~ _undef_
BO LOCALE_CODE_NUMERIC ~ _undef_
ax
~
Aland Islands
ala
LOCALE_CODE_ALPHA_3
~
Aland Islands
248
LOCALE_CODE_NUMERIC
~
Aland Islands
scg
LOCALE_CODE_ALPHA_3
~
_undef_
891
LOCALE_CODE_NUMERIC
~
_undef_
rou LOCALE_CODE_ALPHA_3 ~ Romania
zr ~ _undef_
zr retired ~ Zaire
";
print "code2country...\n";
test_Func(\&test,$tests,$runtests);
1;
# Local Variables:
# mode: cperl
# indent-tabs-mode: nil
# cperl-indent-level: 3
# cperl-continued-statement-offset: 2
# cperl-continued-brace-offset: 0
# cperl-brace-offset: 0
# cperl-brace-imaginary-offset: 0
# cperl-label-offset: -2
# End: