diff options
Diffstat (limited to 'tests/runall.tcl')
| -rw-r--r-- | tests/runall.tcl | 7 |
1 files changed, 7 insertions, 0 deletions
diff --git a/tests/runall.tcl b/tests/runall.tcl index 2b1c15a..4dfa539 100644 --- a/tests/runall.tcl +++ b/tests/runall.tcl @@ -44,6 +44,13 @@ if {[info commands interp] eq ""} { if {[info returncode $opts(-code)] eq "error"} { puts [format "%16s: --- error ($msg)" $script] incr total(fail) + } elseif {[info return $opts(-code)] eq "exit"} { + # if the test explicitly called exit 99, + # it must be from a child process via os.fork, so + # silently exit + if {$msg eq "99"} { + exit 0 + } } # Extract the counts |