OUnitStateManipulate the state of OUnit runner.
type 'worker next_test_case_t = | Not_enough_worker| Try_again| Next_test_case of OUnitTest.path * OUnitTest.test_fun * 'worker| Finishedtype 'worker test_running = {test_length : OUnitTest.test_length;deadline : time;next_health_check : time;worker : 'worker;}type 'worker t = {tests_planned : (OUnitTest.path * (OUnitTest.test_length * OUnitTest.test_fun))
list;tests_running : (OUnitTest.path * 'worker test_running) list;tests_passed : (OUnitTest.result_full * OUnitTest.result_list) list;idle_workers : 'worker list;chooser : OUnitChooser.chooser;cache : OUnitCache.cache;health_check_interval : time;}val health_check_interval : float OUnitConf.varval create :
OUnitConf.conf ->
OUnitChooser.chooser ->
(OUnitTest.path * OUnitTest.test_length * OUnitTest.test_fun) list ->
'a tval maybe_dump_cache : OUnitConf.conf -> 'a t -> 'a tval add_test_results :
OUnitConf.conf ->
(OUnitTest.result_full * OUnitTest.result_list) ->
'a t ->
'b tval test_finished :
OUnitConf.conf ->
(OUnitTest.result_full * OUnitTest.result_list) ->
'a ->
'b t ->
'c tval count_worker : 'a t -> intval count_tests_running : 'a t -> intval get_workers : 'a t -> 'b listval get_idle_workers : 'a t -> 'a listval is_idle_worker : 'a -> 'b t -> boolval get_tests_running : 'a t -> OUnitTest.path listval next_test_case :
OUnitConf.conf ->
(OUnitTest.path, OUnitTest.result) OUnitLogger.logger ->
'a t ->
'b next_test_case_t * 'a tval get_results : 'a t -> OUnitTest.result_full listGet all the results.
val get_worker_need_health_check : 'a t -> (OUnitTest.path option * 'b) listGet all the workers that need to be checked for their health.
val update_test_activity : OUnitTest.path -> 'a t -> 'b tUpdate the activity of a worker, this postpone the next health check.
val get_worker_timed_out :
'a t ->
(OUnitTest.path * OUnitTest.test_length * 'b) listGet all the workers that are timed out, i.e. that need to be stopped.
val timeout : 'a t -> floatCompute when is the next time, we should either run health check or timeout a test.