diff options
Diffstat (limited to 'testsuite/config/unix.exp')
| -rw-r--r-- | testsuite/config/unix.exp | 9 |
1 files changed, 9 insertions, 0 deletions
diff --git a/testsuite/config/unix.exp b/testsuite/config/unix.exp index 4156c3b..ecdc0bf 100644 --- a/testsuite/config/unix.exp +++ b/testsuite/config/unix.exp @@ -136,6 +136,15 @@ proc expect_table_dsc { test match_header match_item } { #} } +proc expect_spawn_retval { test retval } { + foreach {pid spawnid os_error_flag value} [wait] break + + if {$value == $retval} { + return + } + fail "$test (exit value)" +} + proc make_pipeproc { } { global pipeproc_pid pipeproc_spawnid topdir |