anchor.diff:              reporter.testEnd test.Id 
           
           failureMessage <- null            
  +
  +    // suites list is in reverse order and have to be reversed before running the tests
  +    suites <- List.rev suites
           
       //run all the suites
       if runFailedContextsFirst = true then
  
positive.code:     else 
          let s = new suite()
          s.Context <- c
          suites <- suites @ [s]
  let private incrementLastTestSuite () =
      let lastSuite = last suites
      lastSuite.TotalTestsCount <- lastSuite.TotalTestsCount + 1
      lastSuite
  let ( &&& ) description f = 
      let lastSuite = incrementLastTestSuite()
      lastSuite.Tests <- lastSuite.Tests @ [Test(description, f, lastSuite.TotalTestsCount)]
  let test f = null &&& f
  let ntest description f = description &&& f
  let ( &&&& ) description f = 
      let lastSuite = incrementLastTestSuite()
      lastSuite.Wips <- lastSuite.Wips @ [Test(description, f, lastSuite.TotalTestsCount)]
  let wip f = null &&&& f
  let many count f = 
      let lastSuite = incrementLastTestSuite()
      [1 .. count] |> List.iter (fun _ -> lastSuite.Manys <- lastSuite.Manys @ [Test(null, f, lastSuite.TotalTestsCount)])
  let ( &&! ) description f = 
      let lastSuite = incrementLastTestSuite()
      lastSuite.Tests <- lastSuite.Tests @ [Test(description, skipped, lastSuite.TotalTestsCount)]
  let xtest f = null &&! f
  let ( &&&&& ) description f = 
      let lastSuite = incrementLastTestSuite()
      lastSuite.Always <- lastSuite.Always @ [Test(description, f, lastSuite.TotalTestsCount)]
  let mutable passedCount = 0
  let mutable skippedCount = 0
  let mutable failedCount = 0
  
negative.code:     let reportFailedTest (ex: Exception) (test : Test) =
          reporter.testStart test.Id  
          fail ex test.Id <| safelyGetUrl()
          reporter.testEnd test.Id
  
      // tests are in reverse order and have to be reversed first
      do suite.Tests
      |> List.rev
      |> List.iter (fun test -> reportFailedTest ex test)
  
  let run () =
      reporter.suiteBegin()
  