anchor.diff:                      tests |> List.iter (fun w -> runtest s w)
                       wipTest <- false
                   else if s.Manys.IsEmpty = false then
  -                    s.Manys |> List.iter (fun m -> runtest s m)
  +                    s.Manys |> List.rev |> List.iter (fun m -> runtest s m)
                   else
                       let tests = s.Tests @ s.Always |> List.sortBy (fun t -> t.Number)
                       tests |> List.iter (fun t -> runtest s t)
               s.Lastly ()                  
   
  -            if contextFailed = true then failedContexts <- failedContexts @ [s.Context]
  +            if contextFailed = true then failedContexts <- s.Context::failedContexts
               if s.Context <> null then reporter.contextEnd s.Context
       )
       
  
positive.code:     let reportFailedTest (ex: Exception) (test : Test) =
          reporter.testStart test.Id  
          fail ex test.Id <| safelyGetUrl()
          reporter.testEnd test.Id 
      suite.Tests |> List.iter (fun test -> reportFailedTest ex test)
  
  let run () =
      reporter.suiteBegin()
  
negative.code:             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
  