diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2014-10-12 13:23:07 +0400 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2014-10-12 13:23:07 +0400 |
| commit | 328dac9837ff11f28515c3a51b22b4b16bb18245 (patch) | |
| tree | f5c27447f7f7f392c0a76ff1d723cd8072e27533 /tests | |
| parent | ssh/server-type.c (print_server): Print object address (diff) | |
| download | guile-ssh-328dac9837ff11f28515c3a51b22b4b16bb18245.tar.gz | |
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.
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/server.scm | 24 |
1 files changed, 24 insertions, 0 deletions
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" |