Merge branch 'master' of http://darcs.haskell.org/testsuite

3 files changed, 28 insertions, 0 deletions

diff --git a/testsuite/tests/th/T5362.hs b/testsuite/tests/th/T5362.hs
new file mode 100644
index 0000000000..4a1e67fb4a
--- /dev/null
+++ b/testsuite/tests/th/T5362.hs
@@ -0,0 +1,23 @@
+{-# LANGUAGE TemplateHaskell #-}
+
+module T5362() where
+
+import System.IO
+import Language.Haskell.TH
+
+$(
+     do fName <- newName "f"
+        gName <- newName "g"
+        let gExp = varE gName
+
+        sdf <- sigD fName [t| () |]
+        sdg <- sigD gName [t| () |]
+        fdf <- funD fName [clause [] (normalB [| undefined $gExp |]) []]
+        fdg <- funD gName [clause [] (normalB [| undefined       |]) []]
+        let ds = [sdf, fdf, sdg, fdg]
+        runIO $ do { putStrLn (pprint ds); hFlush stdout }
+        return ds
+     )
+
+
+
diff --git a/testsuite/tests/th/T5362.stderr b/testsuite/tests/th/T5362.stderr
new file mode 100644
index 0000000000..0c8c9bfbc5
--- /dev/null
+++ b/testsuite/tests/th/T5362.stderr
@@ -0,0 +1,4 @@
+f_0 :: GHC.Unit.()

+f_0 = GHC.Err.undefined g_1

+g_1 :: GHC.Unit.()

+g_1 = GHC.Err.undefined

diff --git a/testsuite/tests/th/all.T b/testsuite/tests/th/all.T
index 17d30ff58b..f2abff4e3d 100644
--- a/testsuite/tests/th/all.T
+++ b/testsuite/tests/th/all.T
@@ -183,6 +183,7 @@ test('T5217', normal, compile, ['-v0 -dsuppress-uniques -ddump-splices'])
 test('T5037', normal, compile, ['-v0'])
 test('TH_unboxedSingleton', normal, compile, ['-v0'])
 test('T5290', normal, compile, ['-v0 -ddump-splices'])
+test('T5362', normal, compile, ['-v0'])
 
 test('TH_unresolvedInfix',
      extra_clean(['TH_unresolvedInfix_Lib.hi', 'TH_unresolvedInfix_Lib.o']),