This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
The Grand Trek: move the *.t files from t/ to lib/ and ext/.
[perl5.git] / lib / Locale / Codes / t / uk.t
1 #!./perl
2 #
3 # uk.t - tests for Locale::Country with "uk" aliases to "gb"
4 #
5
6 BEGIN {
7         chdir 't' if -d 't';
8         @INC = '../lib';
9 }
10
11 use Locale::Country;
12
13 Locale::Country::_alias_code('uk' => 'gb');
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;