anchor.diff:      }) |> Async.Parallel
   
     let asyncSequential xs = async {
  -    let list = new ResizeArray<'T>()
  +    let list = ResizeArray<'T>()
       for asy in xs do
         let! v = asy
         list.Add(v)
  
positive.code:   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
        }) |> asyncSequential
      | TestCase testCase -> async {
          let! result = testCase.AsyncRun()
  
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 }
    }
  