diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-11-20 11:51:00 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-11-20 11:51:00 +0300 |
| commit | 0621ccb4ad64ee63140b4ef13decaba05e779899 (patch) | |
| tree | 6fc9bf32e8647110eb5545109bcc4fe627773b83 /tests/session.scm | |
| parent | tests/session.scm: Setup logging (diff) | |
| download | guile-ssh-0621ccb4ad64ee63140b4ef13decaba05e779899.tar.gz | |
tests/session.scm ("session-set!, valid values"): Bugfix
* tests/session.scm ("session-set!, valid values"): Due to erroneous
quasiquote usage the test would always fail to set callbacks for a session.
The patch fixes that.
Diffstat (limited to 'tests/session.scm')
| -rw-r--r-- | tests/session.scm | 6 |
1 files changed, 3 insertions, 3 deletions
diff --git a/tests/session.scm b/tests/session.scm index fff89bb..e56ed7b 100644 --- a/tests/session.scm +++ b/tests/session.scm @@ -50,7 +50,7 @@ (test-assert "session-set!, valid values" (let ((session (%make-session)) - (options '((host "localhost") + (options `((host "localhost") (port 22) (bindaddr "127.0.0.1") (user "Random J. User") @@ -62,8 +62,8 @@ nolog) (compression "yes" "no") (compression-level 1 2 3 4 5 6 7 8 9) - (callbacks `((user-data . "hello") - (global-request-callback. ,(const #f)))))) + (callbacks ((user-data . "hello") + (global-request-callback . ,(const #f)))))) (res #t)) (for-each (lambda (opt) |