diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-11-20 12:18:30 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-11-20 12:18:30 +0300 |
| commit | ad0113d9d846c64c165d8d33ed07cd7b2b124322 (patch) | |
| tree | 0ac7435db305910cd8c6379ebf78839d8428047e /tests | |
| parent | tests/session.scm ("session-set!, valid values"): Bugfix (diff) | |
| download | guile-ssh-ad0113d9d846c64c165d8d33ed07cd7b2b124322.tar.gz | |
session-func.c (set_callbacks): Validate callbacks
* libguile-ssh/session-func.c (set_callbacks): Ensure that callbacks are
procedures.
(scm_is_procedure, validate_callback): New procedures.
* tests/session.scm ("session-set!, invalid values"): Update.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/session.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/session.scm b/tests/session.scm index e56ed7b..e5c054c 100644 --- a/tests/session.scm +++ b/tests/session.scm @@ -87,7 +87,8 @@ (log-verbosity "string" -1 0 1 2 3 4 5) (compression 12345) (compression-level -1 0 10) - (callbacks "not a list"))) + (callbacks "not a list" + ((global-request-callback . #f))))) (res #t)) (for-each (lambda (opt) |