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