t/koha.t

   1 BEGIN { $| = 1; print "1..6\n"; }
   2 END {print "not ok 1\n" unless $loaded;}
   3 use C4::Koha;
   4 $loaded = 1;
   5 print "ok 1\n";
   6
   7 #
   8 # test that &slashifyDate returns correct (non-US) date
   9 #
  10 $date = "01/01/2002";
  11 $newdate = &slashifyDate("2002-01-01");
  12
  13 if ($date eq $newdate) {
  14     print "ok 2\n";
  15 } else {
  16     print "not ok 2\n";
  17 }
  18
  19 #
  20 # Check that &fixEthnicity returns correct values
  21 #
  22 if ('Maori' eq fixEthnicity('maori')) {
  23     print "ok 3\n";
  24 } else {
  25     print "not ok 3\n";
  26 }
  27 if ('European/Pakeha' eq fixEthnicity('european')) {
  28     print "ok 4\n";
  29 } else {
  30     print "not ok 4\n";
  31 }
  32 if ('Pacific Islander' eq fixEthnicity('pi')) {
  33     print "ok 5\n";
  34 } else {
  35     print "not ok 5\n";
  36 }
  37 if ('Asian' eq fixEthnicity('asian')) {
  38     print "ok 6\n";
  39 } else {
  40     print "not ok 6\n";
  41 }