diff options
Diffstat (limited to 'testsuite/tests/lib/libposix/posix006.hs')
| -rw-r--r-- | testsuite/tests/lib/libposix/posix006.hs | 18 |
1 files changed, 0 insertions, 18 deletions
diff --git a/testsuite/tests/lib/libposix/posix006.hs b/testsuite/tests/lib/libposix/posix006.hs deleted file mode 100644 index 697e4e6e20..0000000000 --- a/testsuite/tests/lib/libposix/posix006.hs +++ /dev/null @@ -1,18 +0,0 @@ - -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 |