diff options
author | Dan Collins <dcollinsn@gmail.com> | 2016-09-29 11:23:00 -0400 |
---|---|---|
committer | James E Keenan <jkeenan@cpan.org> | 2016-09-29 14:24:41 -0400 |
commit | 5654fe3cb7747930ab73ec2386527c2d0007459f (patch) | |
tree | 16f3b5f47dc6abab270b9029754381c58d036fb8 /dist/Tie-File | |
parent | 35a2929bb8afc786379fa44c650f7c35377c74f7 (diff) | |
download | perl-5654fe3cb7747930ab73ec2386527c2d0007459f.tar.gz |
RT #116250: Fail the right number of tests on timeout
Committer: Correct syntax error. Correct RT # in commit message.
Diffstat (limited to 'dist/Tie-File')
-rw-r--r-- | dist/Tie-File/t/29_downcopy.t | 5 |
1 files changed, 5 insertions, 0 deletions
diff --git a/dist/Tie-File/t/29_downcopy.t b/dist/Tie-File/t/29_downcopy.t index d75806d5b2..51c941c3d2 100644 --- a/dist/Tie-File/t/29_downcopy.t +++ b/dist/Tie-File/t/29_downcopy.t @@ -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; |