diff options
Diffstat (limited to 'tests/libposix/posix009.hs')
-rw-r--r-- | tests/libposix/posix009.hs | 15 |
1 files changed, 15 insertions, 0 deletions
diff --git a/tests/libposix/posix009.hs b/tests/libposix/posix009.hs new file mode 100644 index 0000000..067d3a9 --- /dev/null +++ b/tests/libposix/posix009.hs @@ -0,0 +1,15 @@ +import System.Posix.Signals +import System.Posix.Unistd + +main = do + putStrLn "Blocking real time alarms." + blockSignals (addSignal realTimeAlarm reservedSignals) + putStrLn "Scheduling an alarm in 2 seconds..." + scheduleAlarm 2 + putStrLn "Sleeping 5 seconds." + sleep 5 + putStrLn "Woken up" + ints <- getPendingSignals + putStrLn "Checking pending interrupts for RealTimeAlarm" + print (inSignalSet realTimeAlarm ints) + |