X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Frun-program.test.sh;h=00399d159fe81817d5440dd848fe43644fef63c1;hb=4b059e9764d4fa857029bda034a85f51a85aee8b;hp=84a93c55869204c4cce73af5725972d5f846015c;hpb=778877cd8b0aad3cc3d2555e83d55e9f229678c7;p=sbcl.git

diff --git a/tests/run-program.test.sh b/tests/run-program.test.sh
index 84a93c5..00399d1 100644
--- a/tests/run-program.test.sh
+++ b/tests/run-program.test.sh
@@ -57,6 +57,13 @@ ${SBCL:-sbcl} <<EOF
   ;; That's not just because POSIX-ENVIRON is having a bad hair
   ;; day and returning NIL, is it?
   (assert (plusp (length (sb-ext:posix-environ))))
+  ;; make sure that a stream input argument is basically reasonable.
+  (let ((string (let ((i (make-string-input-stream "abcdef")))
+                  (with-output-to-string (stream)
+                    (sb-ext:run-program "/bin/cat" ()
+                                        :input i :output stream)))))
+    (assert (= (length string) 6))
+    (assert (string= string "abcdef")))
   ;; success convention for this Lisp program run as part of a larger script
   (sb-ext:quit :unix-status 52)))
 EOF