diff options
| author | Greg Steuck <greg@nest.cx> | 2022-01-08 21:01:13 -0800 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2022-01-11 19:45:11 -0500 |
| commit | e505dbd36f3c8c43a645a176babefabfd0a72eeb (patch) | |
| tree | d426a7914a9d974f76c9b2a3a4713a6d605a3e8b /testsuite | |
| parent | 7ca43a3fb315abf172a6f7ff2bb4cf4303017e24 (diff) | |
| download | haskell-e505dbd36f3c8c43a645a176babefabfd0a72eeb.tar.gz | |
Remove from error the parenthesized amount of memory requested
Diagnostics for outofmem test on OpenBSD includes the amount of memory
that it failed to allocate. This seems like an irrelevant detail that
could change over time and isn't required for determining if test
passed.
Typical elided text is '(requested 2148532224 bytes)'
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/rts/all.T | 6 |
1 files changed, 5 insertions, 1 deletions
diff --git a/testsuite/tests/rts/all.T b/testsuite/tests/rts/all.T index a62585c6f4..7b31d159f3 100644 --- a/testsuite/tests/rts/all.T +++ b/testsuite/tests/rts/all.T @@ -82,6 +82,9 @@ test('divbyzero', when(opsys('mingw32'), omit_ways(prof_ways))], compile_and_run, ['-with-rtsopts="--generate-stack-traces=no"']) +def remove_parenthesis(s): + return re.sub(r'\s+\([^)]*\)', '', s) + test('outofmem', [ when(opsys('darwin'), skip), # this is believed to cause other processes to die # that happen concurrently while the outofmem test @@ -89,7 +92,8 @@ test('outofmem', [ when(opsys('darwin'), skip), # windows, to prevent absolute exhaustion of memory # and subsequent termination (and failure) of unrelated # tests. - when(opsys('mingw32'), skip) ], + when(opsys('mingw32'), skip), + normalise_errmsg_fun(remove_parenthesis)], makefile_test, ['outofmem']) test('outofmem2', normal, makefile_test, ['outofmem2']) |