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
149
150
151
152
153
|
#!./perl
#
# country.t - tests for Locale::Country
#
use Locale::Country;
#-----------------------------------------------------------------------
# This is an array of tests specs. Each spec is [TEST, OK_TO_DIE]
# Each TEST is eval'd as an expression.
# If it evaluates to FALSE, then "not ok N" is printed for the test,
# otherwise "ok N". If the eval dies, then the OK_TO_DIE flag is checked.
# If it is true (1), the test is treated as passing, otherwise it failed.
#-----------------------------------------------------------------------
@TESTS =
(
#================================================
# TESTS FOR code2country
#================================================
#---- selection of examples which should all result in undef -----------
['!defined code2country()', 0], # no argument
['!defined code2country(undef)', 0], # undef argument
['!defined code2country("zz")', 0], # illegal code
['!defined code2country("zz", LOCALE_CODE_ALPHA_2)', 0], # illegal code
['!defined code2country("zz", LOCALE_CODE_ALPHA_3)', 0], # illegal code
['!defined code2country("zz", LOCALE_CODE_NUMERIC)', 0], # illegal code
['!defined code2country("ja")', 0], # should be jp for country
['!defined code2country("uk")', 0], # should be jp for country
#---- some successful examples -----------------------------------------
['code2country("BO") eq "Bolivia"', 0],
['code2country("BO", LOCALE_CODE_ALPHA_2) eq "Bolivia"', 0],
['code2country("bol", LOCALE_CODE_ALPHA_3) eq "Bolivia"', 0],
['code2country("pk") eq "Pakistan"', 0],
['code2country("sn") eq "Senegal"', 0],
['code2country("us") eq "United States"', 0],
['code2country("ad") eq "Andorra"', 0], # first in DATA segment
['code2country("ad", LOCALE_CODE_ALPHA_2) eq "Andorra"', 0],
['code2country("and", LOCALE_CODE_ALPHA_3) eq "Andorra"', 0],
['code2country("020", LOCALE_CODE_NUMERIC) eq "Andorra"', 0],
['code2country(48, LOCALE_CODE_NUMERIC) eq "Bahrain"', 0],
['code2country("zw") eq "Zimbabwe"', 0], # last in DATA segment
['code2country("gb") eq "United Kingdom"', 0], # United Kingdom is "gb", not "uk"
#-- tests added after changes in the standard 2002-05-20 ------
['code2country("kz") eq "Kazakhstan"', 0],
['country2code("kazakhstan") eq "kz"', 0],
['country2code("kazakstan") eq "kz"', 0],
['code2country("mo") eq "Macao"', 0],
['country2code("macao") eq "mo"', 0],
['country2code("macau") eq "mo"', 0],
['code2country("tl", LOCALE_CODE_ALPHA_2) eq "Timor-Leste"', 0],
['code2country("tls", LOCALE_CODE_ALPHA_3) eq "Timor-Leste"', 0],
['code2country("626", LOCALE_CODE_NUMERIC) eq "Timor-Leste"', 0],
#================================================
# TESTS FOR country2code
#================================================
#---- selection of examples which should all result in undef -----------
['!defined code2country("BO", LOCALE_CODE_ALPHA_3)', 0],
['!defined code2country("BO", LOCALE_CODE_NUMERIC)', 0],
['!defined country2code()', 0], # no argument
['!defined country2code(undef)', 0], # undef argument
['!defined country2code("Banana")', 0], # illegal country name
#---- some successful examples -----------------------------------------
['country2code("japan") eq "jp"', 0],
['country2code("japan") ne "ja"', 0],
['country2code("Japan") eq "jp"', 0],
['country2code("United States") eq "us"', 0],
['country2code("United Kingdom") eq "gb"', 0],
['country2code("Andorra") eq "ad"', 0], # first in DATA
['country2code("Zimbabwe") eq "zw"', 0], # last in DATA
['country2code("Iran") eq "ir"', 0], # alias
['country2code("North Korea") eq "kp"', 0], # alias
['country2code("South Korea") eq "kr"', 0], # alias
['country2code("Libya") eq "ly"', 0], # alias
['country2code("Syria") eq "sy"', 0], # alias
['country2code("Svalbard") eq "sj"', 0], # alias
['country2code("Jan Mayen") eq "sj"', 0], # alias
['country2code("USA") eq "us"', 0], # alias
['country2code("United States of America") eq "us"', 0], # alias
['country2code("Great Britain") eq "gb"', 0], # alias
#================================================
# TESTS FOR country_code2code
#================================================
#---- selection of examples which should all result in undef -----------
['!defined country_code2code("bo", LOCALE_CODE_ALPHA_3, LOCALE_CODE_ALPHA_3)', 0],
['!defined country_code2code("zz", LOCALE_CODE_ALPHA_2, LOCALE_CODE_ALPHA_3)', 0],
['!defined country_code2code("zz", LOCALE_CODE_ALPHA_3, LOCALE_CODE_ALPHA_3)', 0],
['!defined country_code2code("zz", LOCALE_CODE_ALPHA_2)', 1],
['!defined country_code2code("bo", LOCALE_CODE_ALPHA_2)', 1],
['!defined country_code2code()', 1], # no argument
['!defined country_code2code(undef)', 1], # undef argument
#---- some successful examples -----------------------------------------
['country_code2code("BO", LOCALE_CODE_ALPHA_2, LOCALE_CODE_ALPHA_3) eq "bol"', 0],
['country_code2code("bol", LOCALE_CODE_ALPHA_3, LOCALE_CODE_ALPHA_2) eq "bo"', 0],
['country_code2code("zwe", LOCALE_CODE_ALPHA_3, LOCALE_CODE_ALPHA_2) eq "zw"', 0],
['country_code2code("858", LOCALE_CODE_NUMERIC, LOCALE_CODE_ALPHA_3) eq "ury"', 0],
['country_code2code(858, LOCALE_CODE_NUMERIC, LOCALE_CODE_ALPHA_3) eq "ury"', 0],
['country_code2code("tr", LOCALE_CODE_ALPHA_2, LOCALE_CODE_NUMERIC) eq "792"', 0],
#-- tests added for 2.07 release
['country2code("Burma") eq "mm"', 0], # alias
['country2code("French Southern and Antarctic Lands") eq "tf"', 0], # alias
['code2country("ax") eq "Aland Islands"', 0],
['country2code("Aland Islands") eq "ax"', 0],
['code2country("ala", LOCALE_CODE_ALPHA_3) eq "Aland Islands"', 0],
['code2country("248", LOCALE_CODE_NUMERIC) eq "Aland Islands"', 0],
['country2code("Yugoslavia") eq "cs"', 0], # alias (old name)
['country2code("Serbia and Montenegro") eq "cs"', 0], # new name
['code2country("scg", LOCALE_CODE_ALPHA_3) eq "Serbia and Montenegro"', 0],
['code2country("891", LOCALE_CODE_NUMERIC) eq "Serbia and Montenegro"', 0],
['country2code("East Timor") eq "tl"', 0], # alias (provisional name)
['code2country("rou", LOCALE_CODE_ALPHA_3) eq "Romania"', 0],
['country2code("Zaire") eq "cd"', 0], # alias (old name)
['country2code("Congo, The Democratic Republic of the") eq "cd"', 0], # new name
['country2code("Congo, The Democratic Republic of the", LOCALE_CODE_ALPHA_3) eq "cod"', 0], # new name
['country2code("Congo, The Democratic Republic of the", LOCALE_CODE_NUMERIC) eq "180"', 0], # new name
);
print "1..", int(@TESTS), "\n";
$testid = 1;
foreach $test (@TESTS)
{
eval "print (($test->[0]) ? \"ok $testid\\n\" : \"not ok $testid\\n\" )";
if ($@)
{
if (!$test->[1])
{
print "not ok $testid\n";
}
else
{
print "ok $testid\n";
}
}
++$testid;
}
exit 0;
|
