From: Vincent Pit Date: Wed, 29 Dec 2010 00:13:47 +0000 (+0100) Subject: Also print the plan at the END when a test failed under 'no_plan' X-Git-Tag: v0.02~4 X-Git-Url: http://git.vpit.fr/?a=commitdiff_plain;h=c81419dbc3791a54746517231a33b7b11c20842e;p=perl%2Fmodules%2FTest-Leaner.git Also print the plan at the END when a test failed under 'no_plan' --- diff --git a/lib/Test/Leaner.pm b/lib/Test/Leaner.pm index 8d25ca9..bc684ec 100644 --- a/lib/Test/Leaner.pm +++ b/lib/Test/Leaner.pm @@ -658,7 +658,8 @@ END { $? = $failed <= 254 ? $failed : 254; } elsif ($plan >= 0) { $? = $test == $plan ? 0 : 255; - } elsif ($plan == NO_PLAN) { + } + if ($plan == NO_PLAN) { local $\; print $TAP_STREAM "1..$test\n"; }