diff options
| -rw-r--r-- | tests/tunnel.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/tunnel.scm b/tests/tunnel.scm index e58f93b..a5ce933 100644 --- a/tests/tunnel.scm +++ b/tests/tunnel.scm @@ -156,7 +156,8 @@ (lambda (channel) (poll channel (lambda (channel) - (write-line (read-line channel) channel)))))) + (write-line (read-line channel) channel) + (while #t (sleep 5))))))) ;; Client (call/pf) (lambda () (set-log-userdata! (string-append (get-log-userdata) " (call/pf)")) |