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 ();;