diff options
| author | Artyom Poptsov <poptsov.artyom@gmail.com> | 2014-01-28 19:53:15 +0400 |
|---|---|---|
| committer | Artyom Poptsov <poptsov.artyom@gmail.com> | 2014-01-28 19:53:15 +0400 |
| commit | d0ff67aa6d4ddc5c5eb6463989bf0cde1aa00c98 (patch) | |
| tree | d8a3cd0fcd5a7e21c83a464ed37a3286654b63b4 /tests/server.scm | |
| parent | Merge branch 'master' into tests-implementation (diff) | |
| download | guile-ssh-d0ff67aa6d4ddc5c5eb6463989bf0cde1aa00c98.tar.gz | |
tests/server.scm: `server-set!', check `hostkey' option.
* tests/server.scm ("server-set!, valid values"): Check `hostkey'
option.
("server-set!, invalid values"): Likewise.
Diffstat (limited to 'tests/server.scm')
| -rw-r--r-- | tests/server.scm | 3 |
1 files changed, 2 insertions, 1 deletions
diff --git a/tests/server.scm b/tests/server.scm index ee6f124..69d130a 100644 --- a/tests/server.scm +++ b/tests/server.scm @@ -40,7 +40,7 @@ (topdir (getenv "abs_top_srcdir")) (options `((bindaddr "127.0.0.1") (bindport 22) - ;; (hostkey ,(format #f "~a/tests/rsakey" topdir)) + (hostkey "ssh-rsa" "ssh-dss") (rsakey ,(format #f "~a/tests/rsakey" topdir)) (dsakey ,(format #f "~a/tests/dsakey" topdir)) (banner "string") @@ -70,6 +70,7 @@ (let ((server (%make-server)) (options '((bindaddr "I'm not a IP address" 42) (bindport "I'm not a port" -42) + (hostkey "invalid value" 1 'invalid-value) (rsakey "I'm not a RSA key" 42) (dsakey "I'm not a DSA key" 42) (banner 12345) |