let
get_tests_running state =
List
.map fst state.tests_running