Commit | Line | Data |
47a334e9 |
1 | #!./perl |
2 | # |
3 | # constants.t - tests for Locale::Constants |
4 | # |
5 | |
a8135056 |
6 | BEGIN { |
7 | chdir 't' if -d 't'; |
8 | @INC = '../lib'; |
9 | } |
10 | |
47a334e9 |
11 | use Locale::Constants; |
12 | |
13 | print "1..3\n"; |
14 | |
15 | if (defined LOCALE_CODE_ALPHA_2 |
16 | && defined LOCALE_CODE_ALPHA_3 |
17 | && defined LOCALE_CODE_NUMERIC) |
18 | { |
19 | print "ok 1\n"; |
20 | } |
21 | else |
22 | { |
23 | print "not ok 1\n"; |
24 | } |
25 | |
26 | if (LOCALE_CODE_ALPHA_2 != LOCALE_CODE_ALPHA_3 |
27 | && LOCALE_CODE_ALPHA_2 != LOCALE_CODE_NUMERIC |
28 | && LOCALE_CODE_ALPHA_3 != LOCALE_CODE_NUMERIC) |
29 | { |
30 | print "ok 2\n"; |
31 | } |
32 | else |
33 | { |
34 | print "not ok 2\n"; |
35 | } |
36 | |
37 | if (defined LOCALE_CODE_DEFAULT |
38 | && (LOCALE_CODE_DEFAULT == LOCALE_CODE_ALPHA_2 |
39 | || LOCALE_CODE_DEFAULT == LOCALE_CODE_ALPHA_3 |
40 | || LOCALE_CODE_DEFAULT == LOCALE_CODE_NUMERIC)) |
41 | { |
42 | print "ok 3\n"; |
43 | } |
44 | else |
45 | { |
46 | print "not ok 3\n"; |
47 | } |
48 | |
49 | exit 0; |