diff options
| author | Ben Gamari <bgamari.foss@gmail.com> | 2015-12-21 20:22:49 +0100 |
|---|---|---|
| committer | Ben Gamari <ben@smart-cactus.org> | 2015-12-21 20:23:14 +0100 |
| commit | a61e717fcff9108337b1d35783ea3afbf591d3c6 (patch) | |
| tree | 2598879d7192c9e0db9d20a8a5190bc1c4265f99 /testsuite | |
| parent | fd1b5ae701bf3f0de5d2a56a7320b68d4f66b510 (diff) | |
| download | haskell-a61e717fcff9108337b1d35783ea3afbf591d3c6.tar.gz | |
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
Diffstat (limited to 'testsuite')
| -rw-r--r-- | testsuite/tests/ghci/scripts/T8316.hs | 5 | ||||
| -rw-r--r-- | testsuite/tests/ghci/scripts/T8316.script | 4 | ||||
| -rwxr-xr-x | testsuite/tests/ghci/scripts/all.T | 1 |
3 files changed, 10 insertions, 0 deletions
diff --git a/testsuite/tests/ghci/scripts/T8316.hs b/testsuite/tests/ghci/scripts/T8316.hs new file mode 100644 index 0000000000..f77a8ab27e --- /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 0000000000..faece15a93 --- /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 5d57f4ea33..da0ea0d55e 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']) |