let update_test_activity test_path state =
let now = OUnitUtils.now () in
let tests_running =
List.fold_right
(fun (test_path', test_running) lst ->
let test_running =
if test_path' = test_path then
{test_running with
next_health_check = now +. state.health_check_interval}
else
test_running
in
(test_path', test_running) :: lst)
state.tests_running
[]
in
{state with tests_running = tests_running}