[project @ 2001-08-22 12:24:41 by simonmar]

[ghc-hetmet.git] / ghc / tests / concurrent / should_run / conc010.hs

diff --git a/ghc/tests/concurrent/should_run/conc010.hs b/ghc/tests/concurrent/should_run/conc010.hs
deleted file mode 100644 (file)
index bb97b96..0000000
--- a/ghc/tests/concurrent/should_run/conc010.hs
+++ /dev/null
@@ -1,29 +0,0 @@
-{-# OPTIONS -fglasgow-exts #-}
-
-module Main where
-
-import Concurrent
-import Exception
-
--- Raise an exception in another thread.  We need a lot of synchronisation here:
-
---   - an MVar for the second thread to block on which it waits for the
---     signal (block)
-
---   - an MVar to signal the main thread that the second thread is ready to
---     accept the signal (ready)
-
---   - an MVar to signal the main thread that the second thread has received
---     the signal (ready2).  If we don't have this MVar, then the main
---     thread could exit before the second thread has time to print
---     the result.
-
-main = do 
-  block  <- newEmptyMVar
-  ready  <- newEmptyMVar
-  ready2 <- newEmptyMVar
-  id <- forkIO (Exception.catch (putMVar ready () >> takeMVar block) 
-               (\e -> putStr (show e) >> putMVar ready2 ()))
-  takeMVar ready
-  throwTo id (ErrorCall "hello")
-  takeMVar ready2