Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

Adding more tests, it now tests the exported functions

Browse source
This commit is contained in:
rangi 2007-06-24 22:48:50 +00:00
parent 1c1f963416
commit 289d578bec
1 changed files with 60 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

61
t/Date.t
View file

@ -1,5 +1,64 @@
BEGIN { $| = 1; print "1..1\n"; }
BEGIN { $| = 1; print "1..4\n"; }
END {print "not ok 1\n" unless $loaded;}
use C4::Date;
$loaded = 1;
print "ok 1\n";
# testing format_date_in_iso
my $format= display_date_format ();
my $date;
if ($format eq 'mm/dd/yyyy'){
$date = '05/21/1973';
}
elsif ($format eq 'dd/mm/yyyy'){
$date = '21/05/1973';
}
elsif ($format eq 'yyyy-mm-dd'){
$date = '1973-05-21';
}
$date=format_date_in_iso($date);
if ($date eq '1973-05-21'){
print "ok 2\n";
}
else {
print "not ok 2\n";
}
# test format date
$date=format_date($date);
if ($format eq 'mm/dd/yyyy'){
if ($date eq '05/21/1973'){
print "ok 3\n";
}
else {
print "not ok 3\n";
}
}
elsif ($format eq 'dd/mm/yyyy'){
if ($date eq '21/05/1973'){
print "ok 3\n";
}
else {
print "not ok 3\n";
}
}
elsif ($format eq 'yyyy-mm-dd'){
if ($date eq '1973-05-21'){
print "ok 3\n";
}
else {
print "not ok 3\n";
}
}
else {
print "not ok3\n";
}
# test 4 fixdate
($date,$invaliddate) = fixdate('2007','06','31');
if ($invaliddate){
print "ok 4\n";
} else {
print "not ok 4\n";
}