Search code examples
perlunit-testingtest-more

Suppress passed test output in Test::More

I have a Perl unit test that outputs "ok" for every passed test. I find myself scrolling up and up to find the first failed test, since that's the only thing I'm interested in. I am using Test::More.

use strict; use warnings;
use JSONRegex;
use Test::More;

I would like only failed tests to appear. I tried the solution of using

perl -MTest::Harness -e 'runtests @ARGV' path/to/test_JSONRegex.pl

and it worked. But I wanted to put that in the shebang line so I could just forget about it. The shebang

#!/usr/bin/env perl -MTest::Harness

failed with message Too late for "-MTest::Harness" option at ./test_JSONRegex.pl line 1.

What is the best way to suppress passed test output while still using strict in my script?

Solution

  • Why not just use the prove command to run your test script?

    prove path/to/test_JSONRegex.pl

    is basically equivalent to

    perl -MTest::Harness -e 'runtests @ARGV' path/to/test_JSONRegex.pl

    but with less typing.

    Trying to get the test script to automatically determine whether it's already running inside a test harness is going to be tricky and error prone.