1 print "WARNING: This module (C4::Date) is obsolete.
2 Developers should use C4::Dates instead!\n";
4 BEGIN { $| = 1; print "1..4\n"; }
5 END {print "not ok 1\n" unless $loaded;}
10 # testing format_date_in_iso
11 my $format= display_date_format ();
13 if ($format eq 'mm/dd/yyyy'){
16 elsif ($format eq 'dd/mm/yyyy'){
19 elsif ($format eq 'yyyy-mm-dd'){
22 $date=format_date_in_iso($date);
23 if ($date eq '1973-05-21'){
31 $date=format_date($date);
32 if ($format eq 'mm/dd/yyyy'){
33 if ($date eq '05/21/1973'){
40 elsif ($format eq 'dd/mm/yyyy'){
41 if ($date eq '21/05/1973'){
48 elsif ($format eq 'yyyy-mm-dd'){
49 if ($date eq '1973-05-21'){
62 ($date,$invaliddate) = fixdate('2007','06','31');