Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/af32066549180d646c842ea8319a71ceb9b6830d >--------------------------------------------------------------- commit af32066549180d646c842ea8319a71ceb9b6830d Author: Ian Lynagh <[email protected]> Date: Sun Nov 20 14:11:53 2011 +0000 Fix and reenalbe posix009 >--------------------------------------------------------------- tests/lib/libposix/all.T | 1 + tests/lib/libposix/posix009.hs | 26 +++++++++++++------------- tests/lib/libposix/posix009.stdout | 6 ++++++ 3 files changed, 20 insertions(+), 13 deletions(-) diff --git a/tests/lib/libposix/all.T b/tests/lib/libposix/all.T index 334d4f2..1524893 100644 --- a/tests/lib/libposix/all.T +++ b/tests/lib/libposix/all.T @@ -3,3 +3,4 @@ test('posix003', normal, compile_and_run, ['']) test('posix004', reqlib('unix'), compile_and_run, ['']) test('posix005', [reqlib('unix'), expect_broken(5648)], compile_and_run, ['']) test('posix006', reqlib('unix'), compile_and_run, ['']) +test('posix009', reqlib('unix'), compile_and_run, ['']) diff --git a/tests/lib/libposix/posix009.hs b/tests/lib/libposix/posix009.hs index 1f230f6..906365d 100644 --- a/tests/lib/libposix/posix009.hs +++ b/tests/lib/libposix/posix009.hs @@ -1,15 +1,15 @@ -import Posix +import System.Posix.Signals +import System.Posix.Unistd -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' +main = do + putStrLn "Blocking real time alarms." + blockSignals (addSignal realTimeAlarm emptySignalSet) + 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) diff --git a/tests/lib/libposix/posix009.stdout b/tests/lib/libposix/posix009.stdout index e69de29..d294675 100644 --- a/tests/lib/libposix/posix009.stdout +++ b/tests/lib/libposix/posix009.stdout @@ -0,0 +1,6 @@ +Blocking real time alarms. +Scheduling an alarm in 2 seconds... +Sleeping 5 seconds. +Woken up +Checking pending interrupts for RealTimeAlarm +True _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
