diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-07-03 22:57:12 +0400 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2016-07-03 22:57:12 +0400 |
| commit | 5b5f6d7e516a5345634e01e4fe1c7b4201e97b87 (patch) | |
| tree | 9276984b0dc97b2396699c5d7d4c39736f75c5eb | |
| parent | tests/log.scm: Use 'test-equal' where it's possible (diff) | |
| download | guile-ssh-5b5f6d7e516a5345634e01e4fe1c7b4201e97b87.tar.gz | |
tests/session.scm ("blocking-flush!"): Improve
* tests/session.scm ("blocking-flush!"): Use 'test-equal-with-log', simplify a
bit.
| -rw-r--r-- | tests/session.scm | 7 |
1 files changed, 3 insertions, 4 deletions
diff --git a/tests/session.scm b/tests/session.scm index c436881..7b4464a 100644 --- a/tests/session.scm +++ b/tests/session.scm @@ -141,10 +141,9 @@ #:port 22 #:user "Random J. User")) -(test-assert "blocking-flush!" - (let ((session (%make-session)) - (timeout 15)) - (eq? (blocking-flush! session timeout) 'ok))) +(test-equal-with-log "blocking-flush!" + 'ok + (blocking-flush! (%make-session) 15)) (test-assert "connected?, check that we are not connected" (let ((session (%make-session))) |