This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
RT #116250: Fail the right number of tests on timeout
[perl5.git] / dist / Tie-File / t / 29_downcopy.t
index d75806d..51c941c 100644 (file)
@@ -279,6 +279,11 @@ sub try {
       print "# Timeout\n";
       print "not ok $N\n"; $N++;
       print "not ok $N\n"; $N++;
+      if (defined $len) {
+        # Fail the tests in the recursive call as well
+        print "not ok $N\n"; $N++;
+        print "not ok $N\n"; $N++;
+      }
       return;
     } else {
       $@ = $err;