From 328dac9837ff11f28515c3a51b22b4b16bb18245 Mon Sep 17 00:00:00 2001 From: "Artyom V. Poptsov" Date: Sun, 12 Oct 2014 13:23:07 +0400 Subject: ssh/server.scm (server-get): New procedure * ssh/server-func.c (guile_ssh_server_get): New procedure. * ssh/server.scm (server-get): Export. * tests/server.scm ("server-get"): New TC. * doc/api-servers.texi (Servers): Add description of `server-get'. * NEWS: Update. --- tests/server.scm | 24 ++++++++++++++++++++++++ 1 file changed, 24 insertions(+) (limited to 'tests/server.scm') diff --git a/tests/server.scm b/tests/server.scm index a1bc7af..3ce475f 100644 --- a/tests/server.scm +++ b/tests/server.scm @@ -114,6 +114,30 @@ #:log-verbosity 'nolog #:blocking-mode #f))) +(test-assert "server-get" + (let* ((topdir (getenv "abs_top_srcdir")) + (bindaddr "127.0.0.1") + (bindport 123456) + (rsakey (format #f "~a/tests/rsakey" topdir)) + (dsakey (format #f "~a/tests/dsakey" topdir)) + (banner "banner") + (log-verbosity 'nolog) + (blocking-mode #f) + (server (make-server #:bindaddr bindaddr + #:bindport bindport + #:rsakey rsakey + #:dsakey dsakey + #:banner banner + #:log-verbosity log-verbosity + #:blocking-mode blocking-mode))) + (and (eq? (server-get server 'bindaddr) bindaddr) + (eq? (server-get server 'bindport) bindport) + (eq? (server-get server 'rsakey) rsakey) + (eq? (server-get server 'dsakey) dsakey) + (eq? (server-get server 'banner) banner) + (eq? (server-get server 'log-verbosity) log-verbosity) + (eq? (server-get server 'blocking-mode) blocking-mode)))) + (test-assert "server-listen" (let* ((topdir (getenv "abs_top_srcdir")) (server (make-server #:bindaddr "127.0.0.1" -- cgit v1.2.3