- Rebase to Fedora native version 2.15.0.
[fedora-mingw.git] / ocaml-calendar / test.ml
1 (*i $Id: test.ml,v 1.6 2008/07/07 09:42:17 signoles Exp $ i*)
2
3 (* Display the results *)
4
5 let ok = 
6   Test_timezone.ok + Test_time.ok + Test_ftime.ok 
7   + Test_date.ok + Test_calendar.ok + Test_pcalendar.ok 
8   + Test_fcalendar.ok + Test_fpcalendar.ok
9   + Test_printer.ok;;
10
11 let bug =
12   Test_timezone.bug + Test_time.bug + Test_ftime.bug
13   + Test_date.bug + Test_calendar.bug + Test_pcalendar.bug 
14   + Test_fcalendar.bug + Test_fpcalendar.bug
15   + Test_printer.bug;;
16
17 Printf.printf "\nFinal results:\n";;
18 Printf.printf "tests ok : %d; tests ko : %d\n" ok bug;;
19
20 assert (bug >= 0);;
21
22 if bug > 0 then exit 1;;