diff --git a/test/suite0009.janet b/test/suite0009.janet index 6b61797a..1d4368b9 100644 --- a/test/suite0009.janet +++ b/test/suite0009.janet @@ -52,6 +52,11 @@ (def retval (os/proc-wait p)) (assert (not= retval 24) "Process was *not* terminated by parent")) +(let [p (os/spawn [janet "-e" `(do (ev/sleep 30) (os/exit 24)`] :p)] + (os/proc-kill p false :kill) + (def retval (os/proc-wait p)) + (assert (not= retval 24) "Process was *not* terminated by parent")) + # Parallel subprocesses (defn calc-1