diff options
Diffstat (limited to 'testsuite/tests/ffi/should_fail/all.T')
| -rw-r--r-- | testsuite/tests/ffi/should_fail/all.T | 10 |
1 files changed, 9 insertions, 1 deletions
diff --git a/testsuite/tests/ffi/should_fail/all.T b/testsuite/tests/ffi/should_fail/all.T index 944f172c02..ce72f177c3 100644 --- a/testsuite/tests/ffi/should_fail/all.T +++ b/testsuite/tests/ffi/should_fail/all.T @@ -14,7 +14,15 @@ test('T5664', normal, compile_fail, ['-v0']) test('T7506', normal, compile_fail, ['']) test('T7243', normal, compile_fail, ['']) test('T10461', normal, compile_fail, ['']) -test('UnsafeReenter', [omit_ways(['ghciext', 'ghci']), exit_code(1)], compile_and_run, ['-v0 UnsafeReenterC.c']) + +# UnsafeReenter seems to just hang instead of erroring out +# with the threaded1, threaded2 and profthreaded ways, +# see #14912. +test('UnsafeReenter', + [omit_ways(['ghciext', 'ghci']), + exit_code(1), + expect_broken_for(14912, ['threaded1', 'threaded2', 'profthreaded']) + ], compile_and_run, ['-v0 UnsafeReenterC.c']) test('UnsafeReenterGhci', [exit_code(1), extra_files(['UnsafeReenter.hs', 'UnsafeReenterC.c']), expect_broken(13730)], run_command, |