Commit f1d0e49f authored by Ben Gamari's avatar Ben Gamari 🐢 Committed by Marge Bot

testsuite: Add tests for #16943

parent 8e2fe575
module Main(main) where
scoreWeek = scanr (:) [] $ repeat True
main = seq scoreWeek (putStrLn "good")
module Main(main) where
scoreWeek :: [Int] -> [[Int]]
scoreWeek xs =
take 168
$ scanr (:) []
-- $ take (3*168)
$ cycle xs
main = print $ length $ scoreWeek [1,2..168]
...@@ -251,3 +251,5 @@ test('T13896', normal, compile_and_run, ['']) ...@@ -251,3 +251,5 @@ test('T13896', normal, compile_and_run, [''])
test('T13167', fragile_for(16536, ['threaded2']), compile_and_run, ['']) test('T13167', fragile_for(16536, ['threaded2']), compile_and_run, [''])
test('T15349', [exit_code(1), expect_broken_for(15349, ['ghci'])], compile_and_run, ['']) test('T15349', [exit_code(1), expect_broken_for(15349, ['ghci'])], compile_and_run, [''])
test('T16111', exit_code(1), compile_and_run, ['']) test('T16111', exit_code(1), compile_and_run, [''])
test('T16943a', normal, compile_and_run, [''])
test('T16943b', normal, compile_and_run, [''])
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