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