From 156db6b2e2b7be13f6d22316eea7e1ba8d312f18 Mon Sep 17 00:00:00 2001 From: Simon Peyton Jones Date: Fri, 14 Oct 2016 17:42:00 +0100 Subject: Add more variants of T3064 (in comments) --- testsuite/tests/perf/compiler/T3064.hs | 23 +++++++++++++---------- 1 file changed, 13 insertions(+), 10 deletions(-) (limited to 'testsuite') diff --git a/testsuite/tests/perf/compiler/T3064.hs b/testsuite/tests/perf/compiler/T3064.hs index 53a87b599b..dacca79296 100644 --- a/testsuite/tests/perf/compiler/T3064.hs +++ b/testsuite/tests/perf/compiler/T3064.hs @@ -56,20 +56,23 @@ runCA action = runCtxM (runCAT (unCA action)) runCtxM :: (forall c. CtxM c v) -> IO v runCtxM action = runReaderT (unResourceT action) Ctx --- test11 :: IO () --- test11 = runCA(newRgn(newRgn(newRgn(newRgn(newRgn( --- newRgn(newRgn(newRgn(newRgn(return())))))))))) +{- --- test12 :: IO () --- test12 = runCA(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn( --- newRgn(newRgn(newRgn(newRgn(return()))))))))))) +test4 :: IO () +test4 = runCA(newRgn(newRgn(newRgn(newRgn(return()))))) --- test13 :: IO () --- test13 = runCA(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn( --- newRgn(newRgn(newRgn(newRgn(return())))))))))))) +test11 :: IO () +test11 = runCA(newRgn(newRgn(newRgn(newRgn(newRgn( + newRgn(newRgn(newRgn(newRgn(return())))))))))) +test12 :: IO () +test12 = runCA(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn( + newRgn(newRgn(newRgn(newRgn(return()))))))))))) + +test13 :: IO () +test13 = runCA(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn( + newRgn(newRgn(newRgn(newRgn(return())))))))))))) -{- test14 :: IO () test14 = runCA(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn(newRgn( newRgn(newRgn(newRgn(newRgn(return()))))))))))))) -- cgit v1.2.1