anchor.diff:            Failed = get 2
             Errored = get 3
             Time = results |> Seq.map (fun r -> r.Time) |> TimeSpan.sum }
  -
  -    let toTestCodeList =
  -        let rec loop parentName testList =
  -            function
  -            | TestLabel (name, test) -> 
  -                let fullName = 
  -                    if String.IsNullOrEmpty parentName
  -                        then name
  -                        else parentName + "/" + name
  -                loop fullName testList test
  -            | TestCase test -> (parentName, test)::testList
  -            | TestList tests -> List.collect (loop parentName testList) tests
  -        loop null []
  -
  -    let rec wrap f = 
  -        function
  -        | TestCase test -> TestCase (f test)
  -        | TestList testList -> TestList (List.map (wrap f) testList)
  -        | TestLabel (label, test) -> TestLabel (label, wrap f test)
   
       let evalTestList =
           let failExceptions = [ 
  
positive.code:             map execOne
  
      let eval beforeRun onPassed onIgnored onFailed onException map tests =
          let r = toTestCodeList tests |> evalTestList beforeRun onPassed onIgnored onFailed onException map
          Seq.toList r
  
      let printPassed = printfn "%s: Passed (%A)"
  
negative.code:     | TestCase of TestCode
      | TestList of Test list
      | TestLabel of string * Test
      with
          static member toTestCodeList =
              let rec loop parentName testList =
                  function
                  | TestLabel (name, test) -> 
                      let fullName = 
                          if String.IsNullOrEmpty parentName
                              then name
                              else parentName + "/" + name
                      loop fullName testList test
                  | TestCase test -> (parentName, test)::testList
                  | TestList tests -> List.collect (loop parentName testList) tests
              loop null []
          static member wrap f =
              let rec loop = 
                  function
                  | TestCase test -> TestCase (f test)
                  | TestList testList -> TestList (List.map loop testList)
                  | TestLabel (label, test) -> TestLabel (label, loop test)
              loop
  
  [<AutoOpen>]
  [<Extension>]
  