unbreak test (that no longer has a timeout)

This commit is contained in:
Matthew Flatt 2020-05-24 07:21:43 -06:00
parent 2434bb3a0c
commit 9d8e048e04

View File

@ -467,7 +467,7 @@
(let loop ()
(when (running? sub-pid)
(sleep 0.05)
(loop (sub1 n)))))
(loop))))
(test post-shutdown? running? sub-pid)
(when post-shutdown?
(parameterize ([current-input-port (open-input-string "")])