anchor.diff:    let rec asyncRunSynchronouslyTest progress test =
       match test with
       | Context context ->
  -      context.Children |> Seq.map (fun child -> async {
  -        let! results = asyncRunSynchronouslyTest progress child
  -        return new ContextResult(context, results) :> ResultNode
  +      context.Children |> Seq.map (fun child -> async {
  +        let! results = asyncRunSynchronouslyTest progress child
  +        return new ContextResult(context, results) :> ResultNode
         }) |> asyncSequential
       | TestCase testCase -> async {
           let! result = testCase.AsyncRun()
  
positive.code: 
      // Run tests with entire full parallelism.
      testCases
        // Include only fqtn
        |> Seq.filter (fun testCase -> containsKey testCase.UniqueName)
        // Map test case to async runner (with callback side effect)
        |> Seq.map (fun testCase -> TestRunnerImpl.asyncRunTest callback.Invoke testCase)
        // Full parallelism
        |> Async.Parallel
        // Synchronous execution
  
negative.code:   /// Collect test objects and run tests.
    member __.AsyncRunSynchronouslyAllTests progress tests = async {
      let! testResultsList = tests |> Seq.map (TestRunnerImpl.asyncRunSynchronouslyTest progress) |> TestRunnerImpl.asyncSequential
      let testResults = testResultsList |> Array.collect id
      let errors = testResults |> Seq.sumBy TestRunnerImpl.countErrors
      return { Errors = errors; Results = testResults }
    }
  