[commit: testsuite] ghc-7.2: Add a test for #5332 (unboxed singleton tuples and TH) (045e96f)

[Ian Lynagh]

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

On branch  : ghc-7.2

http://hackage.haskell.org/trac/ghc/changeset/045e96f3fe2248c00b37727447cca6ba2c15585a

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

commit 045e96f3fe2248c00b37727447cca6ba2c15585a
Author: Ian Lynagh <igloo at earth.li>
Date:   Tue Jul 19 20:58:39 2011 +0100

    Add a test for #5332 (unboxed singleton tuples and TH)

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

 tests/ghc-regress/th/TH_unboxedSingleton.hs |    7 +++++++
 tests/ghc-regress/th/all.T                  |    2 ++
 2 files changed, 9 insertions(+), 0 deletions(-)

diff --git a/tests/ghc-regress/th/TH_unboxedSingleton.hs b/tests/ghc-regress/th/TH_unboxedSingleton.hs
new file mode 100644
index 0000000..d932285
--- /dev/null
+++ b/tests/ghc-regress/th/TH_unboxedSingleton.hs
@@ -0,0 +1,7 @@
+{-# LANGUAGE TemplateHaskell, UnboxedTuples #-}
+
+module TH_unboxedSingleton where
+
+f :: () -> (# Int #)
+f () = $( [| (# 3 #) |] )
+
diff --git a/tests/ghc-regress/th/all.T b/tests/ghc-regress/th/all.T
index 47ac833..7ca7f09 100644
--- a/tests/ghc-regress/th/all.T
+++ b/tests/ghc-regress/th/all.T
@@ -181,3 +181,5 @@ test('T4949', normal, compile, ['-v0'])
 test('T5126', normal, compile, ['-v0'])
 test('T5217', normal, compile, ['-v0 -dsuppress-uniques -ddump-splices'])
 test('T5037', normal, compile, ['-v0'])
+test('TH_unboxedSingleton', normal, compile, ['-v0'])
+