diff --git a/src/tests/normal-tests/run-program.lsp b/src/tests/normal-tests/run-program.lsp
index aae6c52f6..c622bd90e 100644
--- a/src/tests/normal-tests/run-program.lsp
+++ b/src/tests/normal-tests/run-program.lsp
@@ -31,6 +31,7 @@
        (last nil line))
       ((eql line :eof) last)))
 
+
 (test arg-test
   (is (equal '(nil :exited 0)
              (with-run-program (arg-test ("a" "b c" "d \\" "e\ 4\\
@@ -58,6 +59,20 @@
   ;; process will have :eof on input and should quit with "1"
   (is-equal '(nil :exited 1) (with-run-program (io/err nil :input nil))))
 
+(test stream-values
+  (is-equal '(nil :exited 0)
+            (with-run-program (print-test nil :output nil :error nil :input nil)))
+  (is-equal '(nil :exited 0)
+            (with-run-program (print-test nil :output nil :error :output :input nil)))
+  (is-equal '(nil :exited 0)
+            (with-run-program (print-test nil :output nil :error :output :input :stream)))
+  (is-equal '(nil :exited 0)
+            (with-run-program (print-test nil :output :stream :error :output :input :stream)))
+  (is-equal '(nil :exited 0)
+            (with-run-program (print-test nil :output :stream :error :stream :input :stream)))
+  (signals simple-error
+    (with-run-program (print-test nil :output :bam :error :stream :input :stream))))
+
 
 (test terminate-process
   (is-equal `(t :signaled ,ext:+sigterm+)