anchor.diff:                        s=InParallel ||
                         not(Seq.exists (fun t -> t.sequenced=s) runningTests)
                       )
  -                 |> asyncRun
  -                      (Async.foldParallelWithCancel (numWorkers true config))
  -                      (runningTests,results,maxMemory)
  +                 |> asyncRun (fun cancel ->
  +                      Async.foldParallelLimitWithCancel cancel
  +                                (numberOfWorkers true config)
  +                    ) (runningTests,results,maxMemory)
                )
   
         w.Stop()
  
positive.code:             TestSummary.single (TestResult.Error e) (float w.ElapsedMilliseconds)
      }
  
    let private numWorkers limit config =
      if config.parallelWorkers < 0 then
        -config.parallelWorkers * Environment.ProcessorCount
      elif config.parallelWorkers = 0 then
  
negative.code: open System.Reflection
  open System.Diagnostics
  open System.Threading
  
  // TODO: move to internal
  type SourceLocation =
  