diff options
Diffstat (limited to 'tests/runall.tcl')
-rw-r--r-- | tests/runall.tcl | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/tests/runall.tcl b/tests/runall.tcl index 96a56a9..5c9aa8b 100644 --- a/tests/runall.tcl +++ b/tests/runall.tcl @@ -47,11 +47,11 @@ if {[info commands interp] eq ""} { puts [format "%16s: --- error ($msg)" $script] incr total(fail) } elseif {[info return $opts(-code)] eq "exit"} { - # if the test explicitly called exit 99, + # if the test explicitly called exit 98 or 99, # it must be from a child process via os.fork, so - # silently exit - if {$msg eq "99"} { - exit 0 + # silently exit with that return code + if {$msg in {98 99}} { + exit $msg } } |