diff options
| -rw-r--r-- | testsuite/tests/ffi/should_fail/all.T | 17 |
1 files changed, 6 insertions, 11 deletions
diff --git a/testsuite/tests/ffi/should_fail/all.T b/testsuite/tests/ffi/should_fail/all.T index ce72f177c3..3bd7b5d909 100644 --- a/testsuite/tests/ffi/should_fail/all.T +++ b/testsuite/tests/ffi/should_fail/all.T @@ -15,15 +15,10 @@ test('T7506', normal, compile_fail, ['']) test('T7243', normal, compile_fail, ['']) test('T10461', normal, compile_fail, ['']) -# UnsafeReenter seems to just hang instead of erroring out -# with the threaded1, threaded2 and profthreaded ways, -# see #14912. +# UnsafeReenter tests implementation of an undefined behavior (calling Haskell +# from an unsafe foreign function) and only makes sense in non-threaded way +# (threaded runtime will hang). 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, - ['$MAKE -s --no-print-directory UnsafeReenterGhci']) + [omit_ways(threaded_ways), exit_code(1)], + compile_and_run, + ['UnsafeReenterC.c']) |