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