From 6aca925ef28bf0a0a311bc8e33ec9a5aa2ded6ad Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Mon, 5 Mar 2007 14:52:58 +0000 Subject: add tests from GHC testsuite --- tests/signals002.hs | 15 +++++++++++++++ 1 file changed, 15 insertions(+) create mode 100644 tests/signals002.hs (limited to 'tests/signals002.hs') diff --git a/tests/signals002.hs b/tests/signals002.hs new file mode 100644 index 0000000..b2e6e5e --- /dev/null +++ b/tests/signals002.hs @@ -0,0 +1,15 @@ +import System.Posix +import Control.Concurrent + +-- !!! test blockSignals, raiseSignal, unblockSignals, getPendingSignals + +main = do + blockSignals ( userDefinedSignal1 `addSignal` emptySignalSet ) + raiseSignal userDefinedSignal1 + set <- getPendingSignals + print (userDefinedSignal1 `inSignalSet` set) + m <- newEmptyMVar + installHandler userDefinedSignal1 + (Catch (putStrLn "hello" >> putMVar m ())) Nothing + awaitSignal (Just emptySignalSet) + takeMVar m -- cgit v1.2.3