Something went wrong. Try again.
lol
Something went wrong. Try again.
560 B · 13 lines
at master
1234567891011121314diff --git a/test/test.hs b/test/test.hsindex 0251552..dc799a7 100644--- a/test/test.hs+++ b/test/test.hs@@ -214,7 +214,7 @@ wrap :: (ThreadGroup -> Fork a) -> (Fork a -> IO b) -> IO b wrap doFork test = ThreadGroup.new >>= test . doFork test_group_single_wait :: (ThreadGroup -> Fork ()) -> Assertion-test_group_single_wait doFork = assert $ fmap isJustTrue $ timeout (10 * a_moment) $ do+test_group_single_wait doFork = assert $ fmap isJustTrue $ timeout (100 * a_moment) $ do tg <- ThreadGroup.new r <- newIORef False _ <- doFork tg $ do