Re^2: Test::More to only report fails? (IO::Null)

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}

Comment on Re^2: Test::More to only report fails? (IO::Null) Select or Download Code

Replies are listed 'Best First'.

Re^3: Test::More to only report fails? (IO::Null)
by Marshall (Canon) on Nov 07, 2021 at 01:50 UTC

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]

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]

[reply]
[d/l]
[select]


Your skill will accomplish what the force of many cannot
	PerlMonks