[commit: testsuite] master: Test Trac #5737 (d6d2efb)

[Simon Peyton Jones]

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/d6d2efbc19643df69963d71b46ff42b7d454d442

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

commit d6d2efbc19643df69963d71b46ff42b7d454d442
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri May 11 22:18:06 2012 +0100

    Test Trac #5737

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

 tests/th/T5737.hs |    5 +++++
 tests/th/all.T    |    1 +
 2 files changed, 6 insertions(+), 0 deletions(-)

diff --git a/tests/th/T5737.hs b/tests/th/T5737.hs
new file mode 100644
index 0000000..1458c78
--- /dev/null
+++ b/tests/th/T5737.hs
@@ -0,0 +1,5 @@
+{-# LANGUAGE TemplateHaskell #-}
+module T5737 where
+
+import Language.Haskell.TH
+makeAlpha n = [d| data Alpha = Alpha $(conT n) deriving (Show, Read) |]  
diff --git a/tests/th/all.T b/tests/th/all.T
index ecce7b9..2c66e15 100644
--- a/tests/th/all.T
+++ b/tests/th/all.T
@@ -236,3 +236,4 @@ test('T5976', normal, compile_fail, ['-v0'])
 test('T5795', normal, compile_fail, ['-v0'])
 test('T6005', normal, compile, ['-v0'])
 test('T6005a', normal, compile, ['-v0'])
+test('T5737', normal, compile, ['-v0'])