anchor.diff:  let ( &&! ) description _ =
       (last suites).Tests <- Test(description, skipped, ng())::(last suites).Tests
   
  -let maxDOP = 30
  -
   let private runtest (test : Test) =
     reporter.Post(Reporter.TestStart(test.Description, test.Id))
     if System.Object.ReferenceEquals(test.Func, todo) then
  
positive.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()
    manager.Post(Manager.Initialize(suites))
    manager.Post(Manager.Start)
  
  
negative.code:     if i % 10 = 0 then failwith "mod error"
      ctx.printfn "A guid %A" (ng()))
  
  let maxDOP = 30
  run maxDOP
  
  System.Console.ReadKey() |> ignore
  