testsuite: Add testcase for #8316
authorBen Gamari <bgamari.foss@gmail.com>
Mon, 21 Dec 2015 19:22:49 +0000 (20:22 +0100)
committerBen Gamari <ben@smart-cactus.org>
Mon, 21 Dec 2015 19:23:14 +0000 (20:23 +0100)
This is still broken but really out to be fixed. At least know we'll
know if someone fixes it inadvertently.

Test Plan: validate

Reviewers: austin

Reviewed By: austin

Subscribers: thomie

Differential Revision: https://phabricator.haskell.org/D1682

GHC Trac Issues: #8316

testsuite/tests/ghci/scripts/T8316.hs [new file with mode: 0644]
testsuite/tests/ghci/scripts/T8316.script [new file with mode: 0644]
testsuite/tests/ghci/scripts/all.T

diff --git a/testsuite/tests/ghci/scripts/T8316.hs b/testsuite/tests/ghci/scripts/T8316.hs
new file mode 100644 (file)
index 0000000..f77a8ab
--- /dev/null
@@ -0,0 +1,5 @@
+whnf :: a -> IO ()
+whnf a = a `seq` (return ())
+
+foo :: [Int]
+foo = [1..]
diff --git a/testsuite/tests/ghci/scripts/T8316.script b/testsuite/tests/ghci/scripts/T8316.script
new file mode 100644 (file)
index 0000000..faece15
--- /dev/null
@@ -0,0 +1,4 @@
+:b foo
+foo
+:p foo
+whnf _t1
\ No newline at end of file
index 5d57f4e..da0ea0d 100755 (executable)
@@ -231,3 +231,4 @@ test('T10989',
     ],
     ghci_script, ['T10989.script'])
 test('T11098', normal, ghci_script, ['T11098.script'])
+test('T8316', expect_broken(8316), ghci_script, ['T8316.script'])