let result_msg =
function
| RSuccess -> "Success"
| RError (msg, _)
| RFailure (msg, _, _)
| RSkip msg
| RTodo msg -> msg
| RTimeout test_length ->
Printf.sprintf "Timeout after %.1fs" (delay_of_length test_length)