let get_worker_need_health_check state =
let now = OUnitUtils.now () in
List.fold_left
(fun lst (test_path, test_running) ->
if test_running.next_health_check <= now then
(test_path, test_running.worker) :: lst
else
lst)
[]
state.tests_running