let worst_cmp result1 result2 =
  let rank =
    function
      | RSuccess -> 0
      | RSkip _ -> 1
      | RTodo _ -> 2
      | RFailure _ -> 3
      | RError _ -> 4
      | RTimeout _ -> 5
  in
    (rank result1) - (rank result2)