Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/a44ad501639e7af84f8517f1a91d8e4c854116d1 >--------------------------------------------------------------- commit a44ad501639e7af84f8517f1a91d8e4c854116d1 Author: Ian Lynagh <[email protected]> Date: Sat Jan 28 22:22:38 2012 +0000 Add a perf test for #5536 >--------------------------------------------------------------- tests/perf/should_run/T5536.hs | 5 +++++ tests/perf/should_run/all.T | 16 ++++++++++++++++ 2 files changed, 21 insertions(+), 0 deletions(-) diff --git a/tests/perf/should_run/T5536.hs b/tests/perf/should_run/T5536.hs new file mode 100644 index 0000000..3259c46 --- /dev/null +++ b/tests/perf/should_run/T5536.hs @@ -0,0 +1,5 @@ + +main :: IO () +main = do writeFile "T5536.data" (replicate 10000000 'a') + readFile "T5536.data" >>= putStr + diff --git a/tests/perf/should_run/all.T b/tests/perf/should_run/all.T index 122294c..fc1d579 100644 --- a/tests/perf/should_run/all.T +++ b/tests/perf/should_run/all.T @@ -217,3 +217,19 @@ test('T5237', ], compile_and_run, ['-O ' + sse2_opts]) + +test('T5536', + [if_wordsize(32, + stats_num_field('bytes allocated', 2480000000, + 2510000000)), + if_wordsize(64, + stats_num_field('bytes allocated', 2480000000, + 2510000000)), + # expected value: 2492589480 (amd64/Linux) + extra_clean(['T5536.data']), + ignore_output, + only_ways(['normal']) + ], + compile_and_run, + ['-O']) + _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
