diff options
| author | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-10-29 15:07:34 +0300 |
|---|---|---|
| committer | Artyom V. Poptsov <poptsov.artyom@gmail.com> | 2015-10-29 15:07:34 +0300 |
| commit | dc5bea21b2ff9697db58e66007b0700556a213d7 (patch) | |
| tree | 04acbd62aab4d60ec3cd01231d6ac75a5abe4d09 /tests/server.scm | |
| parent | tests/server.scm: Use (tests common) (diff) | |
| download | guile-ssh-dc5bea21b2ff9697db58e66007b0700556a213d7.tar.gz | |
tests/server.scm ("server-get"): Simplify the TC
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)))) |