diff options
Diffstat (limited to 'tests')
| -rw-r--r-- | tests/common.scm | 5 | ||||
| -rw-r--r-- | tests/shell.scm | 11 |
2 files changed, 16 insertions, 0 deletions
diff --git a/tests/common.scm b/tests/common.scm index c32ecd6..014997f 100644 --- a/tests/common.scm +++ b/tests/common.scm @@ -268,6 +268,11 @@ disconnected when the PROC is finished." (write-line "pong" 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) + (channel-request-send-exit-status channel 0) (channel-send-eof channel))) (message-reply-success msg)) (message-reply-success msg))) diff --git a/tests/shell.scm b/tests/shell.scm index 743fc39..f8cac16 100644 --- a/tests/shell.scm +++ b/tests/shell.scm @@ -55,6 +55,17 @@ (rexec session "uname") (list result exit-code))))))) +(test-assert-with-log "which" + (run-client-test + start-server/exec + (lambda () + (call-with-connected-session/shell + (lambda (session) + (receive (result exit-code) + (which session "uname") + (and (zero? exit-code) + (string=? (car result) "which 'uname'")))))))) + ;;; |