summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorBen Gamari <ben@smart-cactus.org>2020-02-14 11:45:42 -0500
committerBen Gamari <ben@smart-cactus.org>2020-02-28 15:35:51 -0500
commitfc2ca00e8c947c58f71b358cb0c752bb7c1b6f3a (patch)
tree5455bc6b2bbeae8954fc8143217245751d5b04e0
parent89745769acc181d94d690ce251a6823286cb7e7d (diff)
downloadhaskell-wip/T17786.tar.gz
testsuite: Add test for #17786wip/T17786
This isn't pretty but it's perhaps better than nothing.
-rw-r--r--testsuite/tests/driver/Makefile5
-rw-r--r--testsuite/tests/driver/T17786.hs5
-rw-r--r--testsuite/tests/driver/all.T1
3 files changed, 11 insertions, 0 deletions
diff --git a/testsuite/tests/driver/Makefile b/testsuite/tests/driver/Makefile
index d1bb30ff37..77a77c158d 100644
--- a/testsuite/tests/driver/Makefile
+++ b/testsuite/tests/driver/Makefile
@@ -674,3 +674,8 @@ T14452:
"$(TEST_HC)" $(TEST_HC_OPTS) -v -c -O2 T14452.hs 2>&1 | grep 'O3' \
| awk 'NF{print $$NF; exit}' | sed 's/\"//g'
# awk: extract last word of line, sed: remove quotes
+
+.PHONY: T17786
+T17786:
+ # N.B. Check for the presence of caret diagnostics.
+ "$(TEST_HC)" $(TEST_HC_OPTS) -v $(shell cygpath -w -a T17786.hs) 2>&1 | grep --quiet '3 |'
diff --git a/testsuite/tests/driver/T17786.hs b/testsuite/tests/driver/T17786.hs
new file mode 100644
index 0000000000..c1bbfc6747
--- /dev/null
+++ b/testsuite/tests/driver/T17786.hs
@@ -0,0 +1,5 @@
+{-# LANGUAGE CPP #-}
+module T17786 where
+#if defined(FOO)
+foo = 42
+
diff --git a/testsuite/tests/driver/all.T b/testsuite/tests/driver/all.T
index 11796951f2..b3d6ed2924 100644
--- a/testsuite/tests/driver/all.T
+++ b/testsuite/tests/driver/all.T
@@ -278,3 +278,4 @@ test('T16737',
compile_and_run, ['-optP=-isystem -optP=T16737include'])
test('T17143', exit_code(1), run_command, ['{compiler} T17143.hs -S -fno-code'])
+test('T17786', [unless(opsys('mingw32'), skip), exit_code(1)], makefile_test, [])