- Rebase to Fedora native version 2.15.0.
[fedora-mingw.git] / ocaml-calendar / gen_test.ml
1 (*i $Id: gen_test.ml,v 1.2 2008/02/01 10:48:33 signoles Exp $ i*)
2
3 let ok_ref = ref 0
4 let ok () = incr ok_ref
5 let nb_ok () = !ok_ref
6
7 let bug_ref = ref 0
8 let bug () = incr bug_ref
9 let nb_bug () = !bug_ref
10
11 let reset () =
12   ok_ref := 0;
13   bug_ref := 0
14
15 let test x s = 
16   if x then ok () else begin Printf.printf "%s\n" s; bug () end;;
17
18 let test_exn x s =
19   try
20     ignore (Lazy.force x);
21     Printf.printf "%s\n" s;
22     bug ()
23   with _ ->
24     ok ();;