use strict; use warnings; use Test::More; tie my $s_null,"NULL"; Test::More->builder->output(\ $s_null); is($_,$_+ int rand 2,"TEST $_") for 1..5; done_testing; package NULL; sub FETCH {""} sub STORE { print $_[1] if $_[1] =~ /^not ok \d+ -/; # NB: you ma +y want to another FH } sub TIESCALAR { return bless \ my $var, shift; }
C:/Strawberry/perl/bin\perl.exe -w d:/tmp/pm/test_only_fails.pl not ok 2 - TEST 2 # Failed test 'TEST 2' # at d:/tmp/pm/test_only_fails.pl line 11. # got: '2' # expected: '3' # Looks like you failed 1 test of 5.
Cheers Rolf
(addicted to the Perl Programming Language :)
Wikisyntax for the Monastery
In reply to Re: Test::More to only report fails? (SOLVED)
by LanX
in thread Test::More to only report fails?
by LanX
| For: | Use: | ||
| & | & | ||
| < | < | ||
| > | > | ||
| [ | [ | ||
| ] | ] |