t/Koha.t

   1 BEGIN { $| = 1; print "1..2\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