Test #9824 in th/T9824
authorRichard Eisenberg <eir@cis.upenn.edu>
Fri, 21 Nov 2014 15:31:40 +0000 (10:31 -0500)
committerRichard Eisenberg <eir@cis.upenn.edu>
Fri, 21 Nov 2014 16:15:48 +0000 (11:15 -0500)
testsuite/tests/th/T9824.hs [new file with mode: 0644]
testsuite/tests/th/all.T

diff --git a/testsuite/tests/th/T9824.hs b/testsuite/tests/th/T9824.hs
new file mode 100644 (file)
index 0000000..828c008
--- /dev/null
@@ -0,0 +1,6 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# OPTIONS_GHC -fwarn-unused-matches #-}
+
+module T9824 where
+
+foo = [p| (x, y) |]
index 366858e..e8b8cb6 100644 (file)
@@ -346,3 +346,4 @@ test('T9209', normal, compile_fail, ['-v0'])
 test('T7484', normal, compile_fail, ['-v0'])
 test('T1476', normal, compile, ['-v0'])
 test('T1476b', normal, compile_fail, ['-v0'])
+test('T9824', expect_broken(9824), compile, ['-v0'])