Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/107630d4639b96fcb4b25cde9e84782fbc9e52be >--------------------------------------------------------------- commit 107630d4639b96fcb4b25cde9e84782fbc9e52be Author: Simon Peyton Jones <[email protected]> Date: Thu Apr 5 13:34:45 2012 +0100 Add (in comments) more variants to T3064 >--------------------------------------------------------------- tests/perf/compiler/T3064.hs | 20 +++++++++++++++++++- 1 files changed, 19 insertions(+), 1 deletions(-) diff --git a/tests/perf/compiler/T3064.hs b/tests/perf/compiler/T3064.hs index 328da45..7b45883 100644 --- a/tests/perf/compiler/T3064.hs +++ b/tests/perf/compiler/T3064.hs @@ -60,4 +60,22 @@ runCtxM action = runReaderT (unResourceT action) Ctx test14 :: IO () test14 = runCA(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn( - newRgn(newRgn(newRgn(newRgn(return()))))))))))))) + newRgn(newRgn(newRgn(newRgn(return()))))))))))))) + +{- +test28 :: IO () +test28 = runCA(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn( + newRgn(newRgn(newRgn(newRgn( + newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn( + newRgn(newRgn(newRgn(newRgn(return()))))))))))))))))))))))))) + +test56 :: IO () +test56 = runCA(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn( + newRgn(newRgn(newRgn(newRgn( + newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn( + newRgn(newRgn(newRgn(newRgn( + newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn( + newRgn(newRgn(newRgn(newRgn( + newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn( + newRgn(newRgn(newRgn(newRgn(return()))))))))))))))))))))))))))))))))))))))))))))))))) +-} _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
