diff options
| author | Austin Seipp <austin@well-typed.com> | 2014-03-21 04:42:32 -0500 |
|---|---|---|
| committer | Austin Seipp <austin@well-typed.com> | 2014-03-21 10:59:07 -0500 |
| commit | f9b6a2bb6574904ab11476d79896491b111ad7cc (patch) | |
| tree | 0cf0e207c1d46ae3a68f5df4548f4c63af9a1327 | |
| parent | ba0c0123fb2f6942f57636ca458d5a87870f1ecc (diff) | |
| download | haskell-f9b6a2bb6574904ab11476d79896491b111ad7cc.tar.gz | |
testsuite: add test for #8831
Signed-off-by: Austin Seipp <austin@well-typed.com>
| -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 6812c9d644..bc5597dfdf 100755 --- a/testsuite/tests/ghci/scripts/all.T +++ b/testsuite/tests/ghci/scripts/all.T @@ -168,4 +168,4 @@ test('T8674', normal, ghci_script, ['T8674.script']) test('T8696', normal, ghci_script, ['T8696.script']) test('T8776', normal, ghci_script, ['T8776.script']) test('ghci059', normal, ghci_script, ['ghci059.script']) - +test('T8831', normal, ghci_script, ['T8831.script']) |