diff options
| author | Matthew Pickering <matthewtpickering@gmail.com> | 2021-06-17 12:36:18 +0100 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2021-06-19 12:25:26 -0400 |
| commit | 1c79ddc8c566a23cf1a77a6a68c65e508fe8ee4d (patch) | |
| tree | b38d7c1df35130ad1c82ec7508aee01f5749d494 /testsuite/tests/rts | |
| parent | 23bb09c919a56768953a71cbbecf735a4bff608b (diff) | |
| download | haskell-1c79ddc8c566a23cf1a77a6a68c65e508fe8ee4d.tar.gz | |
RTS: Fix flag parsing for --eventlog-flush-interval
Fixes #20006
Diffstat (limited to 'testsuite/tests/rts')
| -rw-r--r-- | testsuite/tests/rts/flags/T20006.hs | 4 | ||||
| -rw-r--r-- | testsuite/tests/rts/flags/all.T | 4 |
2 files changed, 8 insertions, 0 deletions
diff --git a/testsuite/tests/rts/flags/T20006.hs b/testsuite/tests/rts/flags/T20006.hs new file mode 100644 index 0000000000..d82a4bd93b --- /dev/null +++ b/testsuite/tests/rts/flags/T20006.hs @@ -0,0 +1,4 @@ +module Main where + +main :: IO () +main = return () diff --git a/testsuite/tests/rts/flags/all.T b/testsuite/tests/rts/flags/all.T index 6d9368e2c1..04c2907fce 100644 --- a/testsuite/tests/rts/flags/all.T +++ b/testsuite/tests/rts/flags/all.T @@ -51,3 +51,7 @@ test('T12870h', only_ways(['normal'])], multimod_compile_and_run, ['T12870g', '-rtsopts=ignoreAll -with-rtsopts="-G3"']) + +test('T20006', [extra_run_opts('+RTS --eventlog-flush-interval=1')], + compile_and_run, + ['-eventlog']) |