Commit f8b27adf authored by Simon Marlow's avatar Simon Marlow
Browse files

add test for #4813

parent 4313fb58
import Control.Concurrent
import Control.Monad
import Control.Exception
import System.Mem
-- caused an assertion failure with -debug in 7.0.1 (#4813)
main = do
m <- newEmptyMVar
ts <- replicateM 100 $ mask_ $ forkIO $ threadDelay 100000; putMVar m ()
mapM_ killThread (reverse (init ts))
takeMVar m
......@@ -48,6 +48,8 @@ test('4262', [ skip, # skip for now, it doesn't give reliable results
unless_os('linux',skip) ],
compile_and_run, [''])
test('4813', normal, compile_and_run, ['-debug'])
# -----------------------------------------------------------------------------
# These tests we only do for a full run
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment