With: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
I guess just check O/S and open either /dev/null or nul.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.
In reply to Re^3: Test::More to only report fails? (IO::Null)
by Marshall
in thread Test::More to only report fails?
by LanX
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |