let
count_tests_running state =
List
.length state.tests_running