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 |> List.rev
  +          let workers = suites |> List.map (fun suite -> suite.Tests |> List.map (fun test -> newWorker self test)) |> List.concat |> List.rev
             return! loop workers workers.Length 0
           | Manager.Start ->
             //kick off the initial X workers
  
positive.code: //demo
  context "Test Context"
  
  "Skipped test" &&! fun ctx -> ()
  
  "Todo test" &&& todo
  
  
negative.code:     loop [] 0 0)
  
  let run () =
    // suites list is in reverse order and have to be reversed before running the tests
    suites <- List.rev suites
    let manager = newManager()
  