[commit: ghc] master: Test #9824 in th/T9824 (3b3944f)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/3b3944f9a1cf7d89dccf742d7449402cca31ba5a/ghc

>---------------------------------------------------------------

commit 3b3944f9a1cf7d89dccf742d7449402cca31ba5a
Author: Richard Eisenberg <eir at cis.upenn.edu>
Date:   Fri Nov 21 10:31:40 2014 -0500

    Test #9824 in th/T9824


>---------------------------------------------------------------

3b3944f9a1cf7d89dccf742d7449402cca31ba5a
 testsuite/tests/th/T9824.hs | 6 ++++++
 testsuite/tests/th/all.T    | 1 +
 2 files changed, 7 insertions(+)

diff --git a/testsuite/tests/th/T9824.hs b/testsuite/tests/th/T9824.hs
new file mode 100644
index 0000000..828c008
--- /dev/null
+++ b/testsuite/tests/th/T9824.hs
@@ -0,0 +1,6 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# OPTIONS_GHC -fwarn-unused-matches #-}
+
+module T9824 where
+
+foo = [p| (x, y) |]
diff --git a/testsuite/tests/th/all.T b/testsuite/tests/th/all.T
index 366858e..e8b8cb6 100644
--- a/testsuite/tests/th/all.T
+++ b/testsuite/tests/th/all.T
@@ -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'])