diff options
Diffstat (limited to 'tests/server.scm')
| -rw-r--r-- | tests/server.scm | 10 |
1 files changed, 4 insertions, 6 deletions
diff --git a/tests/server.scm b/tests/server.scm index 8e61e0a..05e8689 100644 --- a/tests/server.scm +++ b/tests/server.scm @@ -122,22 +122,20 @@ (let* ((topdir (getenv "abs_top_srcdir")) (bindaddr "127.0.0.1") (bindport 123456) - (rsakey %rsakey) - (dsakey %dsakey) (banner "banner") (log-verbosity 'nolog) (blocking-mode #f) (server (make-server #:bindaddr bindaddr #:bindport bindport - #:rsakey rsakey - #:dsakey dsakey + #: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 '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)))) |