diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-11-19 22:36:46 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-11-19 22:36:46 +0300 |
| commit | 5ccd4bc9449e8b36c345ec7b84ac31a4ce8a6742 (patch) | |
| tree | 687cfa3515354c60ccf7c5a82dd91129e61384b6 /tests/session.scm | |
| parent | session-func.c (set_callbacks): Protect args from GC'ing (diff) | |
| download | guile-ssh-5ccd4bc9449e8b36c345ec7b84ac31a4ce8a6742.tar.gz | |
tests/session.scm ("session-get"): Test callbacks
Diffstat (limited to 'tests/session.scm')
| -rw-r--r-- | tests/session.scm | 9 |
1 files changed, 7 insertions, 2 deletions
diff --git a/tests/session.scm b/tests/session.scm index aebe9b6..255e843 100644 --- a/tests/session.scm +++ b/tests/session.scm @@ -104,16 +104,21 @@ (port 12345) (user "alice") (proxycommand "test") + (callbacks '((user-data . "test"))) (session (make-session #:host host #:port port #:user user #:identity %rsakey - #:proxycommand proxycommand))) + #:proxycommand proxycommand + #:callbacks callbacks))) (and (string=? (session-get session 'host) host) (= (session-get session 'port) port) (string=? (session-get session 'user) user) (string=? (session-get session 'identity) %rsakey) - (string=? (session-get session 'proxycommand) proxycommand)))) + (string=? (session-get session 'proxycommand) proxycommand) + (equal? (session-get session 'callbacks) callbacks) + ;; Make sure that default callbacks value is '#f'. + (equal? (session-get (%make-session) 'callbacks) #f)))) (test-assert "make-session" (make-session #:host "localhost" |