anchor.diff:      | TestLabel (label, test, state) -> TestLabel (label, wrap f test, state)
       | Sequenced test -> Sequenced (wrap f test)
   
  +  let rec apply f =
  +    function
  +    | TestCase (test, state, location) -> TestCase (f (test,state,location))
  +    | TestList (testList, state) -> TestList ((List.map (apply f) testList), state)
  +    | TestLabel (label, test, state) -> TestLabel (label, apply f test, state)
  +    | Sequenced test -> Sequenced (apply f test)
  +
     /// Enforce a FocusState on a test by replacing the current state
     /// Is not used (against YAGNI), but is here to make it clear for intellisense discovery
     /// that the translateFocusState is not intended as replacement
  
positive.code:       |> Seq.toList
        |> listToTestListOption
  
    /// Scan filtered tests marked with TestsAttribute from an assembly
    let testFromAssemblyWithFilter typeFilter (a: Assembly) =
      a.GetExportedTypes()
      |> Seq.filter typeFilter
      |> Seq.choose testFromType
      |> Seq.toList
      |> listToTestListOption
  
  
negative.code:   let listTests test =
      test
      |> Test.toTestCodeList
      |> Seq.iter (fun t ->
        if t.location <> SourceLocation.Empty then
          printfn "%s [%s:%d]" t.name t.location.SourcePath t.location.LineNumber
        else
          printfn "%s" t.name)
  
  
    /// Runs tests with the supplied options.
    /// Returns 0 if all tests passed, otherwise 1
  