1 files changed, 11 insertions, 0 deletions
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'"))))))))
+
 
 ;;;