diff options
author | Simon Peyton Jones <simonpj@microsoft.com> | 2016-10-14 17:42:00 +0100 |
---|---|---|
committer | Simon Peyton Jones <simonpj@microsoft.com> | 2016-10-17 08:55:16 +0100 |
commit | 156db6b2e2b7be13f6d22316eea7e1ba8d312f18 (patch) | |
tree | 7af51bd92a8300c5b57259bb81b101f171c402a8 /testsuite | |
parent | db71d971379c74dd1d2b958c11dc6c9e718a3e61 (diff) | |
download | haskell-156db6b2e2b7be13f6d22316eea7e1ba8d312f18.tar.gz |
Add more variants of T3064 (in comments)
Diffstat (limited to 'testsuite')
-rw-r--r-- | testsuite/tests/perf/compiler/T3064.hs | 23 |
1 files changed, 13 insertions, 10 deletions
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()))))))))))))) |