[project @ 2000-03-17 10:25:16 by simonmar]

Add test for interruptible ops.

ghc/tests/concurrent/should_run/conc020.hs

+import Concurrent
+import Exception
+
+main = do
+  m <- newEmptyMVar
+  t <- forkIO (blockAsyncExceptions $ takeMVar m)
+  threadDelay 100000
+  raiseInThread t (ErrorCall "I'm Interruptible")
+  threadDelay 100000
+  putMVar m ()  -- to avoid t being garbage collected

ghc/tests/concurrent/should_run/conc020.stderr

+
+Fail: I'm Interruptible