Added some tests.

[fedora-mingw.git] / ocaml-calendar / test_time.ml

diff --git a/ocaml-calendar/test_time.ml b/ocaml-calendar/test_time.ml
new file mode 100644 (file)
index 0000000..4c034d9
--- /dev/null
+++ b/ocaml-calendar/test_time.ml
@@ -0,0 +1,53 @@
+(*i $Id: test_time.ml,v 1.10 2008/02/08 10:36:14 signoles Exp $ i*)
+
+Printf.printf "Tests of Time:\n";;
+
+open CalendarLib
+open Time;;
+include Gen_test;;
+reset ();;
+
+Time_Zone.change (Time_Zone.UTC_Plus 10);;
+
+test (make 30 60 80 = make 31 1 20) "30-60-80 = 31-1-20";;
+test (normalize (make 22 0 0) = (make 22 0 0, 0)) "normalize 22-0-0";;
+test (normalize (make 73 0 0) = (make 1 0 0, 3)) "normalize 73-0-0";;
+test (normalize (make (-73) 0 0) = (make 23 0 0, -4)) "normalize (-73)-0-0";;
+test (add (make 20 0 0) (Period.minute 70) = make 21 10 0) "add 20-0-0 70mn";;
+test (next (make 20 3 31) `Minute = make 20 4 31) "next 20-3-31 `Minute";
+test (prev (make 20 3 31) `Second = make 20 3 30) "prev 20-3-31 `Second";;
+test (sub (make 6 5 4) (make 4 5 6) = Period.make 1 59 58) "sub 6-5-4 4-5-6";;
+test (convert (make 20 0 0) (Time_Zone.UTC_Plus 2) (Time_Zone.UTC_Plus 4) = 
+       make 22 0 0) "convert";;
+test (to_gmt (make 20 0 0) = make 10 0 0) "to_gmt";;
+test (from_gmt (make 20 0 0) = make 30 0 0) "from_gmt";;
+test (midnight () = make 0 0 0) "midnight";;
+test (midday () = make 12 0 0) "midday";;
+test (hour (make 20 0 0) = 20) "hour";;
+test (minute (make 20 10 0) = 10) "minute";;
+test (second (make 20 10 5) = 5) "second";;
+
+let one_two_three = make 1 2 3;;
+test (to_seconds one_two_three = 3723) "to_seconds";;
+test (to_minutes one_two_three = 62.05) "to_minutes";;
+test (to_hours (make 1 3 0) = 1.05) "to_hours";;
+test (from_seconds 3723 = from_minutes 62.05) "from_seconds; from_minutes";;
+test (from_hours 1.05 = make 1 3 0) "from_hours";;
+test (is_pm (midnight ())) "is_pm midnight";;
+test (is_pm (make 10 0 0)) "is_pm 10-0-0";;
+test (is_pm (make 34 0 0)) "is_pm 34-0-0";;
+test (not (is_pm (make (- 10) 0 0))) "not (is_pm (- 10) 0 0)";;
+test (is_am (midday ())) "is_am midday";;
+test (is_am (make 20 0 0)) "is_am 20-0-0";;
+test (is_am (make (- 34) 0 0)) "is_am (- 34) 0 0";;
+test (not (is_am (make 34 0 0))) "not (is_pm 34 0 0)";;
+
+let one_two_three = Period.make 1 2 3;;
+test (Period.to_seconds one_two_three = 3723) "Period.to_seconds";;
+test (Period.to_minutes one_two_three = 62.05) "Period.to_minutes";;
+test (Period.to_hours (Period.make 1 3 0) = 1.05) "Period.to_hours";;
+
+let ok = nb_ok ();;
+let bug = nb_bug ();;
+Printf.printf "tests ok : %d; tests ko : %d\n" ok bug;;
+flush stdout;;