clean up test failures
authorSimon Marlow <marlowsd@gmail.com>
Mon, 21 Nov 2011 15:22:37 +0000 (15:22 +0000)
committerSimon Marlow <marlowsd@gmail.com>
Mon, 21 Nov 2011 15:45:52 +0000 (15:45 +0000)
testsuite/tests/lib/libposix/all.T
testsuite/tests/lib/libposix/posix006.hs

index b925a9d..0e95e56 100644 (file)
@@ -1,8 +1,18 @@
-test('posix002', reqlib('unix'), compile_and_run, [''])
-test('posix003', normal,         compile_and_run, [''])
-test('posix004', reqlib('unix'), compile_and_run, [''])
+test('posix002', [ reqlib('unix'), omit_ways(prof_ways) ],
+                 compile_and_run, [''])
+
+test('posix003', normal, compile_and_run, [''])
+
+# Uses forkProcess; doesn't work with threaded2
+test('posix004', [ reqlib('unix'), expect_fail_for(['threaded2']) ],
+                 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, [''])
 test('posix010', reqlib('unix'), compile_and_run, [''])
-test('posix014', reqlib('unix'), compile_and_run, [''])
+
+# Uses forkProcess; doesn't work with threaded2
+test('posix014', [ reqlib('unix'), expect_fail_for(['threaded2']) ],
+                 compile_and_run, [''])
index dfe3f1d..697e4e6 100644 (file)
@@ -1,12 +1,14 @@
 
 import System.Posix.Time
 import System.Posix.Unistd
+import System.Posix.Signals
 
 main = do start <- epochTime
-          sleep 5
+          blockSignals reservedSignals -- see #4504
+          sleep 1
           finish <- epochTime
           let slept = finish - start
-          if slept >= 5 && slept <= 6
+          if slept >= 1 && slept <= 2
               then putStrLn "OK"
               else do putStr "Started: "
                       print start