summaryrefslogtreecommitdiff
path: root/testsuite/tests/quasiquotation/qq003
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/tests/quasiquotation/qq003')
-rw-r--r--testsuite/tests/quasiquotation/qq003/Makefile3
-rw-r--r--testsuite/tests/quasiquotation/qq003/qq003.hs5
-rw-r--r--testsuite/tests/quasiquotation/qq003/qq003.stderr4
-rw-r--r--testsuite/tests/quasiquotation/qq003/test.T2
4 files changed, 14 insertions, 0 deletions
diff --git a/testsuite/tests/quasiquotation/qq003/Makefile b/testsuite/tests/quasiquotation/qq003/Makefile
new file mode 100644
index 0000000000..9101fbd40a
--- /dev/null
+++ b/testsuite/tests/quasiquotation/qq003/Makefile
@@ -0,0 +1,3 @@
+TOP=../../..
+include $(TOP)/mk/boilerplate.mk
+include $(TOP)/mk/test.mk
diff --git a/testsuite/tests/quasiquotation/qq003/qq003.hs b/testsuite/tests/quasiquotation/qq003/qq003.hs
new file mode 100644
index 0000000000..7afbad964e
--- /dev/null
+++ b/testsuite/tests/quasiquotation/qq003/qq003.hs
@@ -0,0 +1,5 @@
+{-# LANGUAGE QuasiQuotes #-}
+module Main where
+
+main :: IO ()
+main = print $ \parse -> [parse||]
diff --git a/testsuite/tests/quasiquotation/qq003/qq003.stderr b/testsuite/tests/quasiquotation/qq003/qq003.stderr
new file mode 100644
index 0000000000..a1f490fb2c
--- /dev/null
+++ b/testsuite/tests/quasiquotation/qq003/qq003.stderr
@@ -0,0 +1,4 @@
+
+qq003.hs:5:26:
+ GHC stage restriction: parse
+ is used in a quasiquote, and must be imported, not defined locally
diff --git a/testsuite/tests/quasiquotation/qq003/test.T b/testsuite/tests/quasiquotation/qq003/test.T
new file mode 100644
index 0000000000..9c61d0a11a
--- /dev/null
+++ b/testsuite/tests/quasiquotation/qq003/test.T
@@ -0,0 +1,2 @@
+test('qq003', [req_interp, only_compiler_types(['ghc'])],
+ compile_fail, [''])