Option to suppress "Skipped" messages

[jcmrva]

This would be particularly useful when focusing a test, or list of tests.

We have hundreds of tests, so focusing results in a flood of messages.

[ratsclub]

Hello, @jcmrva

Can you provide a small example of a code that does what you described?

[rynoV]

I would also like to see this option.

@ratsclub For example with the test suite

let tests =
    testList
        "A test group"
        [ test "one test" { Expect.equal (2 + 2) 4 "2+2" }

          ftest "another test that fails" { Expect.equal (3 + 3) 5 "3+3" }

          testAsync "this is an async test" {
              let! x = async { return 4 }
              Expect.equal x (2 + 2) "2+2"
          } ]
    |> testLabel "samples"

[11:14:07 DBG] samples.A test group.one test starting... <Expecto>
[11:14:07 DBG] samples.A test group.one test was ignored. The test is skipped because other tests are Focused <Expecto>
[11:14:07 DBG] samples.A test group.another test that fails starting... <Expecto>
[11:14:07 ERR] samples.A test group.another test that fails failed in 00:00:00.0290000. 
3+3.
expected: 5
  actual: 6
   at Program.Pipe #2 input at line [email protected](Unit unitVar) in Program.fs:line 19
   at [email protected](Unit unitVar)
   at Microsoft.FSharp.Control.AsyncPrimitives.CallThenInvoke[T,TResult](AsyncActivation`1 ctxt, TResult result1, FSharpFunc`2 part2) in D:\a\_work\1\s\src\FSharp.Core\async.fs:line 510
   at Microsoft.FSharp.Control.Trampoline.Execute(FSharpFunc`2 firstAction) in D:\a\_work\1\s\src\FSharp.Core\async.fs:line 112 <Expecto>
[11:14:07 DBG] samples.A test group.this is an async test starting... <Expecto>
[11:14:07 DBG] samples.A test group.this is an async test was ignored. The test is skipped because other tests are Focused <Expecto>
[11:14:07 INF] EXPECTO! 1 tests run in 00:00:00.0730025 for samples.A test group - 0 passed, 2 ignored, 1 failed, 0 errored.  <Expecto>

The option would skip over the messages
"<test> starting..."
"<test> was ignored. The test is skipped because other tests are Focused"

[rynoV]

A workaround:

        runTestsWithCLIArgs
            [ Printer
                  { Impl.TestPrinters.defaultPrinter with
                      beforeEach = fun _ -> async { () }
                      ignored = fun _ _ -> async { () } } ]
            args tests
 

Although not ideal because the "test starting" message for the running test isn't shown