Commit 9a14beea authored by simonmar's avatar simonmar
Browse files

[project @ 2002-03-18 14:53:36 by simonmar]

Add a test description
parent b9ed91f5
......@@ -2,6 +2,9 @@ import IO
import Control.Concurrent
import Control.Exception
-- !!! test that a child thread waiting on its own MVar will get killed by
-- a signal.
main = do
forkIO (Control.Exception.catch (do { m <- newEmptyMVar; takeMVar m })
(\e -> putStrLn ("caught: " ++ show e)))
......
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