1 BEGIN { $| = 1; print "1..4\n"; }
2 END {print "not ok 1\n" unless $loaded;}
7 # testing format_date_in_iso
8 my $format= display_date_format ();
10 if ($format eq 'mm/dd/yyyy'){
13 elsif ($format eq 'dd/mm/yyyy'){
16 elsif ($format eq 'yyyy-mm-dd'){
19 $date=format_date_in_iso($date);
20 if ($date eq '1973-05-21'){
28 $date=format_date($date);
29 if ($format eq 'mm/dd/yyyy'){
30 if ($date eq '05/21/1973'){
37 elsif ($format eq 'dd/mm/yyyy'){
38 if ($date eq '21/05/1973'){
45 elsif ($format eq 'yyyy-mm-dd'){
46 if ($date eq '1973-05-21'){
59 ($date,$invaliddate) = fixdate('2007','06','31');