[commit: ghc] master: Testsuite: add test for #10781 (8d89d80)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/8d89d80d907a7df1d455e87a382b41dc65c42140/ghc

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

commit 8d89d80d907a7df1d455e87a382b41dc65c42140
Author: Thomas Miedema <thomasmiedema at gmail.com>
Date:   Thu Sep 17 03:25:11 2015 +0200

    Testsuite: add test for #10781


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

8d89d80d907a7df1d455e87a382b41dc65c42140
 testsuite/tests/rename/should_fail/T10781.hs     | 12 ++++++++++++
 testsuite/tests/rename/should_fail/T10781.stderr |  2 ++
 testsuite/tests/rename/should_fail/all.T         |  1 +
 3 files changed, 15 insertions(+)

diff --git a/testsuite/tests/rename/should_fail/T10781.hs b/testsuite/tests/rename/should_fail/T10781.hs
new file mode 100644
index 0000000..9991c94
--- /dev/null
+++ b/testsuite/tests/rename/should_fail/T10781.hs
@@ -0,0 +1,12 @@
+module T10781 where
+{- ghc-7.10.2 reported:
+
+T10781.hs:6:5:
+    Found hole ‘_name’ with type: t
+    Where: ‘t’ is a rigid type variable bound by
+               the inferred type of f :: t at T10781.hs:6:1
+    Relevant bindings include f :: t (bound at T10781.hs:6:1)
+    In the expression: Foo._name
+    In an equation for ‘f’: f = Foo._name
+-}
+f = Foo._name
diff --git a/testsuite/tests/rename/should_fail/T10781.stderr b/testsuite/tests/rename/should_fail/T10781.stderr
new file mode 100644
index 0000000..5d4dc3c
--- /dev/null
+++ b/testsuite/tests/rename/should_fail/T10781.stderr
@@ -0,0 +1,2 @@
+
+T10781.hs:12:5: error: Not in scope: ‘Foo._name’
diff --git a/testsuite/tests/rename/should_fail/all.T b/testsuite/tests/rename/should_fail/all.T
index bd717dd..48814ec 100644
--- a/testsuite/tests/rename/should_fail/all.T
+++ b/testsuite/tests/rename/should_fail/all.T
@@ -137,3 +137,4 @@ test('T9032',
 test('T10618', normal, compile_fail, [''])
 test('T10668', normal, compile_fail, [''])
 test('T5001b', normal, compile_fail, [''])
+test('T10781', normal, compile_fail, [''])