X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;ds=sidebyside;f=tests%2Frun-program.impure.lisp;h=01100bad9c98aff082dbea03f7e6501bb9a17e9c;hb=f2db6743b1fadeea9e72cb583d857851c87efcd4;hp=9ef07e5014abdbaa82fc295c882f64acf74484a0;hpb=1e7fc4730aa0cafb0aba5278e8cdbdba566b8725;p=sbcl.git

diff --git a/tests/run-program.impure.lisp b/tests/run-program.impure.lisp
index 9ef07e5..01100ba 100644
--- a/tests/run-program.impure.lisp
+++ b/tests/run-program.impure.lisp
@@ -135,3 +135,14 @@
               (sb-ext:run-program "/bin/echo" '
                                   ("It would be nice if this didn't crash.")
                                   :wait nil :output nil)))))
+
+(with-test (:name (:run-program :pty-stream))
+  (assert (equal "OK"
+                 (subseq
+                  (with-output-to-string (s)
+                    (assert (= 42 (process-exit-code
+                                   (run-program "/bin/sh" '("-c" "echo OK; exit 42") :wait t
+                                                :pty s))))
+                    s)
+                  0
+                  2))))