diff options
| author | Artyom Poptsov <poptsov.artyom@gmail.com> | 2014-01-26 19:10:00 +0400 |
|---|---|---|
| committer | Artyom Poptsov <poptsov.artyom@gmail.com> | 2014-01-26 19:10:00 +0400 |
| commit | ca5282266a01e437cb3c6c96dbe5d094b27a5bf7 (patch) | |
| tree | f68e929e0c5616ffdcf24d0a63c430c5988d7eb5 | |
| parent | tests/session.scm ("comparsion of sessions"): New TC. (diff) | |
| download | guile-ssh-ca5282266a01e437cb3c6c96dbe5d094b27a5bf7.tar.gz | |
tests/session.scm: Fix bug in TC.
* tests/session.scm ("session-set!, valid values"): Fix bug in TC: try
all valid values for each option, not only the first one.
| -rw-r--r-- | ChangeLog | 2 | ||||
| -rw-r--r-- | tests/session.scm | 2 |
2 files changed, 3 insertions, 1 deletions
@@ -3,6 +3,8 @@ * tests/session.scm ("session?"): New test case. ("comparsion of sessions"): Use one test case instead of two separated TCs (equal?/not equal? test). + ("session-set!, valid values"): Fix bug in TC: try all valid + values for each option, not only the first one. * src/session-type.c (guile_ssh_is_session_p): New procedure. * src/session-type.h (guile_ssh_is_session_p): Export. diff --git a/tests/session.scm b/tests/session.scm index a132001..7e4f17e 100644 --- a/tests/session.scm +++ b/tests/session.scm @@ -53,7 +53,7 @@ (lambda (opt) (for-each (lambda (val) - (session-set! session (car opt) (cadr opt))) + (session-set! session (car opt) val)) (cdr opt))) options) res)) |