testsuite: add test for #8831
authorAustin Seipp <austin@well-typed.com>
Fri, 21 Mar 2014 09:42:32 +0000 (04:42 -0500)
committerAustin Seipp <austin@well-typed.com>
Fri, 21 Mar 2014 15:59:07 +0000 (10:59 -0500)
Signed-off-by: Austin Seipp <austin@well-typed.com>
testsuite/tests/ghci/scripts/T8831.hs [new file with mode: 0644]
testsuite/tests/ghci/scripts/T8831.script [new file with mode: 0644]
testsuite/tests/ghci/scripts/T8831.stdout [new file with mode: 0644]
testsuite/tests/ghci/scripts/all.T

diff --git a/testsuite/tests/ghci/scripts/T8831.hs b/testsuite/tests/ghci/scripts/T8831.hs
new file mode 100644 (file)
index 0000000..b0a3cc5
--- /dev/null
@@ -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 (file)
index 0000000..bc6ba89
--- /dev/null
@@ -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 (file)
index 0000000..00750ed
--- /dev/null
@@ -0,0 +1 @@
+3
index 6812c9d..bc5597d 100755 (executable)
@@ -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'])