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
141
142
143
144
145
146
147
148
|
#!/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:
|
