diff options
Diffstat (limited to 'tests/server.scm')
| -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" |