Re: Test::More to only report fails?

OK, after some digging :)

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

Test::More->builder->output(\ my $scalar);

is($_,$_,"equality $_") for 1..10;

is(1,0,"FAIL"); 

done_testing;
[download]

C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/redirect_Tests.pl # Failed test 'FAIL' # at d:/tmp/pm/redirect_Tests.pl line 11. # got: '1' # expected: '0' # Looks like you failed 1 test of 11.
[download]

... but it will still fill up $scalar with the passed tests.

Does Perl have a generic /dev/null filehandle to ignore output like on linux?

edit

this works on Win, but it's not generic

open my $null,">","nul";

Test::More->builder->output($null);
[download]

update

Ah yes IO::Null is on cpan. :)

Cheers Rolf
_{(addicted to the Perl Programming Language :)

Wikisyntax for the Monastery}

Comment on Re: Test::More to only report fails? Select or Download Code

Replies are listed 'Best First'.
Re^2: Test::More to only report fails? (IO::Null) by LanX (Saint) on Nov 06, 2021 at 21:36 UTC
hmm ... trying out IO::Null fails `use strict; use warnings; use Test::More; use IO::Null; use Data::Dump; my $fh = IO::Null->new; Test::More->builder->output($fh); is($_,$_,"equality $_") for 1..5; is(1,0,"FAIL"); done_testing;` [download] C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/redirect_Tests.pl print() on unopened filehandle GLOB at C:/Strawberry/perl/lib/Test2/Fo +rmatter/TAP.pm line 156. print() on unopened filehandle GLOB at C:/Strawberry/perl/lib/Test2/Fo +rmatter/TAP.pm line 156. print() on unopened filehandle GLOB at C:/Strawberry/perl/lib/Test2/Fo +rmatter/TAP.pm line 156. print() on unopened filehandle GLOB at C:/Strawberry/perl/lib/Test2/Fo +rmatter/TAP.pm line 156. print() on unopened filehandle GLOB at C:/Strawberry/perl/lib/Test2/Fo +rmatter/TAP.pm line 156. print() on unopened filehandle GLOB at C:/Strawberry/perl/lib/Test2/Fo +rmatter/TAP.pm line 125. # Failed test 'FAIL' # at d:/tmp/pm/redirect_Tests.pl line 13. # got: '1' # expected: '0' print() on unopened filehandle GLOB at C:/Strawberry/perl/lib/Test2/Fo +rmatter/TAP.pm line 125. # Looks like you failed 1 test of 6. Compilation exited abnormally with code 1 at Sat Nov 6 22:35:40 [download] Cheers Rolf _{(addicted to the Perl Programming Language :) Wikisyntax for the Monastery}	[reply] [d/l] [select]
Re^3: Test::More to only report fails? (IO::Null) by Marshall (Canon) on Nov 07, 2021 at 01:50 UTC
I get the same results on Active State: print() on unopened filehandle GLOB at C:/Perl64/site/lib/Test2/Format +ter/TAP.pm line 156. print() on unopened filehandle GLOB at C:/Perl64/site/lib/Test2/Format +ter/TAP.pm line 156. print() on unopened filehandle GLOB at C:/Perl64/site/lib/Test2/Format +ter/TAP.pm line 156. print() on unopened filehandle GLOB at C:/Perl64/site/lib/Test2/Format +ter/TAP.pm line 156. print() on unopened filehandle GLOB at C:/Perl64/site/lib/Test2/Format +ter/TAP.pm line 156. print() on unopened filehandle GLOB at C:/Perl64/site/lib/Test2/Format +ter/TAP.pm line 125. # Failed test 'FAIL' # at C:\Users\xxxx\Documents\PerlProjects\Monks\test.pl line 13. # got: '1' # expected: '0' print() on unopened filehandle GLOB at C:/Perl64/site/lib/Test2/Format +ter/TAP.pm line 125. # Looks like you failed 1 test of 6. Process completed with exit code 1 [download] With: `use strict; use warnings; use Test::More; use IO::Null; use Data::Dump; open (my $fh, '>', 'nul') or die "Ooops$!"; Test::More->builder->output($fh); is($_,$_,"equality $_") for 1..5; is(1,0,"FAIL"); done_testing; __END__ # Failed test 'FAIL' # at C:\Users\mmtho\Documents\PerlProjects\Monks\test.pl line 13. # got: '1' # expected: '0' # Looks like you failed 1 test of 6.` [download] I guess just check O/S and open either /dev/null or nul. NUL is a reserved file name on Windows.	[reply] [d/l] [select]


good chemistry is complicated, and a little bit messy -LW
	PerlMonks