From ad0113d9d846c64c165d8d33ed07cd7b2b124322 Mon Sep 17 00:00:00 2001 From: "Artyom V. Poptsov" Date: Fri, 20 Nov 2015 12:18:30 +0300 Subject: 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. --- tests/session.scm | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) (limited to 'tests/session.scm') 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) -- cgit v1.2.3