t/lib/lc-constants.t

   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;