summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorSimon Marlow <marlowsd@gmail.com>2014-11-06 16:42:49 +0000
committerSimon Marlow <marlowsd@gmail.com>2014-11-12 15:11:10 +0000
commit8c10b67ba049477cc9ed23e61f5bd119e1cefc29 (patch)
tree10c207cd0c5ee2a55d5ca2a3f145e5062a380b61
parent4b5d62ab04103843ba07128d90499fbe103d773b (diff)
downloadhaskell-8c10b67ba049477cc9ed23e61f5bd119e1cefc29.tar.gz
fix allocLimit3 on Windows
-rw-r--r--testsuite/tests/concurrent/should_run/all.T7
1 files changed, 6 insertions, 1 deletions
diff --git a/testsuite/tests/concurrent/should_run/all.T b/testsuite/tests/concurrent/should_run/all.T
index b77d9aca87..e72bffea91 100644
--- a/testsuite/tests/concurrent/should_run/all.T
+++ b/testsuite/tests/concurrent/should_run/all.T
@@ -90,7 +90,12 @@ test('T9379', normal, compile_and_run, [''])
test('allocLimit1', exit_code(1), compile_and_run, [''])
test('allocLimit2', normal, compile_and_run, [''])
-test('allocLimit3', exit_code(1), compile_and_run, [''])
+
+# The non-threaded RTS on Windows doesn't handle throwing exceptions at I/O
+# operations very well, and ends up duplicating the I/O, giving wrong results.
+test('allocLimit3', [ when(opsys('mingw32'), only_ways(threaded_ways)),
+ exit_code(1) ], compile_and_run, [''])
+
test('allocLimit4', [ extra_run_opts('+RTS -xq300k -RTS') ],
compile_and_run, [''])