a1fe32d2f8
Input.t was replaced because it tested a now obsolete function. Input.pm has that function commented out. Several files were renamed to match their counterparts or correct misspellingz. Signed-off-by: Chris Cormack <crc@liblime.com> Signed-off-by: Joshua Ferraro <jmf@liblime.com>
64 lines
1.1 KiB
Perl
Executable file
64 lines
1.1 KiB
Perl
Executable file
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";
|
|
}
|