Test Trac #7943

ghc · May 28, 2013 · d401d27 · d401d27
1 parent 083397f
commit d401d27
Show file tree

Hide file tree

Showing 3 changed files with 7 additions and 0 deletions.
diff --git a/tests/rename/should_fail/T7943.hs 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
@@ -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
@@ -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, [''])