anchor.diff:  
               Async.StartWithContinuations(
                   computation,
  -                (fun _ -> failwith "success not expected"),
  +                (fun _ -> failwith (sprintf "%s -- success not expected -- iteration %d" testcaseName i)),
                   (fun _ -> incr()),
                   (fun _ -> incr()),
                   cts.Token
  
positive.code:     member this.``RaceBetweenCancellationAndError.Parallel``() =
          [| for i in 1 .. 1000 -> async { return i } |]
          |> fun cs -> Async.Parallel(cs, 1)
          |> testErrorAndCancelRace
  
      [<Test>]
      member this.``error on one workflow should cancel all others with maxDegreeOfParallelism``() =
  
negative.code:         let disposedEvent = new System.Threading.ManualResetEvent(false)
          dispose disposedEvent
  
          testErrorAndCancelRace "RaceBetweenCancellationAndError.AwaitWaitHandle" (Async.AwaitWaitHandle disposedEvent)
  
      [<Test>]
      member this.``RaceBetweenCancellationAndError.Sleep``() =
          testErrorAndCancelRace "RaceBetweenCancellationAndError.Sleep" (Async.Sleep -5)
  
  #if EXPENSIVE
  #if NET46
  