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;
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
Cheers Rolf
(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery
In reply to Re^2: Test::More to only report fails? (IO::Null)
by LanX
in thread Test::More to only report fails?
by LanX
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |