From: Vincent Pit <vince@profvince.com>
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/?p=perl%2Fmodules%2FTest-Leaner.git;a=commitdiff_plain;h=c81419dbc3791a54746517231a33b7b11c20842e

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";
    }