diff options
| author | Austin Seipp <austin@well-typed.com> | 2014-03-21 04:42:32 -0500 |
|---|---|---|
| committer | Austin Seipp <aseipp@pobox.com> | 2014-03-22 12:39:12 -0500 |
| commit | 797737f65af7e845430685716656567c2aebb344 (patch) | |
| tree | 83da078559ab08c0fae575e32793fd75875cb382 | |
| parent | 38b3e7b7df8ffdedb626b40ad9437aeaacc8024f (diff) | |
| download | haskell-797737f65af7e845430685716656567c2aebb344.tar.gz | |
testsuite: add test for #8831
Signed-off-by: Austin Seipp <austin@well-typed.com>
(cherry picked from commit f9b6a2bb6574904ab11476d79896491b111ad7cc)
Conflicts:
testsuite/tests/ghci/scripts/all.T
| -rw-r--r-- | testsuite/tests/ghci/scripts/T8831.hs | 3 | ||||
| -rw-r--r-- | testsuite/tests/ghci/scripts/T8831.script | 4 | ||||
| -rw-r--r-- | testsuite/tests/ghci/scripts/T8831.stdout | 1 | ||||
| -rwxr-xr-x | testsuite/tests/ghci/scripts/all.T | 2 |
4 files changed, 9 insertions, 1 deletions
diff --git a/testsuite/tests/ghci/scripts/T8831.hs b/testsuite/tests/ghci/scripts/T8831.hs new file mode 100644 index 0000000000..b0a3cc5bdf --- /dev/null +++ b/testsuite/tests/ghci/scripts/T8831.hs @@ -0,0 +1,3 @@ +{-# LANGUAGE TemplateHaskell #-} +module T8831 where +foo = [| 3 |] diff --git a/testsuite/tests/ghci/scripts/T8831.script b/testsuite/tests/ghci/scripts/T8831.script new file mode 100644 index 0000000000..bc6ba89440 --- /dev/null +++ b/testsuite/tests/ghci/scripts/T8831.script @@ -0,0 +1,4 @@ +:seti -XTemplateHaskell +:load T8831.hs +$foo + diff --git a/testsuite/tests/ghci/scripts/T8831.stdout b/testsuite/tests/ghci/scripts/T8831.stdout new file mode 100644 index 0000000000..00750edc07 --- /dev/null +++ b/testsuite/tests/ghci/scripts/T8831.stdout @@ -0,0 +1 @@ +3 diff --git a/testsuite/tests/ghci/scripts/all.T b/testsuite/tests/ghci/scripts/all.T index 06c07162f9..09b03f964b 100755 --- a/testsuite/tests/ghci/scripts/all.T +++ b/testsuite/tests/ghci/scripts/all.T @@ -167,4 +167,4 @@ test('T8649', normal, ghci_script, ['T8649.script']) test('T8674', normal, ghci_script, ['T8674.script']) test('T8696', normal, ghci_script, ['T8696.script']) test('T8776', normal, ghci_script, ['T8776.script']) - +test('T8831', normal, ghci_script, ['T8831.script']) |