diff options
author | Cheng Shao <terrorjack@type.dance> | 2023-04-01 21:06:20 +0000 |
---|---|---|
committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2023-04-27 16:00:35 -0400 |
commit | ce580426ce3052e3b3d2847d0312652ea9087994 (patch) | |
tree | 90940a28cda4c5e75f14efe23ff67484430d2637 /libraries/base | |
parent | aa6afe8ab48b5fbe09d332a25ce6af4719c5cb44 (diff) | |
download | haskell-ce580426ce3052e3b3d2847d0312652ea9087994.tar.gz |
testsuite: add the req_process predicate
This patch adds the req_process predicate to the testsuite to assert
the platform has a process model, also marking tests that involve
spawning processes as req_process. Also bumps hpc & process submodule.
Diffstat (limited to 'libraries/base')
-rw-r--r-- | libraries/base/tests/IO/all.T | 4 | ||||
-rw-r--r-- | libraries/base/tests/System/all.T | 2 | ||||
-rw-r--r-- | libraries/base/tests/all.T | 10 |
3 files changed, 9 insertions, 7 deletions
diff --git a/libraries/base/tests/IO/all.T b/libraries/base/tests/IO/all.T index 1a54564896..bfe14ee2aa 100644 --- a/libraries/base/tests/IO/all.T +++ b/libraries/base/tests/IO/all.T @@ -86,11 +86,13 @@ test('hGetBuf001', [ when(fast(), skip) , expect_fail_if_windows , js_broken(22374) + , req_process ], compile_and_run, ['-package unix']) test('hDuplicateTo001', [fragile_for(16819, concurrent_ways), - when(opsys('mingw32'), skip)], compile_and_run, ['']) + when(opsys('mingw32'), skip), + req_process], compile_and_run, ['']) test('countReaders001', js_broken(22261), compile_and_run, ['']) diff --git a/libraries/base/tests/System/all.T b/libraries/base/tests/System/all.T index ad3b046b25..10ddd7754f 100644 --- a/libraries/base/tests/System/all.T +++ b/libraries/base/tests/System/all.T @@ -4,7 +4,7 @@ test('getArgs001', normal, compile_and_run, ['']) test('getEnv001', normal, compile_and_run, ['']) test('T5930', normal, compile_and_run, ['']) -test('system001', [js_broken(22349), when(opsys("mingw32"), skip)], \ +test('system001', [js_broken(22349), when(opsys("mingw32"), skip), req_process], \ compile_and_run, ['']) test('Timeout001', js_broken(22261), compile_and_run, ['']) test('T16466', normal, compile_and_run, ['']) diff --git a/libraries/base/tests/all.T b/libraries/base/tests/all.T index d5eba40dff..0a9e00eb11 100644 --- a/libraries/base/tests/all.T +++ b/libraries/base/tests/all.T @@ -158,7 +158,7 @@ test('T2528', normal, compile_and_run, ['']) # May 2014: seems to work on msys2 # May 2018: The behavior of printf seems very implementation dependent. # so let's normalise the output. -test('T4006', [js_broken(22349), normalise_fun(normalise_quotes)], compile_and_run, ['']) +test('T4006', [js_broken(22349), normalise_fun(normalise_quotes), req_process], compile_and_run, ['']) test('T5943', normal, compile_and_run, ['']) test('T5962', normal, compile_and_run, ['']) @@ -181,7 +181,7 @@ test('T7653', [when(opsys('mingw32'), skip), omit_ways(prof_ways+['ghci'])], compile_and_run, ['']) test('T7787', normal, compile_and_run, ['']) -test('topHandler01', [when(opsys('mingw32'), skip), js_broken(22261)], compile_and_run, ['']) +test('topHandler01', [when(opsys('mingw32'), skip), js_broken(22261), req_process], compile_and_run, ['']) test('topHandler02', [when(opsys('mingw32'), skip), omit_ways(['ghci']), @@ -227,7 +227,7 @@ test('T8089', [exit_code(99), run_timeout_multiplier(0.01)], compile_and_run, ['']) test('T8684', expect_broken(8684), compile_and_run, ['']) -test('hWaitForInput-accurate-stdin', [js_broken(22349), expect_broken_for(16535, threaded_ways), omit_ways(['ghci'])], compile_and_run, ['']) +test('hWaitForInput-accurate-stdin', [js_broken(22349), expect_broken_for(16535, threaded_ways), omit_ways(['ghci']), req_process], compile_and_run, ['']) test('T9826',normal, compile_and_run,['']) test('T9848', [ collect_stats('bytes allocated') @@ -240,7 +240,7 @@ test('T10149', normal, compile_and_run, ['']) test('T11334a', normal, compile_and_run, ['']) test('T11555', normal, compile_and_run, ['']) test('T12494', normal, compile_and_run, ['']) -test('T12852', [when(opsys('mingw32'), skip), js_broken(22374)], compile_and_run, ['']) +test('T12852', [when(opsys('mingw32'), skip), js_broken(22374), req_process], compile_and_run, ['']) test('lazySTexamples', normal, compile_and_run, ['']) test('T11760', [req_ghc_smp, req_target_smp, @@ -254,7 +254,7 @@ test('T13191', ], compile_and_run, ['-O']) -test('T13525', [when(opsys('mingw32'), skip), js_broken(22374)], compile_and_run, ['']) +test('T13525', [when(opsys('mingw32'), skip), js_broken(22374), req_process], compile_and_run, ['']) test('T13097', normal, compile_and_run, ['']) test('functorOperators', normal, compile_and_run, ['']) test('T3474', |