anchor.diff:        reporter.Post(Reporter.Pass test.Id)
       with ex -> reporter.Post(Reporter.Fail(test.Id, ex))
   
  -let newWorker (manager : actor<Manager>) test : actor<Worker> =
  +let newWorker (manager : actor<Manager>) (suite:Suite) test : actor<Worker> =
     actor.Start(fun self ->
       let rec loop () =
         async {
  
positive.code: 
  let private reporter = newReporter()
  let mutable suites = [new Suite()]
  let mutable todo = fun _ -> ()
  let mutable skipped = fun _ -> ()
  
  let context c =
    if (last suites).Context = null then
  
negative.code:       }
      loop 0 0 0 0)
  
  let private last = function
    | hd :: _ -> hd
    | [] -> failwith "Empty list."
  