anchor.diff:    /// Scan tests marked with TestsAttribute from entry assembly
     let testFromThisAssembly () = testFromAssembly (Assembly.GetEntryAssembly())
   
  +  /// When the failOnFocusedTests switch is activated this function that no
  +  /// focused tests exist.
  +  ///
  +  /// Returns true if the check passes, otherwise false.
  +  let passesFocusTestCheck config tests =
  +    let isFocused : FlatTest -> _ = function t when t.state = Focused -> true | _ -> false
  +    let focused = Test.toTestCodeList tests |> List.filter isFocused
  +    if focused.Length = 0 then true
  +    else
  +      logger.info (
  +        eventX "It was requested that no focused tests exist, but yet there are {count} focused tests found."
  +        >> setField "count" focused.Length)
  +      false
  +
   [<AutoOpen; Extension>]
   module Tests =
     open Impl
  +  open Helpers
     open Argu
     open Expecto.Logging
     open Expecto.Logging.Message
  
positive.code: 
    module Seq =
      let cons x xs = seq { yield x; yield! xs }
  
    type Type with
      static member TryGetType t =
  
negative.code:     |> Test.toTestCodeList
      |> Seq.iter (fun t -> printfn "%s" t.name)
  
    /// Runs tests with supplied options. Returns 0 if all tests passed, otherwise 1.
    let runTests config (tests:Test) =
      let run = if config.parallel then runParallel else run
  