summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorArtyom V. Poptsov <poptsov.artyom@gmail.com>2017-04-23 08:02:05 +0300
committerArtyom V. Poptsov <poptsov.artyom@gmail.com>2017-04-23 08:02:05 +0300
commitfb5dd8a6755c666dbbf7e7f7ed686b26c5665d67 (patch)
tree7f08a49cb2179963918fb4fd68bc08c47bfc969a
parentMerge branch 'master' into ludo-guile2.2 (diff)
downloadguile-ssh-fb5dd8a6755c666dbbf7e7f7ed686b26c5665d67.tar.gz
tests/tunnel.scm ("call-with-ssh-forward"): Wait for 1s before polling
* tests/tunnel.scm ("call-with-ssh-forward"): Wait for 1s before polling to prevent errors (yes, that's a dirty hack but it works for me... most of the time.)
-rw-r--r--tests/tunnel.scm1
1 files changed, 1 insertions, 0 deletions
diff --git a/tests/tunnel.scm b/tests/tunnel.scm
index 8a21695..8c447ff 100644
--- a/tests/tunnel.scm
+++ b/tests/tunnel.scm
@@ -170,6 +170,7 @@
(call-with-ssh-forward tunnel
(lambda (sock)
(write-line %test-string sock)
+ (sleep 1)
(poll sock read-line)))))))
;; Handle the result.
(lambda (result)