anchor.diff:      |> Test.toTestCodeList
       |> Seq.iter (fun t -> printfn "%s" t.name)
   
  -  /// 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
  -
     /// 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
  
positive.code:   /// Scan tests marked with TestsAttribute from entry assembly
    let testFromThisAssembly () = testFromAssembly (Assembly.GetEntryAssembly())
  
  [<AutoOpen; Extension>]
  module Tests =
    open Impl
    open Argu
    open Expecto.Logging
    open Expecto.Logging.Message
  
negative.code:   /// Runs tests in this assembly with supplied command-line options.
    /// Returns 0 if all tests passed, otherwise 1
    let runTestsInAssembly config args =
      let tests = testFromThisAssembly () |> Option.orDefault (TestList ([], Normal))
      let config, isList = args |> ExpectoConfig.fillFromArgs config
      let tests = tests |> config.filter
      if isList then
  