[commit: testsuite] master: Test Trac #5592 (daf6921)

[Simon Peyton Jones]

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

On branch  : master

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

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

commit daf692142b945a624ce0299374fb0b1a7a3f8f42
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Tue Nov 1 21:56:52 2011 +0000

    Test Trac #5592

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

 tests/rename/should_compile/T5592.hs     |    9 +++++++++
 tests/rename/should_compile/T5592.stdout |    1 +
 tests/rename/should_compile/T5592a.hs    |    4 ++++
 tests/rename/should_compile/all.T        |    5 +++++
 4 files changed, 19 insertions(+), 0 deletions(-)

diff --git a/tests/rename/should_compile/T5592.hs b/tests/rename/should_compile/T5592.hs
new file mode 100644
index 0000000..7f03757
--- /dev/null
+++ b/tests/rename/should_compile/T5592.hs
@@ -0,0 +1,9 @@
+{-# LANGUAGE RecordWildCards #-}
+module Main where
+
+import qualified T5592a as MR (MyRecord(MyRecord, field))
+
+main
+  = do { let field = "Hello, world!"
+             rec = MR.MyRecord {..}
+       ; print rec }
diff --git a/tests/rename/should_compile/T5592.stdout b/tests/rename/should_compile/T5592.stdout
new file mode 100644
index 0000000..d58d2d8
--- /dev/null
+++ b/tests/rename/should_compile/T5592.stdout
@@ -0,0 +1 @@
+MyRecord {field = "Hello, world!"}
diff --git a/tests/rename/should_compile/T5592a.hs b/tests/rename/should_compile/T5592a.hs
new file mode 100644
index 0000000..ba0e40b
--- /dev/null
+++ b/tests/rename/should_compile/T5592a.hs
@@ -0,0 +1,4 @@
+module T5592a where
+
+data MyRecord = MyRecord { field :: String } 
+  deriving (Show)  
diff --git a/tests/rename/should_compile/all.T b/tests/rename/should_compile/all.T
index 262f506..3ed2a1f 100644
--- a/tests/rename/should_compile/all.T
+++ b/tests/rename/should_compile/all.T
@@ -181,3 +181,8 @@ test('T5306',
                    'T5306b.hi', 'T5306b.o'])],
      multimod_compile,
      ['T5306', '-v0'])
+test('T5592',
+     [only_compiler_types(['ghc']),
+      extra_clean(['T5592a.hi',      'T5592a.o'])],
+     multimod_compile_and_run,
+     ['T5592', '-v0'])