diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-05-02 16:40:07 +0400 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-05-02 16:40:07 +0400 |
| commit | 49b11ab48627a4cd25c7f3af50a837299f1be09a (patch) | |
| tree | dc4b2040ace271c1bf776501cea9da4101576d16 /tests | |
| parent | tests/common.scm (make-server-for-test): Pick an unused port (diff) | |
| download | guile-ssh-49b11ab48627a4cd25c7f3af50a837299f1be09a.tar.gz | |
tests/tunnel.scm ("call-with-ssh-forward"): Free allocated resources
The test suite failes due to an overlap between "port forwarding, direct" and
"call-with-ssh-forward". Presumably a process that spawned by "port
forwarding, direct" keeps running and messes things up in the later tests.
The solution seems to be that all the resources allocated by the "port
forwarding, direct" should be freed as soon as they don't needed.
* tests/tunnel.scm ("call-with-ssh-forward"): Free allocated resources at the
end of the test.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/tunnel.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/tunnel.scm b/tests/tunnel.scm index 67f80df..79c618c 100644 --- a/tests/tunnel.scm +++ b/tests/tunnel.scm @@ -79,7 +79,10 @@ (str "hello world")) (write-line str channel) (while (not (char-ready? channel))) - (string=? str (read-line channel)))))) + (let ((line (read-line channel))) + (close channel) + (disconnect! session) + (string=? str line)))))) ;; Create a tunnel, check the result. (test-assert-with-log "make-tunnel" |