diff options
| author |  Simon Marlow <simonmar@microsoft.com> | 2007-03-05 14:52:58 +0000 |
|---|---|---|
| committer | Simon Marlow <simonmar@microsoft.com> | 2007-03-05 14:52:58 +0000 |
| commit | 6aca925ef28bf0a0a311bc8e33ec9a5aa2ded6ad (patch) | |
| tree | 56d12852ae789bc48d0fb8b15837e20a6ca718b1 /tests/signals002.hs | |
| parent | 7b8f8d32be1a6b14317a6373bc4a40b03285aa4d (diff) | |
add tests from GHC testsuite
Diffstat (limited to 'tests/signals002.hs')
| -rw-r--r-- | tests/signals002.hs | 15 |
1 files changed, 15 insertions, 0 deletions
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 |