diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-11-24 06:09:43 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-11-24 06:09:43 +0300 |
| commit | 5c13d17aeb20890d1cf22954333c51ba9e2104c6 (patch) | |
| tree | 309c860a87b9b256574560fd38c7a1a2dac75628 /tests/common.scm | |
| parent | tests/tunnel.scm ("call-with-ssh-forward"): Update commentary (diff) | |
| download | guile-ssh-5c13d17aeb20890d1cf22954333c51ba9e2104c6.tar.gz | |
tests/common.scm (start-server/dist-test): Simplify a bit
* tests/common.scm (start-server/dist-test): Remove 'rwproc' argument, remove
unused code, don't call 'primitive-exit' at the end. All callers updated.
* tests/tunnel.scm ("channel-{listen,cancel}-forward"): Update.
Diffstat (limited to 'tests/common.scm')
| -rw-r--r-- | tests/common.scm | 8 |
1 files changed, 3 insertions, 5 deletions
diff --git a/tests/common.scm b/tests/common.scm index be34b1e..56016fa 100644 --- a/tests/common.scm +++ b/tests/common.scm @@ -163,10 +163,9 @@ (message-reply-success msg))))))) (primitive-exit)) -(define (start-server/dist-test server rwproc) +(define (start-server/dist-test server) (server-listen server) - (let ((session (server-accept server)) - (channel #f)) + (let ((session (server-accept server))) (server-handle-key-exchange session) @@ -190,8 +189,7 @@ (make-session-loop session (unless (eof-object? msg) - (message-reply-success msg)))) - (primitive-exit)) + (message-reply-success msg))))) ;;; Tests |