updated testing

This commit is contained in:
pate 2002-05-31 20:35:54 +00:00
parent dcd45fb1ac
commit d9adf8154f
2 changed files with 15 additions and 1 deletions

14
t/koha.t Normal file
View File

@ -0,0 +1,14 @@
BEGIN { $| = 1; print "1..2\n"; }
END {print "not ok 1\n" unless $loaded;}
use C4::Koha;
$loaded = 1;
print "ok 1\n";
$date = "01/01/2002";
$newdate = &slashifyDate("2002-01-01");
if ($date eq $newdate) {
print "ok 2\n";
} else {
print "not ok 2\n";
}

View File

@ -4,4 +4,4 @@ use strict;
use Test::Harness;
runtests 'koha.t';
runtests 't/koha.t';