diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-11-18 22:01:34 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-11-18 22:01:34 +0300 |
| commit | d73c431db1da488143feee5b7eeea8e9ad545ce2 (patch) | |
| tree | ad13d410d2092f14530f573d02984206c1b1142a /tests/session.scm | |
| parent | NEWS: Update (diff) | |
| download | guile-ssh-d73c431db1da488143feee5b7eeea8e9ad545ce2.tar.gz | |
libguile-ssh: Add basic support of session callbacks
* libguile-ssh/session-func.c: Add basic support of session callbacks.
(libssh_global_request_callback, set_callbacks): New static procedure.
(set_option): Change paramegers. All callers updated.
(guile_ssh_session_set): Update.
* libguile-ssh/session-type.h (session_data): Add 'callbacks' field.
* modules/ssh/session.scm (make-session): Accept 'callbacks' as a keyed
argument.
* libguile-ssh/message-type.c (_scm_from_ssh_message): New procedure.
* libguile-ssh/message-type.h: Update.
* tests/session.scm ("session-set!, valid values")
("session-set!, invalid values"): Check new 'callbacks' option.
Diffstat (limited to 'tests/session.scm')
| -rw-r--r-- | tests/session.scm | 7 |
1 files changed, 5 insertions, 2 deletions
diff --git a/tests/session.scm b/tests/session.scm index b52cfca..aebe9b6 100644 --- a/tests/session.scm +++ b/tests/session.scm @@ -54,7 +54,9 @@ (log-verbosity nolog rare protocol packet functions nolog) (compression "yes" "no") - (compression-level 1 2 3 4 5 6 7 8 9))) + (compression-level 1 2 3 4 5 6 7 8 9) + (callbacks `((user-data . "hello") + (global-request-callback. ,(const #f)))))) (res #t)) (for-each (lambda (opt) @@ -77,7 +79,8 @@ (ssh2 12345 "string") (log-verbosity "string" -1 0 1 2 3 4 5) (compression 12345) - (compression-level -1 0 10))) + (compression-level -1 0 10) + (callbacks "not a list"))) (res #t)) (for-each (lambda (opt) |