anchor.diff:    //[<Obsolete>]
     member __.RunSynchronouslyAllTests progress tests =
       // Keep forward sequence.
  -    let testResultsList = tests |> Seq.map (TestRunnerImpl.asyncRunSynchronouslyTest progress) |> Seq.map Async.RunSynchronously
  -    let testResults = testResultsList |> Seq.collect (fun tr -> tr) |> Seq.toArray
  +    let testResultsList = tests |> Seq.map (TestRunnerImpl.asyncRunSynchronouslyTest progress >> Async.RunSynchronously)
  +    let testResults = testResultsList |> Seq.collect id |> Seq.toArray
       let errors = testResults |> Seq.sumBy TestRunnerImpl.countErrors
       { Errors = errors; Results = testResults }
         
  
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:     }) |> Async.Parallel
  
    let asyncSequential xs = async {
      let list = ResizeArray<'T>()
      for asy in xs do
        let! v = asy
        list.Add(v)
  