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 $date = "01/01/2002";
   8 $newdate = &slashifyDate("2002-01-01");
   9
  10 if ($date eq $newdate) {
  11     print "ok 2\n";
  12 } else {
  13     print "not ok 2\n";
  14 }