Commit 0cb5d9fb authored by sewardj's avatar sewardj
Browse files

[project @ 2002-02-21 15:13:07 by sewardj]

Move towards new-library-compatibility
parent c18e9c21
......@@ -8,7 +8,7 @@ include ($confdir ++ "/../vanilla-test.T")
def myvtr ( $args_c, $args_r, $ret_res )
{
vtr ( " -package concurrent -package lang -fglasgow-exts " ++ $args_c,
vtr ( " -fglasgow-exts " ++ $args_c,
$args_r, $ret_res )
}
......
module Main where
import Concurrent
import Control.Concurrent
-- two processes, one MVar communication.
......
module Main where
import Concurrent
import Control.Concurrent
main = do
c <- newChan
......
module Main where
import Concurrent
import Control.Concurrent
-- simple handshaking using two MVars,
-- must context switch twice for each character.
......
......@@ -3,7 +3,7 @@ module Main where
-- Test thread creation.
-- (from: Einar Wolfgang Karlsen <ewk@Informatik.Uni-Bremen.DE>)
import Concurrent
import Control.Concurrent
main :: IO ()
main = do
......
module Main where
import Concurrent
import Control.Concurrent
-- same as conc004, but using the ChannelVar abstraction
......
module Main where
import Concurrent
import Control.Concurrent
-- This test hopefully exercises the black hole code. The main thread
-- forks off another thread and starts on a large computation.
......
......@@ -2,8 +2,8 @@
module Main where
import Concurrent
import Exception
import Control.Concurrent
import Control.Exception
import IOExts
choose :: a -> a -> IO a
......
......@@ -2,8 +2,8 @@
module Main where
import Concurrent
import Exception
import Control.Concurrent
import Control.Exception
-- Send ourselves a KillThread signal, catch it and recover.
......
......@@ -2,8 +2,8 @@
module Main where
import Concurrent
import Exception
import Control.Concurrent
import Control.Exception
main = do
id <- myThreadId
......
......@@ -2,8 +2,8 @@
module Main where
import Concurrent
import Exception
import Control.Concurrent
import Control.Exception
-- Raise an exception in another thread. We need a lot of synchronisation here:
......
module Main where
import Concurrent
import Exception
import Control.Concurrent
import Control.Exception
import GlaExts
data Result = Died Exception | Finished
......
......@@ -2,7 +2,7 @@ module Main where
-- !!! test Eq and Ord instances over thread Ids.
import Concurrent
import Control.Concurrent
main = do
tso1 <- forkIO (return ())
......
import Concurrent
import Exception
import Control.Concurrent
import Control.Exception
-- Test blocking of async exceptions in an exception handler.
-- The exception raised in the main thread should not be delivered
......
import Concurrent
import Exception
import Control.Concurrent
import Control.Exception
-- test blocking & unblocking of async exceptions.
......
import Concurrent
import Exception
import Control.Concurrent
import Control.Exception
-- check that we can still kill a thread that is blocked on
-- delivering an exception to us.
......
import Concurrent
import Exception
import Control.Concurrent
import Control.Exception
-- check that async exceptions are restored to their previous
-- state after an exception is raised and handled.
......
import Concurrent
import Exception
import Control.Concurrent
import Control.Exception
-- test that putMVar blocks on a full MVar rather than raising an
-- exception.
......
import IO
import Concurrent
import Exception
import Control.Concurrent
import Control.Exception
main = do
forkIO (Exception.catch (do { m <- newEmptyMVar; takeMVar m })
......
import Concurrent
import Exception
import Control.Concurrent
import Control.Exception
main = do
m <- newEmptyMVar
......
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