let run_test_tt conf logger runner chooser test =
let () =
Printexc.record_backtrace true
in
let () =
(* TODO: move into perform test. *)
List.iter
(fun (k, v) ->
OUnitLogger.report logger (GlobalEvent (GConf (k, v))))
(OUnitConf.dump conf)
in
(* Now start the test *)
let running_time, test_results =
time_fun (perform_test conf logger runner chooser) test
in
(* TODO: move into perform test. *)
(* Print test report *)
OUnitLogger.report logger
(GlobalEvent
(GResults (running_time,
test_results,
OUnitTest.test_case_count test)));
(* Reset logger. *)
OUnitLogger.close logger;
(* Return the results possibly for further processing *)
test_results