[commit: ghc] master: testsuite: Add testcase for #8316 (a61e717)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/a61e717fcff9108337b1d35783ea3afbf591d3c6/ghc

>---------------------------------------------------------------

commit a61e717fcff9108337b1d35783ea3afbf591d3c6
Author: Ben Gamari <bgamari.foss at gmail.com>
Date:   Mon Dec 21 20:22:49 2015 +0100

    testsuite: Add testcase for #8316
    
    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


>---------------------------------------------------------------

a61e717fcff9108337b1d35783ea3afbf591d3c6
 testsuite/tests/ghci/scripts/T8316.hs     | 5 +++++
 testsuite/tests/ghci/scripts/T8316.script | 4 ++++
 testsuite/tests/ghci/scripts/all.T        | 1 +
 3 files changed, 10 insertions(+)

diff --git a/testsuite/tests/ghci/scripts/T8316.hs b/testsuite/tests/ghci/scripts/T8316.hs
new file mode 100644
index 0000000..f77a8ab
--- /dev/null
+++ b/testsuite/tests/ghci/scripts/T8316.hs
@@ -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
index 0000000..faece15
--- /dev/null
+++ b/testsuite/tests/ghci/scripts/T8316.script
@@ -0,0 +1,4 @@
+:b foo
+foo
+:p foo
+whnf _t1
\ No newline at end of file
diff --git a/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T
index 5d57f4e..da0ea0d 100755
--- a/testsuite/tests/ghci/scripts/all.T
+++ b/testsuite/tests/ghci/scripts/all.T
@@ -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'])