From 8c10b67ba049477cc9ed23e61f5bd119e1cefc29 Mon Sep 17 00:00:00 2001 From: Simon Marlow Date: Thu, 6 Nov 2014 16:42:49 +0000 Subject: fix allocLimit3 on Windows --- testsuite/tests/concurrent/should_run/all.T | 7 ++++++- 1 file changed, 6 insertions(+), 1 deletion(-) (limited to 'testsuite/tests/concurrent') 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, ['']) -- cgit v1.2.1