From: simonmar Date: Fri, 17 Mar 2000 10:25:16 +0000 (+0000) Subject: [project @ 2000-03-17 10:25:16 by simonmar] X-Git-Tag: Approximately_9120_patches~4958 X-Git-Url: http://git.megacz.com/?a=commitdiff_plain;h=786cf63de4522fa6b8090f85f3d0a64adff542c5;p=ghc-hetmet.git [project @ 2000-03-17 10:25:16 by simonmar] Add test for interruptible ops. --- diff --git a/ghc/tests/concurrent/should_run/conc020.hs b/ghc/tests/concurrent/should_run/conc020.hs new file mode 100644 index 0000000..7a3774a --- /dev/null +++ b/ghc/tests/concurrent/should_run/conc020.hs @@ -0,0 +1,10 @@ +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 diff --git a/ghc/tests/concurrent/should_run/conc020.stderr b/ghc/tests/concurrent/should_run/conc020.stderr new file mode 100644 index 0000000..be1a6af --- /dev/null +++ b/ghc/tests/concurrent/should_run/conc020.stderr @@ -0,0 +1,2 @@ + +Fail: I'm Interruptible