anchor.diff:          }, cancel.Token)
   
           Seq.takeWhile (fun test ->
  -          if Stopwatch.GetTimestamp() < finishTimestamp.Value then
  +          if Stopwatch.GetTimestamp() < finishTimestamp.Value
  +              && not ct.IsCancellationRequested then
               runningTests.Add test
               true
             else
  
positive.code: 
        return testSummary.errorCode
      }
  
    let testFromMember (mi: MemberInfo) : Test option =
      let inline unboxTest v =
  
negative.code:             Async.Parallel parallel
              |> Async.map (Seq.concat >> Seq.toList)
            else
              Async.foldParallelWithCancel noWorkers ct (@) [] parallel
  
          if List.isEmpty sequenced |> not && List.isEmpty parallel |> not then
            do! config.printer.info "Starting sequenced tests..."
  
          return! Async.foldSequentiallyWithCancel ct cons parallelResults sequenced
        }
  
    /// Evaluates tests.
    let evalTests config test =
      evalTestsWithCancel CancellationToken.None config test
  
    let evalTestsSilent test =
      let config =
  