1#!./perl
2#
3# constants.t - tests for Locale::Constants
4#
5
6BEGIN {
7        chdir 't' if -d 't';
8        @INC = '../lib';
9}
10
11use Locale::Constants;
12
13print "1..3\n";
14
15if (defined LOCALE_CODE_ALPHA_2
16    && defined LOCALE_CODE_ALPHA_3
17    && defined LOCALE_CODE_NUMERIC)
18{
19    print "ok 1\n";
20}
21else
22{
23    print "not ok 1\n";
24}
25
26if (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}
32else
33{
34    print "not ok 2\n";
35}
36
37if (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}
44else
45{
46    print "not ok 3\n";
47}
48
49exit 0;
50