Commit | Line | Data |
47a334e9 |
1 | #!./perl |
2 | # |
3 | # uk.t - tests for Locale::Country with "uk" aliases to "gb" |
4 | # |
5 | |
a8135056 |
6 | BEGIN { |
7 | chdir 't' if -d 't'; |
8 | @INC = '../lib'; |
9 | } |
10 | |
47a334e9 |
11 | use Locale::Country; |
12 | |
917211f5 |
13 | Locale::Country::alias_code('uk' => 'gb'); |
47a334e9 |
14 | |
15 | #----------------------------------------------------------------------- |
16 | # This is an array of tests. Each test is eval'd as an expression. |
17 | # If it evaluates to FALSE, then "not ok N" is printed for the test, |
18 | # otherwise "ok N". |
19 | #----------------------------------------------------------------------- |
20 | @TESTS = |
21 | ( |
22 | #================================================ |
23 | # TESTS FOR code2country |
24 | #================================================ |
25 | |
26 | #---- selection of examples which should all result in undef ----------- |
27 | '!defined code2country()', # no argument |
28 | '!defined code2country(undef)', # undef argument |
29 | '!defined code2country("zz")', # illegal code |
30 | '!defined code2country("ja")', # should be jp for country |
31 | |
32 | #---- some successful examples ----------------------------------------- |
33 | 'code2country("BO") eq "Bolivia"', |
34 | 'code2country("pk") eq "Pakistan"', |
35 | 'code2country("sn") eq "Senegal"', |
36 | 'code2country("us") eq "United States"', |
37 | 'code2country("ad") eq "Andorra"', # first in DATA segment |
38 | 'code2country("zw") eq "Zimbabwe"', # last in DATA segment |
39 | 'code2country("uk") eq "United Kingdom"', # normally "gb" |
40 | |
41 | #================================================ |
42 | # TESTS FOR country2code |
43 | #================================================ |
44 | |
45 | #---- selection of examples which should all result in undef ----------- |
46 | '!defined country2code()', # no argument |
47 | '!defined country2code(undef)', # undef argument |
48 | '!defined country2code("Banana")', # illegal country name |
49 | |
50 | #---- some successful examples ----------------------------------------- |
51 | 'country2code("japan") eq "jp"', |
52 | 'country2code("japan") ne "ja"', |
53 | 'country2code("Japan") eq "jp"', |
54 | 'country2code("United States") eq "us"', |
55 | 'country2code("United Kingdom") eq "uk"', |
56 | 'country2code("Andorra") eq "ad"', # first in DATA segment |
57 | 'country2code("Zimbabwe") eq "zw"', # last in DATA segment |
58 | ); |
59 | |
60 | print "1..", int(@TESTS), "\n"; |
61 | |
62 | $testid = 1; |
63 | foreach $test (@TESTS) |
64 | { |
65 | eval "print (($test) ? \"ok $testid\\n\" : \"not ok $testid\\n\" )"; |
66 | print "not ok $testid\n" if $@; |
67 | ++$testid; |
68 | } |
69 | |
70 | exit 0; |