anchor.diff:    ]
   
   [<Test>]
  +[<Timeout 5000>]
   let ``should fallback to timeoutexception when task never cancels``() =
       use consoleTrace = Logging.event.Publish |> Observable.subscribe Logging.traceToConsole
       let config = """
  
positive.code:     cts.Cancel()
  
  [<Test>]
  let ``cancellation fsharp.core``() =
  
      let StartCatchCancellation cancellationToken (work) =
  
negative.code:             |> ignore
      } |> Async.Start
  
      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()
  