Commit db26a241 authored by Ian Lynagh's avatar Ian Lynagh
Browse files

Add a perf test for #5205

parent 93f0a15d
import Control.Concurrent
import Control.Monad
main :: IO ()
main = do t <- forkIO (x >> x)
threadDelay 1000000
killThread t
putStrLn "Done"
x :: IO ()
x = forever yield
......@@ -131,3 +131,18 @@ test('T4978',
],
compile_and_run,
['-O2'])
test('T5205',
[if_wordsize(32,
stats_num_field('bytes allocated', 40000,
50000)),
# expected value: 47088 (x86/Darwin)
if_wordsize(64,
stats_num_field('bytes allocated', 40000,
60000)),
# expected value: 51320 (amd64/Linux)
only_ways(['normal'])
],
compile_and_run,
['-O'])
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment