anchor.diff:              |> ignore
       } |> Async.Start
   
  -    t.Wait(1000)
  -        |> shouldEqual true
  -    ()
  -
  -[<Test>]
  +    try
  +        let res = t.Wait(1000)
  +        Assert.Fail (sprintf "Excepted TimeoutException wrapped in an AggregateException, but got %A" res)
  +    with :? AggregateException as agg -> ()
  +
  +[<Test>]
  +[<Timeout 5000>]
   let ``cancellation WorkerQueue``() =
       use cts = new CancellationTokenSource()
       let workerQueue = ResolverRequestQueue.Create()
  
positive.code:   ]
  
  [<Test>]
  let ``should fallback to timeoutexception when task never cancels``() =
      use consoleTrace = Logging.event.Publish |> Observable.subscribe Logging.traceToConsole
      let config = """
  
negative.code:     cts.Cancel()
  
  [<Test>]
  [<Timeout 5000>]
  let ``cancellation fsharp.core``() =
  
      let StartCatchCancellation cancellationToken (work) =
  