gistfile1.fs

  let findOk result item = 
        result 
        |> successTee (fun (obj, msgs) ->
            let found = msgs |> List.toSeq |> Seq.tryFind (fun(m) -> m = item)
            match found with
            | Some msg -> msg |> should be (sameAs item)
            | None -> failwith(sprintf "%s not found" item)
        )

    let findFailure result item = 
        result 
        |> failureTee (fun (msgs) ->
            let found = msgs |> List.toSeq |> Seq.tryFind (fun(m) -> m = item)
            match found with
            | Some msg -> msg |> should be (sameAs item)
            | None -> failwith(sprintf "%s not found" item)
        )