Tests for EmptyDataDecls extension

testsuite/tests/ghc-regress/parser/should_compile/all.T

@@ -54,3 +54,5 @@ test('read044', normal, compile, [''])
 test('read045', normal, compile, [''])
 test('read046', normal, compile, [''])
 test('read047', normal, compile, [''])
+test('read048', normal, compile, [''])
+test('read049', normal, compile, [''])

testsuite/tests/ghc-regress/parser/should_compile/read048.hs

+
+{-# OPTIONS_GHC -XEmptyDataDecls #-}
+
+module Foo where
+
+data Foo
+

testsuite/tests/ghc-regress/parser/should_compile/read049.hs

+
+{-# LANGUAGE EmptyDataDecls #-}
+
+module Foo where
+
+data Foo
+

testsuite/tests/ghc-regress/parser/should_fail/all.T

@@ -41,3 +41,4 @@ test('read031', normal, compile_fail, [''])
 test('read032', expect_broken(314), compile_fail, ['-cpp'])
 test('read033', normal, compile_fail, [''])
 test('read034', normal, compile_fail, [''])
+test('read035', normal, compile_fail, [''])

testsuite/tests/ghc-regress/parser/should_fail/read035.hs

+
+module Foo where
+
+data Foo
+

testsuite/tests/ghc-regress/parser/should_fail/read035.stderr

+
+read035.hs:4:0:
+    `Foo' has no constructors (-XEmptyDataDecls permits this)
+    In the data type declaration for `Foo'