[commit: ghc] master: testsuite: Add test for #12993 (c8ed1bd)

[git at git.haskell.org]

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

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

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

commit c8ed1bdc02e68f8cab32a6a44520b896d37310a5
Author: Ben Gamari <ben at smart-cactus.org>
Date:   Fri Dec 16 16:47:45 2016 -0500

    testsuite: Add test for #12993


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

c8ed1bdc02e68f8cab32a6a44520b896d37310a5
 testsuite/tests/th/T12993.hs     | 4 ++++
 testsuite/tests/th/T12993_Lib.hs | 4 ++++
 testsuite/tests/th/all.T         | 2 ++
 3 files changed, 10 insertions(+)

diff --git a/testsuite/tests/th/T12993.hs b/testsuite/tests/th/T12993.hs
new file mode 100644
index 0000000..6082669
--- /dev/null
+++ b/testsuite/tests/th/T12993.hs
@@ -0,0 +1,4 @@
+{-# LANGUAGE TemplateHaskell #-}
+module T12993 where
+import T12993_Lib
+f = $(q)
diff --git a/testsuite/tests/th/T12993_Lib.hs b/testsuite/tests/th/T12993_Lib.hs
new file mode 100644
index 0000000..441b783
--- /dev/null
+++ b/testsuite/tests/th/T12993_Lib.hs
@@ -0,0 +1,4 @@
+{-# LANGUAGE TemplateHaskell #-}
+module T12993_Lib (q) where
+data X = X { x :: Int }
+q = [|x|]
diff --git a/testsuite/tests/th/all.T b/testsuite/tests/th/all.T
index c2c9fa2..bb11528 100644
--- a/testsuite/tests/th/all.T
+++ b/testsuite/tests/th/all.T
@@ -445,3 +445,5 @@ test('T12788', extra_clean(['T12788_Lib.hi', 'T12788_Lib.o']),
                multimod_compile_fail,
                ['T12788.hs', '-v0 ' + config.ghc_th_way_flags])
 test('T12977', normal, compile, ['-v0'])
+test('T12993', expect_broken(12993), multimod_compile,
+     ['T12993.hs', '-v0'])
\ No newline at end of file