diff options
author | Paolo Capriotti <p.capriotti@gmail.com> | 2012-03-09 11:44:41 +0000 |
---|---|---|
committer | Paolo Capriotti <p.capriotti@gmail.com> | 2012-03-09 11:44:41 +0000 |
commit | 891c0bf89b89e3995d2dbc1f6f72b43312b14a44 (patch) | |
tree | 2f49d3817b718b226ca37489302bae735bf9ade0 /tests/libposix/posix006.hs | |
parent | 0e8de7869a0f3b32d2ac8cbe2aad74eb7dcf054a (diff) |
Copy tests from GHC testsuite (#1161)
Diffstat (limited to 'tests/libposix/posix006.hs')
-rw-r--r-- | tests/libposix/posix006.hs | 18 |
1 files changed, 18 insertions, 0 deletions
diff --git a/tests/libposix/posix006.hs b/tests/libposix/posix006.hs new file mode 100644 index 0000000..697e4e6 --- /dev/null +++ b/tests/libposix/posix006.hs @@ -0,0 +1,18 @@ + +import System.Posix.Time +import System.Posix.Unistd +import System.Posix.Signals + +main = do start <- epochTime + blockSignals reservedSignals -- see #4504 + sleep 1 + finish <- epochTime + let slept = finish - start + if slept >= 1 && slept <= 2 + then putStrLn "OK" + else do putStr "Started: " + print start + putStr "Finished: " + print finish + putStr "Slept: " + print slept |