anchor.diff:  
   let private reporter = newReporter()
   let mutable suites = [new Suite()]
  -let mutable todo = fun () -> ()
  +let mutable todo = fun _ -> ()
   let mutable skipped = fun _ -> ()
   
   let context c =
  
positive.code:         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
            return! loop workers
          | Manager.Start ->
            //kick off the initial X workers
  
negative.code: //demo
  context "Test Context"
  
  
  "Skipped test" &&! fun ctx ->
    ()
  
  "Todo test" &&& todo
  
  [1..50]
  |> List.iter (fun i ->
    sprintf "Test %i" i &&& fun ctx ->
      ctx.printfn "A guid %A" (ng())
      ctx.printfn "I am test %i" i
      if i % 10 = 0 then failwith "mod error"
      ctx.printfn "A guid %A" (ng()))
  
  run()
  
  