Test Trac #2901

testsuite/tests/ghc-regress/rename/should_fail/T2901.hs

+{-# LANGUAGE DisambiguateRecordFields #-}
+-- Trac #2901
+
+module T2901 where
+
+f = F.Foo { F.field = "" }

testsuite/tests/ghc-regress/rename/should_fail/T2901.stderr

+
+T2901.hs:6:4: Not in scope: data constructor `F.Foo'
+
+T2901.hs:6:12: Not in scope: `F.field'

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

@@ -69,6 +69,7 @@ test('rnfail055',
 test('rn_dup', normal, compile_fail, [''])
 test('T2310', normal, compile_fail, [''])
 test('T2490', normal, compile_fail, [''])
+test('T2901', normal, compile_fail, [''])
 test('T2723',
      if_compiler_lt('ghc', '6.11', expect_fail),
      compile, [''])  # Warnings only