From cc322963ec20df8c3e9067dca40e749c112f2878 Mon Sep 17 00:00:00 2001
From: Simon Marlow <marlowsd@gmail.com>
Date: Fri, 10 Dec 2010 09:46:45 +0000
Subject: [PATCH] run forkprocess01 with +RTS -ls too, to test #4512
---
tests/all.T | 8 +++++---
1 file changed, 5 insertions(+), 3 deletions(-)
diff --git a/tests/all.T b/tests/all.T
index e4444c3..ee333b0 100644
--- a/tests/all.T
+++ b/tests/all.T
@@ -7,9 +7,11 @@ test('signals001', conf, compile_and_run, ['-package unix -cpp'])
test('signals002', compose(only_compiler_types(['ghc']), conf),
compile_and_run, ['-package unix'])
test('fileexist01', conf, compile_and_run, ['-package unix'])
-test('forkprocess01', compose(only_compiler_types(['ghc']),
- compose(expect_fail_for(['threaded2']), conf)),
- compile_and_run, ['-package unix'])
+test('forkprocess01', [ only_compiler_types(['ghc']),
+ expect_fail_for(['threaded2']),
+ extra_ways(['threaded1_ls']), # test #4512
+ conf ],
+ compile_and_run, ['-package unix'])
#
# user001 may fail due to this bug in glibc:
--
GitLab