[commit: testsuite] master: Test Trac #7943 (d401d27)

[Simon Peyton Jones]

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

On branch  : master

https://github.com/ghc/testsuite/commit/d401d27b7fb556863dec98f430489ed9861dcfb9

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

commit d401d27b7fb556863dec98f430489ed9861dcfb9
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Tue May 28 14:03:51 2013 +0100

    Test Trac #7943

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

 tests/rename/should_fail/T7943.hs     |    4 ++++
 tests/rename/should_fail/T7943.stderr |    2 ++
 tests/rename/should_fail/all.T        |    1 +
 3 files changed, 7 insertions(+), 0 deletions(-)

diff --git a/tests/rename/should_fail/T7943.hs b/tests/rename/should_fail/T7943.hs
new file mode 100644
index 0000000..a1a99d5
--- /dev/null
+++ b/tests/rename/should_fail/T7943.hs
@@ -0,0 +1,4 @@
+module T7943 where
+
+data Foo = A { bar :: String }
+          | B String { bar :: String }
diff --git a/tests/rename/should_fail/T7943.stderr b/tests/rename/should_fail/T7943.stderr
new file mode 100644
index 0000000..8594a25
--- /dev/null
+++ b/tests/rename/should_fail/T7943.stderr
@@ -0,0 +1,2 @@
+
+T7943.hs:4:22: Record syntax is illegal here: {bar :: String}
diff --git a/tests/rename/should_fail/all.T b/tests/rename/should_fail/all.T
index c94b393..3b315a7 100644
--- a/tests/rename/should_fail/all.T
+++ b/tests/rename/should_fail/all.T
@@ -109,3 +109,4 @@ test('T7338a', normal, compile_fail, [''])
 test('T7454', normal, compile, [''])
 test('T7906', normal, compile_fail, [''])
 test('T7937', normal, compile_fail, [''])
+test('T7943', normal, compile_fail, [''])