]> git.vpit.fr Git - perl/modules/Test-Leaner.git/commitdiff
Also print the plan at the END when a test failed under 'no_plan'
authorVincent Pit <vince@profvince.com>
Wed, 29 Dec 2010 00:13:47 +0000 (01:13 +0100)
committerVincent Pit <vince@profvince.com>
Wed, 29 Dec 2010 00:13:56 +0000 (01:13 +0100)
lib/Test/Leaner.pm

index 8d25ca941f036109d7c39b704badb9cc163f264e..bc684ec1c99ab662e9e6c0edefd53513432e3a5f 100644 (file)
@@ -658,7 +658,8 @@ END {
     $? = $failed <= 254 ? $failed : 254;
    } elsif ($plan >= 0) {
     $? = $test == $plan ? 0 : 255;
     $? = $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";
    }
     local $\;
     print $TAP_STREAM "1..$test\n";
    }