diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-05-02 20:09:08 +0400 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-05-02 20:09:08 +0400 |
| commit | 9512055ba70ef3964a2157748c03cf1ad1e08027 (patch) | |
| tree | f4ee91b5c7e3fb4e198ce59302db798803ef72a5 /tests | |
| parent | tests/common.scm (start-server-loop): New procedure (diff) | |
| download | guile-ssh-9512055ba70ef3964a2157748c03cf1ad1e08027.tar.gz | |
tests/common.scm (multifork): Collect statues of processes
* tests/common.scm (multifork): Collect statuses of child processes after
terminating them.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/common.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/common.scm b/tests/common.scm index bf9e636..128454a 100644 --- a/tests/common.scm +++ b/tests/common.scm @@ -264,7 +264,8 @@ main procedure." mainproc (lambda () (format-log/scm 'nolog "multifork" "killing spawned processes ...") - (for-each (cut kill <> SIGTERM) pids))))) + (for-each (cut kill <> SIGTERM) pids) + (for-each waitpid pids))))) (define (run-client-test server-proc client-proc) |