X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Frun-program.impure.lisp;h=098c74ded1a11b5c078cf089f2244c8b28697aee;hb=4c81c652cdc32faefee1bccb84c3c9a7854e3edd;hp=e62eb959dfcbf6f0a1f119eedb0e6fd5d891e6a0;hpb=0fd1ec424a7e5969a76a2531e42a6b2621e63c11;p=sbcl.git

diff --git a/tests/run-program.impure.lisp b/tests/run-program.impure.lisp
index e62eb95..098c74d 100644
--- a/tests/run-program.impure.lisp
+++ b/tests/run-program.impure.lisp
@@ -31,8 +31,7 @@
               (assert (= (read-byte in) i)))
       (process-close process))))
 
-#+sb-thread
-(with-test (:name :run-program-cat-2)
+(with-test (:name :run-program-cat-2 :skipped-on '(not :sb-thread))
   ;; Tests that reading from a FIFO is interruptible.
   (let* ((process (sb-ext:run-program "/bin/cat" '()
                                       :wait nil