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)