diff options
Diffstat (limited to 't/TEST')
-rw-r--r-- | t/TEST | 3 |
1 files changed, 2 insertions, 1 deletions
@@ -1,6 +1,6 @@ #!./perl -# $Header: TEST,v 3.0.1.2 90/11/10 02:09:07 lwall Locked $ +# $Header: TEST,v 3.0.1.3 91/01/11 18:28:17 lwall Locked $ # This is written in a peculiar style, since we're trying to avoid # most of the constructs we'll be testing for. @@ -62,6 +62,7 @@ while ($test = shift) { $next = 1; $ok = 1; } else { + $next = $1, $ok = 0, last if /^not ok ([0-9]*)/; if (/^ok (.*)/ && $1 == $next) { $next = $next + 1; } else { |