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

[ghc-hetmet.git] / ghc / tests / lib / posix / posix009.hs

diff --git a/ghc/tests/lib/posix/posix009.hs b/ghc/tests/lib/posix/posix009.hs
deleted file mode 100644 (file)
index 1f230f6..0000000
--- a/ghc/tests/lib/posix/posix009.hs
+++ /dev/null
@@ -1,15 +0,0 @@
-import Posix
-
-main =
-    putStr "Blocking real time alarms.\n" >>
-    blockSignals (addSignal realTimeAlarm emptySignalSet) >>
-    putStr "Scheduling an alarm in 2 seconds...\n" >>
-    scheduleAlarm 2 >>
-    putStr "Sleeping 5 seconds.\n" >>
-    sleep 5 >>
-    putStrLn "Woken up" >>
-    getPendingSignals >>= \ ints ->
-    putStr "Checking pending interrupts for RealTimeAlarm\n" >>
-    print (inSignalSet realTimeAlarm ints) >>
-    putChar '\n'
-