Fail subtest if incorrect number of tests done

rakudo · May 15, 2014 · ea173d0 · ea173d0
1 parent a0ba7f9
commit ea173d0
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/lib/Test.pm b/lib/Test.pm
@@ -152,7 +152,8 @@ sub subtest(&subtests, $desc = '') is export {
     $indents ~= "   ";
     subtests();
     done() if !$done_testing_has_been_run;
-    my $status = $num_of_tests_failed == 0;
+    my $status =
+      $num_of_tests_failed == 0 && $num_of_tests_planned == $num_of_tests_run;
     _pop_vars;
     $indents = $indents.chop.chop.chop;
     proclaim($status,$desc);