lib/Locale/Codes/t/constants.t

   1 #!./perl
   2 #
   3 # constants.t - tests for Locale::Constants
   4 #
   5
   6 BEGIN {
   7         chdir 't' if -d 't';
   8         @INC = '../lib';
   9 }
  10
  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;