X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Frun-program.impure.lisp;h=f02cfa08d994bd23469754399e34a49ab5a2741c;hb=74cfbf6d0572b7df1b3492563408a7cb3ae103cf;hp=29fbd7245e82ddc848591f8c7a10890c816c2dcb;hpb=bd93f052f95371f613fb913c1cac2b01c8ff2a5c;p=sbcl.git diff --git a/tests/run-program.impure.lisp b/tests/run-program.impure.lisp index 29fbd72..f02cfa0 100644 --- a/tests/run-program.impure.lisp +++ b/tests/run-program.impure.lisp @@ -153,9 +153,7 @@ ;; We can't check for the signal itself since run-program.c resets the ;; forked process' signal mask to defaults. But the default is `stop' ;; of which we can be notified asynchronously by providing a status hook. -(with-test (:name (:run-program :inherit-stdin) - :fails-on :sbcl) - (error "Hangs at least on threaded Darwin and threaded x86-64/Linux.") +(with-test (:name (:run-program :inherit-stdin)) (let (stopped) (flet ((status-hook (proc) (case (sb-ext:process-status proc)