64 lines
1.1 KiB
Perl
64 lines
1.1 KiB
Perl
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";
|
|
}
|