diff options
Diffstat (limited to 'tests/common.scm')
| -rw-r--r-- | tests/common.scm | 5 |
1 files changed, 4 insertions, 1 deletions
diff --git a/tests/common.scm b/tests/common.scm index 83318d6..77034ea 100644 --- a/tests/common.scm +++ b/tests/common.scm @@ -171,7 +171,10 @@ SSH session object, return the result of the procedure call. The session is disconnected when the PROC is finished." (let ((session (make-session-for-test))) (dynamic-wind - (lambda () (connect! session)) + (lambda () + (let ((result (connect! session))) + (unless (equal? result 'ok) + (error "Could not connect to a server" session result)))) (lambda () (proc session)) (lambda () (disconnect! session))))) |