summaryrefslogtreecommitdiff
path: root/testsuite/tests/stage1
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2017-04-30 23:19:26 -0400
committerBen Gamari <ben@smart-cactus.org>2017-05-01 10:24:22 -0400
commit18fbb9d32cbc157e3bbd235e392f1625f77321e3 (patch)
tree62c16d85b18f27e129254437a3e46e35cacf6017 /testsuite/tests/stage1
parent7567b9ddba7c4304e8d0226e9bf82a054f37ce91 (diff)
downloadhaskell-18fbb9d32cbc157e3bbd235e392f1625f77321e3.tar.gz
testsuite: Add test for #13609
Diffstat (limited to 'testsuite/tests/stage1')
-rw-r--r--testsuite/tests/stage1/T13609.hs5
-rw-r--r--testsuite/tests/stage1/T13609.stderr3
-rw-r--r--testsuite/tests/stage1/all.T1
3 files changed, 9 insertions, 0 deletions
diff --git a/testsuite/tests/stage1/T13609.hs b/testsuite/tests/stage1/T13609.hs
new file mode 100644
index 0000000000..e67eb32af4
--- /dev/null
+++ b/testsuite/tests/stage1/T13609.hs
@@ -0,0 +1,5 @@
+module M where
+
+{-# ANN myId "HLint: ignore" #-}
+myId :: a -> a
+myId x = x
diff --git a/testsuite/tests/stage1/T13609.stderr b/testsuite/tests/stage1/T13609.stderr
new file mode 100644
index 0000000000..0a3c1cdae6
--- /dev/null
+++ b/testsuite/tests/stage1/T13609.stderr
@@ -0,0 +1,3 @@
+
+T13609.hs:3:1: warning:
+ Ignoring Ann annotation, because this is a stage-1 compiler without -fexternal-interpreter or doesn't support GHCi
diff --git a/testsuite/tests/stage1/all.T b/testsuite/tests/stage1/all.T
index a7f01b3525..40bb2746c6 100644
--- a/testsuite/tests/stage1/all.T
+++ b/testsuite/tests/stage1/all.T
@@ -4,3 +4,4 @@ setTestOpts(unless(config.stage == 1, skip))
# Test with stage1 compiler, see ticket:10382#comment:20.
test('T2632', normal, compile,
['-XTemplateHaskellQuotes -package template-haskell'])
+test('T13609', normal, compile, [''])