otest.ml

(* compile with: ocamlopt -a otest.ml -o otest.cmxa *)

class test = object(self)
    val mutable pass : int = 0
    val mutable fail : int = 0
    val start_time = Unix.gettimeofday ()

    method private pass_test name s =
        pass <- pass + 1;
        Printf.printf "PASSED: %s (%fs)\n" name (Unix.gettimeofday () -. s)

    method private fail_test name s =
        fail <- fail + 1;
        Printf.printf "FAILED: %s (%fs)\n" name (Unix.gettimeofday () -. s)

    method check name fn =
        let res = fn () in
        let t = Unix.gettimeofday () in
        if res then self#pass_test name t
        else self#fail_test name t

    method finish () =
        print_endline "----------";
        Printf.printf "Passed: %d\n" pass;
        Printf.printf "Failed: %d\n" fail;
        print_endline "----------";
        Printf.printf "Total: %d (%fs)\n" (pass + fail) (Unix.gettimeofday () -. start_time);
        print_endline "----------";
end;;

Random.self_init ();;

let random_int start finish =
    start + (Random.int (finish - start));;

let random_float start finish =
    start +. (Random.float (finish -. start));;

let random_bool () =
    Random.bool ();;

let create () =
    new test;;