Adding more tests, it now tests the exported functions

diff --git a/t/Date.t b/t/Date.t
index 56b7cbc..b182802 100644 (file)
--- a/t/Date.t
+++ b/t/Date.t
@@ -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";
+}