5 $runtests=shift(@ARGV);
6 if ( -f "t/testfunc.pl" ) {
7 require "t/testfunc.pl";
10 } elsif ( -f "testfunc.pl" ) {
11 require "testfunc.pl";
15 die "ERROR: cannot find testfunc.pl\n";
21 %type = ( "LOCALE_CODE_ALPHA_2" => LOCALE_CODE_ALPHA_2,
22 "LOCALE_CODE_ALPHA_3" => LOCALE_CODE_ALPHA_3,
23 "LOCALE_CODE_NUMERIC" => LOCALE_CODE_NUMERIC,
28 $test[1] = $type{$test[1]} if (@test == 2 && $test[1] && exists $type{$test[1]});
29 return code2country(@test);
40 zz LOCALE_CODE_ALPHA_2 ~ _undef_
42 zz LOCALE_CODE_ALPHA_3 ~ _undef_
44 zz LOCALE_CODE_NUMERIC ~ _undef_
52 Bolivia, Plurinational State of
57 Bolivia, Plurinational State of
62 Bolivia (Plurinational State of)
74 ad LOCALE_CODE_ALPHA_2 ~ Andorra
76 and LOCALE_CODE_ALPHA_3 ~ Andorra
78 020 LOCALE_CODE_NUMERIC ~ Andorra
80 48 LOCALE_CODE_NUMERIC ~ Bahrain
92 tl LOCALE_CODE_ALPHA_2 ~ Timor-Leste
94 tls LOCALE_CODE_ALPHA_3 ~ Timor-Leste
96 626 LOCALE_CODE_NUMERIC ~ Timor-Leste
98 BO LOCALE_CODE_ALPHA_3 ~ _undef_
100 BO LOCALE_CODE_NUMERIC ~ _undef_
126 rou LOCALE_CODE_ALPHA_3 ~ Romania
130 print "code2country...\n";
131 test_Func(\&test,$tests,$runtests);
136 # indent-tabs-mode: nil
137 # cperl-indent-level: 3
138 # cperl-continued-statement-offset: 2
139 # cperl-continued-brace-offset: 0
140 # cperl-brace-offset: 0
141 # cperl-brace-imaginary-offset: 0
142 # cperl-label-offset: -2