Skip Menu |

This queue is for tickets about the Test-Harness CPAN distribution.

Report information
The Basics
Id: 17968
Status: resolved
Priority: 0/
Queue: Test-Harness

Owner: andy [...]
Requestors: David [...] Vindicia.Com

Bug Information
Severity: Normal
Broken in: 2.57_03
Fixed in: (no value)


Subject: Enhancement Req - Harness::_show_results() option not to die on failure.
Download (untitled) / with headers
text/plain 736b
The problem is die() is invoked if any test fails. I realize this is what the design is meant to do. I'm running Test::Harness in a perl script and want to processess the output. I have STDERR and STDOUT redirected to a file but when a test fails obviously the call to runtests() never returns and the script exits. Therefore post-processing requires a separate script at this point. Would it be possible to have _show_results() check for a package or environmental variable that if set would call print() instead of die? This would allow _show_results() to return to the caller (which I think it should do anyway). Simple patch attached for what I'm using. Using Perl 5.8.7. This is not OS or distribution specific. Thanks, David
Subject: Harness_patch.txt
Download Harness_patch.txt
text/plain 639b
514a515 > $ENV{HARNESS_VERSION} = $VERSION; 525c526,528 < die "FAILED--no tests were run for some reason.\n"; --- > die "FAILED--no tests were run for some reason.\n" > if ( ! $ENV{HARNESS_DONT_DIE} ); > print "FAILED--no tests were run for some reason.\n"; 528a532,533 > "alas--no output ever seen\n" if ( ! $ENV{HARNESS_DONT_DIE} ); > print "FAILED--$tot->{tests} test $blurb could be run, ". 547a553,554 > "$subpct\n" if ( ! $ENV{HARNESS_DONT_DIE} ); > print "Failed $tot->{bad}/$tot->{tests} test scripts, $pct% okay.".
This has all changed in 2.99 so that it is now simple to run tests non-fatally.

This service is sponsored and maintained by Best Practical Solutions and runs on infrastructure.

Please report any issues with to