anchor.diff:          match msg with
           | Manager.Initialize (suites) ->
             //build a worker per suite/test combo and give them their work
  -          let workers = suites |> List.map (fun suite -> suite.Tests |> List.map (fun test -> newWorker self suite test)) |> List.concat
  +          let workers = suites |> List.map (fun suite -> suite.Tests |> List.map (fun test -> newWorker self suite test)) |> List.concat |> List.rev
             return! loop workers
           | Manager.Start ->
             //kick off the initial X workers
  
positive.code: 
  let private reporter = newReporter()
  let mutable suites = [new Suite()]
  let mutable todo = fun () -> ()
  let mutable skipped = fun _ -> ()
  
  let context c =
  
negative.code: let maxDOP = 30
  
  let private runtest (suite : Suite) (test : Test) =
    reporter.Post(Reporter.TestStart(test.Description, test.Id))
    if System.Object.ReferenceEquals(test.Func, todo) then
      reporter.Post(Reporter.Todo test.Id)
    else if System.Object.ReferenceEquals(test.Func, skipped) then
      reporter.Post(Reporter.Skip test.Id)
    else
      try
        test.Func (TestContext(test.Id, reporter))
        reporter.Post(Reporter.Pass test.Id)
      with ex -> reporter.Post(Reporter.Fail(test.Id, ex))
  
  let newWorker (manager : actor<Manager>) suite test : actor<Worker> =
    actor.Start(fun self ->
  