diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/common.scm | 12 | ||||
| -rw-r--r-- | tests/dist.scm | 17 |
2 files changed, 29 insertions, 0 deletions
diff --git a/tests/common.scm b/tests/common.scm index 663c0be..e6b11c4 100644 --- a/tests/common.scm +++ b/tests/common.scm @@ -291,6 +291,18 @@ disconnected when the PROC is finished." (message-reply-success msg) (channel-request-send-exit-status channel 0) (channel-send-eof channel)) + ((string=? cmd "which guile > /dev/null && guile --version") + (write-line "\ +guile (GNU Guile) 2.0.14 +Copyright (C) 2016 Free Software Foundation, Inc. + +License LGPLv3+: GNU LGPL 3 or later <http://gnu.org/licenses/lgpl.html>. +This is free software: you are free to change and redistribute it. +There is NO WARRANTY, to the extent permitted by law. +" channel) + (message-reply-success msg) + (channel-request-send-exit-status channel 0) + (channel-send-eof channel)) (else (write-line cmd channel) (message-reply-success msg) diff --git a/tests/dist.scm b/tests/dist.scm index ddf9573..f26b0cf 100644 --- a/tests/dist.scm +++ b/tests/dist.scm @@ -190,6 +190,23 @@ $4 = #<session #<undefined>@#<undefined>:22 (disconnected) 453fff>" (lambda (port) (rrepl-skip-to-prompt port)))) +(test-assert-with-log "node-guile-version, valid response" + (run-client-test + ;; Server + start-server/exec + ;; Client + (lambda () + (call-with-connected-session + (lambda (session) + (authenticate-server session) + (format-log/scm 'nolog "client" "session: ~a" session) + (unless (equal? (userauth-none! session) 'success) + (error "Could not authenticate with a server" session)) + + (let ((n (make-node session #:start-repl-server? #f))) + (string=? (node-guile-version n) + "guile (GNU Guile) 2.0.14"))))))) + ;;; Distributed forms. |