diff options
| author | Tobias Guggenmos <tguggenm@redhat.com> | 2019-09-07 15:32:06 +0200 |
|---|---|---|
| committer | Marge Bot <ben+marge-bot@smart-cactus.org> | 2019-10-03 12:17:33 -0400 |
| commit | 47386fe85a412c8aa35f6bcbce0d41f0eed03b65 (patch) | |
| tree | eb269c7dd0f13ee5803d22a6bd5009596bcda17b /testsuite | |
| parent | ee6324adfed737fbf9ca3c36538145542b425617 (diff) | |
| download | haskell-47386fe85a412c8aa35f6bcbce0d41f0eed03b65.tar.gz | |
Add new debug flag -DZ
Zeros heap memory after gc freed it.
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/rts/all.T | 1 | ||||
| -rw-r--r-- | testsuite/tests/rts/test-zeroongc.hs | 1 | ||||
| -rw-r--r-- | testsuite/tests/rts/test-zeroongc.stdout | 1 |
3 files changed, 3 insertions, 0 deletions
diff --git a/testsuite/tests/rts/all.T b/testsuite/tests/rts/all.T index 9f2c064f9b..ba5b139efe 100644 --- a/testsuite/tests/rts/all.T +++ b/testsuite/tests/rts/all.T @@ -392,3 +392,4 @@ test('keep-cafs', makefile_test, ['KeepCafs']) test('T16514', unless(opsys('mingw32'), skip), compile_and_run, ['T16514_c.cpp -lstdc++']) +test('test-zeroongc', extra_run_opts('-DZ'), compile_and_run, ['-debug']) diff --git a/testsuite/tests/rts/test-zeroongc.hs b/testsuite/tests/rts/test-zeroongc.hs new file mode 100644 index 0000000000..73566f6f20 --- /dev/null +++ b/testsuite/tests/rts/test-zeroongc.hs @@ -0,0 +1 @@ +main = putStrLn "Hello World" diff --git a/testsuite/tests/rts/test-zeroongc.stdout b/testsuite/tests/rts/test-zeroongc.stdout new file mode 100644 index 0000000000..557db03de9 --- /dev/null +++ b/testsuite/tests/rts/test-zeroongc.stdout @@ -0,0 +1 @@ +Hello World |