[commit: testsuite] ghc-7.2: Test Trac #5372 (490f64f)

[Ian Lynagh]

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

On branch  : ghc-7.2

http://hackage.haskell.org/trac/ghc/changeset/490f64f739d08bb676680c0279cb8566328dd948

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

commit 490f64f739d08bb676680c0279cb8566328dd948
Author: Ian Lynagh <igloo at earth.li>
Date:   Thu Aug 4 15:56:50 2011 +0100

    Test Trac #5372
    
    and update output for T2901
    
    Conflicts:
    
    	tests/rename/should_fail/all.T

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

 tests/rename/should_fail/T2901.stderr |    3 +--
 tests/rename/should_fail/T5372.hs     |    4 ++++
 tests/rename/should_fail/T5372.stderr |    6 ++++++
 tests/rename/should_fail/T5372a.hs    |    2 ++
 tests/rename/should_fail/all.T        |    4 ++++
 5 files changed, 17 insertions(+), 2 deletions(-)

diff --git a/tests/rename/should_fail/T2901.stderr b/tests/rename/should_fail/T2901.stderr
index 7b3e9d5..8cf5b2f 100644
--- a/tests/rename/should_fail/T2901.stderr
+++ b/tests/rename/should_fail/T2901.stderr
@@ -1,5 +1,4 @@
 
 T2901.hs:6:5: Not in scope: data constructor `F.Foo'
 
-T2901.hs:6:13:
-    `F.field' is not a (visible) field of constructor `Foo'
+T2901.hs:6:13: `F.field' is not a (visible) constructor field name
diff --git a/tests/rename/should_fail/T5372.hs b/tests/rename/should_fail/T5372.hs
new file mode 100644
index 0000000..b0f5906
--- /dev/null
+++ b/tests/rename/should_fail/T5372.hs
@@ -0,0 +1,4 @@
+{-# LANGUAGE DisambiguateRecordFields #-}  
+module T5372 where  
+import qualified T5372a  
+notScope (MkS { x = n }) = n  
diff --git a/tests/rename/should_fail/T5372.stderr b/tests/rename/should_fail/T5372.stderr
new file mode 100644
index 0000000..47e50dc
--- /dev/null
+++ b/tests/rename/should_fail/T5372.stderr
@@ -0,0 +1,6 @@
+
+T5372.hs:4:11:
+    Not in scope: data constructor `MkS'
+    Perhaps you meant `T5372a.MkS' (imported from T5372a)
+
+T5372.hs:4:17: `x' is not a (visible) constructor field name
diff --git a/tests/rename/should_fail/T5372a.hs b/tests/rename/should_fail/T5372a.hs
new file mode 100644
index 0000000..054f8c8
--- /dev/null
+++ b/tests/rename/should_fail/T5372a.hs
@@ -0,0 +1,2 @@
+module T5372a where
+data S = MkS { x :: Int, y :: Bool }
diff --git a/tests/rename/should_fail/all.T b/tests/rename/should_fail/all.T
index 78d35ce..c8c93b2 100644
--- a/tests/rename/should_fail/all.T
+++ b/tests/rename/should_fail/all.T
@@ -81,3 +81,7 @@ test('mc13', normal, compile_fail, [''])
 test('mc14', normal, compile_fail, [''])
 test('T5211', normal, compile, [''])  # Warnings only
 test('T1595a', normal, compile_fail, [''])
+test('T5372',
+     extra_clean(['T5372a.hi', 'T5372a.o']),
+     multimod_compile_fail,
+     ['T5372','-v0'])