let is_timeout =
  function
    | RTimeout _ -> true
    | RSuccess | RFailure _ | RError _  | RSkip _ | RTodo _ -> false