diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2017-05-08 18:11:33 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2017-05-08 18:11:33 +0300 |
| commit | 0da2ad2c214d16d79a54a96d62745853177cd547 (patch) | |
| tree | 9bef507f1738011024440c1b79680625eefec0e5 /tests | |
| parent | tests/tunnel.scm: Cleanup (diff) | |
| download | guile-ssh-0da2ad2c214d16d79a54a96d62745853177cd547.tar.gz | |
tests/dist.scm ("with-ssh") <server>: Close a channel
* tests/dist.scm ("with-ssh") <server>: Close channel as soon as data sent to
the client.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/dist.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/dist.scm b/tests/dist.scm index 786c854..10aa90a 100644 --- a/tests/dist.scm +++ b/tests/dist.scm @@ -1,6 +1,6 @@ ;;; dist.scm -- Testing of the distributed forms -;; Copyright (C) 2015, 2016 Artyom V. Poptsov <poptsov.artyom@gmail.com> +;; Copyright (C) 2015, 2016, 2017 Artyom V. Poptsov <poptsov.artyom@gmail.com> ;; ;; This file is a part of Guile-SSH. ;; @@ -236,6 +236,7 @@ $4 = #<session #<undefined>@#<undefined>:22 (disconnected) 453fff>" (error "Wrong result 2" result))) (write-line "scheme@(guile-user)> $1 = 42\n" c) + (close c) (while #t (sleep 60)))))) (else |