Test for Trac #2386

testsuite/tests/ghc-regress/th/Makefile

 TOP=../../..
 include $(TOP)/mk/boilerplate.mk
 include $(TOP)/mk/test.mk
+
+# Trac 2386 requires batch-compile not --make
+# Very important: without -O 
+T2386:
+	$(TEST_HC) -c T2386_Lib.hs -fforce-recomp
+	$(TEST_HC) -c T2386.hs -fforce-recomp
+
+  
\ No newline at end of file

testsuite/tests/ghc-regress/th/T2386.hs

+{-# LANGUAGE TemplateHaskell #-}
+
+-- Test Trac #2386
+
+module T2386 where
+
+import T2386_Lib
+
+foo = $(makeOne)

testsuite/tests/ghc-regress/th/T2386.stdout

+Loading package ghc-prim ... linking ... done.
+Loading package integer ... linking ... done.
+Loading package base ... linking ... done.
+Loading package array-0.1 ... linking ... done.
+Loading package containers-0.1 ... linking ... done.
+Loading package packedstring-0.1 ... linking ... done.
+Loading package pretty-1.0 ... linking ... done.
+Loading package template-haskell ... linking ... done.

testsuite/tests/ghc-regress/th/T2386_Lib.hs

+{-# LANGUAGE TemplateHaskell #-}
+
+module T2386_Lib(ExportedAbstract, makeOne) where
+
+data ExportedAbstract = Yay String | NonYay Bool
+
+makeOne = [| Yay "Yep" |]

testsuite/tests/ghc-regress/th/all.T

@@ -102,3 +102,6 @@ test('TH_ghci1', normal, ghci_script, ['TH_ghci1.script'])
 
 test('TH_scope', normal, compile, [''])
 
+test('T2386', extra_clean(['T2386_Lib.hi', 'T2386_Lib.o']),
+	      run_command,
+	      ['$MAKE -s --no-print-directory T2386'] )