diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2017-01-01 10:50:37 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2017-01-01 10:50:37 +0300 |
| commit | 0af008dd498413f038bc460ef5839b94128dbfd6 (patch) | |
| tree | 3f2138a2717b4a20ae1f8b1bbfeffdf73f5d3823 /tests | |
| parent | tests/shell.scm ("fallback-pgrep"): New TC (diff) | |
| download | guile-ssh-0af008dd498413f038bc460ef5839b94128dbfd6.tar.gz | |
tests/common.scm (start-server/exec): Close output pipe
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/common.scm | 1 |
1 files changed, 1 insertions, 0 deletions
diff --git a/tests/common.scm b/tests/common.scm index 3fb4b48..c154088 100644 --- a/tests/common.scm +++ b/tests/common.scm @@ -274,6 +274,7 @@ disconnected when the PROC is finished." ((string-match "echo '.*" cmd) (let ((p (open-input-pipe cmd))) (write-line (read-line p) channel) + (close p) (message-reply-success msg) (channel-request-send-exit-status channel 0) (channel-send-eof channel))) |