Merge branch 'test_cases' of /home/koha/koha1/dev into to-push
This commit is contained in:
commit
5aced408c6
1 changed files with 10 additions and 14 deletions
24
t/Koha.t
24
t/Koha.t
|
@ -1,19 +1,15 @@
|
||||||
BEGIN { $| = 1; print "1..2\n"; }
|
#!/usr/bin/perl
|
||||||
END {print "not ok 1\n" unless $loaded;}
|
use strict;
|
||||||
use C4::Koha;
|
use warnings;
|
||||||
$loaded = 1;
|
|
||||||
print "ok 1\n";
|
use Test::More tests => 2;
|
||||||
|
|
||||||
|
use_ok('C4::Koha');
|
||||||
|
|
||||||
#
|
#
|
||||||
# test that &slashifyDate returns correct (non-US) date
|
# test that &slashifyDate returns correct (non-US) date
|
||||||
#
|
#
|
||||||
$date = "01/01/2002";
|
my $date = "01/01/2002";
|
||||||
$newdate = &slashifyDate("2002-01-01");
|
my $newdate = &slashifyDate("2002-01-01");
|
||||||
|
|
||||||
if ($date eq $newdate) {
|
|
||||||
print "ok 2\n";
|
|
||||||
} else {
|
|
||||||
print "not ok 2\n";
|
|
||||||
}
|
|
||||||
|
|
||||||
|
|
||||||
|
ok($date eq $newdate, 'slashifyDate');
|
||||||
|
|
Loading…
Reference in a new issue