[commit: ghc] master: Test Trac #12681 (1790762)

[git at git.haskell.org]

Repository : ssh://git@git.haskell.org/ghc

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/179076260624ead5a6c5d96e94f551cfeac9dec9/ghc

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

commit 179076260624ead5a6c5d96e94f551cfeac9dec9
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Mon Oct 17 08:40:16 2016 +0100

    Test Trac #12681


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

179076260624ead5a6c5d96e94f551cfeac9dec9
 testsuite/tests/rename/should_fail/T12681.hs     | 4 ++++
 testsuite/tests/rename/should_fail/T12681.stderr | 4 ++++
 testsuite/tests/rename/should_fail/T12681a.hs    | 2 ++
 testsuite/tests/rename/should_fail/all.T         | 1 +
 4 files changed, 11 insertions(+)

diff --git a/testsuite/tests/rename/should_fail/T12681.hs b/testsuite/tests/rename/should_fail/T12681.hs
new file mode 100644
index 0000000..34e9c2f
--- /dev/null
+++ b/testsuite/tests/rename/should_fail/T12681.hs
@@ -0,0 +1,4 @@
+module T12681 where
+import qualified T12681a
+
+x = T12681a.A { a = 0 }
diff --git a/testsuite/tests/rename/should_fail/T12681.stderr b/testsuite/tests/rename/should_fail/T12681.stderr
new file mode 100644
index 0000000..547cf4c
--- /dev/null
+++ b/testsuite/tests/rename/should_fail/T12681.stderr
@@ -0,0 +1,4 @@
+
+T12681.hs:4:17: error:
+    Not in scope: ‘a’
+    Perhaps you meant ‘T12681a.a’ (imported from T12681a)
diff --git a/testsuite/tests/rename/should_fail/T12681a.hs b/testsuite/tests/rename/should_fail/T12681a.hs
new file mode 100644
index 0000000..6e8bfe2
--- /dev/null
+++ b/testsuite/tests/rename/should_fail/T12681a.hs
@@ -0,0 +1,2 @@
+module T12681a where
+  data A = A { a :: Int }
diff --git a/testsuite/tests/rename/should_fail/all.T b/testsuite/tests/rename/should_fail/all.T
index 9fc13b0..f956bde 100644
--- a/testsuite/tests/rename/should_fail/all.T
+++ b/testsuite/tests/rename/should_fail/all.T
@@ -140,3 +140,4 @@ test('T11071', normal, compile_fail, [''])
 test('T11071a', normal, compile_fail, [''])
 test('T11663', normal, compile_fail, [''])
 test('T12229', normal, compile, [''])
+test('T12681', normal, multimod_compile_fail, ['T12681','-v0'])