diff options
Diffstat (limited to 'tests/server.scm')
| -rw-r--r-- | tests/server.scm | 8 |
1 files changed, 7 insertions, 1 deletions
diff --git a/tests/server.scm b/tests/server.scm index f0edd7c..17bf25b 100644 --- a/tests/server.scm +++ b/tests/server.scm @@ -21,9 +21,13 @@ (use-modules (srfi srfi-64) (ssh server) + (ssh version) ;; Helper procedures (tests common)) +(define %libssh-minor-version + (string->number (cadr (string-split (get-libssh-version) #\.)))) + (test-begin "server") @@ -53,7 +57,9 @@ (topdir (getenv "abs_top_srcdir")) (options `((bindaddr "127.0.0.1") (bindport 22) - (hostkey "ssh-rsa" "ssh-dss") + ,(if (= %libssh-minor-version 7) + (list 'hostkey %rsakey %dsakey) + '(hostkey "ssh-rsa" "ssh-dss")) (rsakey ,%rsakey) (dsakey ,%dsakey) (banner "string") |