diff options
Diffstat (limited to 'testsuite/tests/ghci/should_run/T16012.script')
-rw-r--r-- | testsuite/tests/ghci/should_run/T16012.script | 4 |
1 files changed, 3 insertions, 1 deletions
diff --git a/testsuite/tests/ghci/should_run/T16012.script b/testsuite/tests/ghci/should_run/T16012.script index 2394e9c0ec..fd36138910 100644 --- a/testsuite/tests/ghci/should_run/T16012.script +++ b/testsuite/tests/ghci/should_run/T16012.script @@ -1,6 +1,8 @@ -- We expect the allocation counter to be initialized to zero and to count down. -- As ghc expressions are executed in their own thread a call to getAllocationCounter -- should always return a reasonably low result. +-- The actual number is somewhat arbitrary. If this fails because the value is slightly over +-- the threshold below it's fine to increase the threshold! n <- System.Mem.getAllocationCounter -if (n < 0 && n >= -200000) then putStrLn "Allocation counter in expected range" else (putStrLn $ "Unexpected allocation counter result:" ++ show n) +if (n < 0 && n >= -222222) then putStrLn "Allocation counter in expected range" else (putStrLn $ "Unexpected allocation counter result:" ++ show n) |