1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
|
(*i $Id: test.ml,v 1.5 2008/02/05 15:36:21 signoles Exp $ i*)
(* Display the results *)
let ok =
Test_timezone.ok + Test_time.ok + Test_ftime.ok
+ Test_date.ok + Test_calendar.ok + Test_pcalendar.ok
+ Test_fcalendar.ok + Test_fpcalendar.ok
+ Test_printer.ok;;
let bug =
Test_timezone.bug + Test_time.bug + Test_ftime.bug
+ Test_date.bug + Test_calendar.bug + Test_pcalendar.bug
+ Test_fcalendar.bug + Test_fpcalendar.bug
+ Test_printer.bug;;
Printf.printf "final results:\n";;
Printf.printf "tests ok : %d; tests ko : %d\n" ok bug;;
assert (bug >= 0);;
if bug > 0 then exit 1;;
|
