diff options
Diffstat (limited to 'testsuite/tests')
| -rw-r--r-- | testsuite/tests/rts/all.T | 7 | ||||
| -rw-r--r-- | testsuite/tests/rts/alloccounter1.hs | 19 | ||||
| -rw-r--r-- | testsuite/tests/rts/alloccounter1.stdout | 1 |
3 files changed, 0 insertions, 27 deletions
diff --git a/testsuite/tests/rts/all.T b/testsuite/tests/rts/all.T index 7086d9113f..6377bde04f 100644 --- a/testsuite/tests/rts/all.T +++ b/testsuite/tests/rts/all.T @@ -382,10 +382,3 @@ test('T12903', [when(opsys('mingw32'), skip)], compile_and_run, ['']) test('T13832', exit_code(1), compile_and_run, ['-threaded']) test('T13894', normal, compile_and_run, ['']) test('T14497', normal, compile_and_run, ['-O']) - -test('alloccounter1', normal, compile_and_run, - [ - # avoid allocating stack chunks, which counts as - # allocation and messes up the results: - '-with-rtsopts=-k1m' - ]) diff --git a/testsuite/tests/rts/alloccounter1.hs b/testsuite/tests/rts/alloccounter1.hs deleted file mode 100644 index 4b81896d2c..0000000000 --- a/testsuite/tests/rts/alloccounter1.hs +++ /dev/null @@ -1,19 +0,0 @@ -module Main where - -import Control.Exception -import Control.Monad -import Data.List -import System.Mem - -main = do - let - testAlloc n = do - let start = 999999 - setAllocationCounter start - evaluate (last [1..n]) - c <- getAllocationCounter - -- print (start - c) - return (start - c) - results <- forM [1..1000] testAlloc - print (sort results == results) - -- results better be in ascending order diff --git a/testsuite/tests/rts/alloccounter1.stdout b/testsuite/tests/rts/alloccounter1.stdout deleted file mode 100644 index 0ca95142bb..0000000000 --- a/testsuite/tests/rts/alloccounter1.stdout +++ /dev/null @@ -1 +0,0 @@ -True |