summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMatthew Pickering <matthewtpickering@gmail.com>2022-08-05 17:30:50 +0100
committerMatthew Pickering <matthewtpickering@gmail.com>2022-08-05 17:34:50 +0100
commitdf6ce95c9993778b1e68c3548e03216140a0e44f (patch)
tree8a1e8fae55b22d16a3aed0f260cded5c57552fdb
parent16333ad780300432b974f604d9fc20ad5c6aa773 (diff)
downloadhaskell-wip/jspace-fix.tar.gz
Fix equality operator in jspace testwip/jspace-fix
-rw-r--r--testsuite/tests/driver/j-space/jspace.hs4
1 files changed, 2 insertions, 2 deletions
diff --git a/testsuite/tests/driver/j-space/jspace.hs b/testsuite/tests/driver/j-space/jspace.hs
index d8a4fc9779..b0c83eb4d1 100644
--- a/testsuite/tests/driver/j-space/jspace.hs
+++ b/testsuite/tests/driver/j-space/jspace.hs
@@ -46,8 +46,8 @@ initGhcM xs = do
-- There is some unexplained behaviour where the result is infrequently 3264.. but
-- this resisted investigation using ghc-debug so the test actually checks whether there
-- are less than 51 live ModDetails which is still a big improvement over before.
- when (n >= (51 * word_size * 8)) $ do
- putStrLn "Space leak detetched by jspace test:"
+ when (n > (51 * word_size * 8)) $ do
+ putStrLn "Space leak detected by jspace test:"
putStrLn $ (show (n `div` (word_size * 8))) ++ " live ModDetails when <= 51 are expected"
exitFailure
return ()