anchor.diff:  //demo
   context "Test Context"
   
  -"Skipped test" &&! fun ctx -> ()
  +"Skipped test" &&! fun _ -> ()
   
   "Todo test" &&& todo
   
  
positive.code:       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 ->
      let rec loop () =
        async {
          let! msg = self.Receive ()
          match msg with
          | Worker.Run ->
            runtest suite test
            manager.Post(Manager.WorkerDone)
            return ()
        }
  
negative.code: 
  let maxDOP = 30
  
  let private runtest (test : Test) =
    reporter.Post(Reporter.TestStart(test.Description, test.Id))
    if System.Object.ReferenceEquals(test.Func, todo) then
      reporter.Post(Reporter.Todo test.Id)
  