diff options
Diffstat (limited to 'testsuite/tests/rts/alloccounter1.hs')
| -rw-r--r-- | testsuite/tests/rts/alloccounter1.hs | 19 |
1 files changed, 0 insertions, 19 deletions
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 |