stop (t,m) = do killThread t
                delay
                takeMVar m

-- True if test passed, False if test failed
-- This expects FIFO semantics for the waiters
stop (t,m) = do killThread t
                delay
                takeMVar m

-- True if test passed, False if test failed
-- This expects FIFO semantics for the waiters
stop (t,m) = do killThread t
                delay
                takeMVar m

-- True if test passed, False if test failed
-- This expects FIFO semantics for the waiters