anchor.diff:  open System.Reflection
   open System.Diagnostics
   open System.Threading
  +open System.Threading.Tasks
   
   // TODO: move to internal
   type SourceLocation =
  
positive.code:             )
  
          let! parallelResults =
            let noWorkers = numberOfWorkers false config
            if List.length parallel <= noWorkers then
              Async.Parallel parallel
              |> Async.map (Seq.concat >> Seq.toList)
            else
              Async.foldParallelLimit noWorkers (@) [] parallel
  
          if List.isEmpty sequenced |> not && List.isEmpty parallel |> not then
            do! config.printer.info "Starting sequenced tests..."
  
negative.code:                       s=InParallel ||
                        not(Seq.exists (fun t -> t.sequenced=s) runningTests)
                      )
                   |> asyncRun
                        (Async.foldParallelWithCancel (numWorkers true config))
                        (runningTests,results,maxMemory)
               )
  
        w.Stop()
  