[commit: testsuite] master: Test Trac #7906 (fb63433)

[Simon Peyton Jones]

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

On branch  : master

https://github.com/ghc/testsuite/commit/fb634335659a0589f460415c85a01ef7c73654be

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

commit fb634335659a0589f460415c85a01ef7c73654be
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Wed May 15 16:02:42 2013 +0100

    Test Trac #7906

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

 tests/rename/should_fail/T7906.hs     |    5 +++++
 tests/rename/should_fail/T7906.stderr |    4 ++++
 tests/rename/should_fail/all.T        |    1 +
 3 files changed, 10 insertions(+), 0 deletions(-)

diff --git a/tests/rename/should_fail/T7906.hs b/tests/rename/should_fail/T7906.hs
new file mode 100644
index 0000000..eeb0c89
--- /dev/null
+++ b/tests/rename/should_fail/T7906.hs
@@ -0,0 +1,5 @@
+module T7906 where
+
+class Foo f where
+    foo :: f
+{-# INLINEABLE foo #-}
diff --git a/tests/rename/should_fail/T7906.stderr b/tests/rename/should_fail/T7906.stderr
new file mode 100644
index 0000000..30ccbed
--- /dev/null
+++ b/tests/rename/should_fail/T7906.stderr
@@ -0,0 +1,4 @@
+
+T7906.hs:5:16:
+    The INLINABLE pragma for ‛foo’ lacks an accompanying binding
+      (You cannot give a INLINABLE pragma for a record selector or class method)
diff --git a/tests/rename/should_fail/all.T b/tests/rename/should_fail/all.T
index c05662b..c1fbfac 100644
--- a/tests/rename/should_fail/all.T
+++ b/tests/rename/should_fail/all.T
@@ -107,3 +107,4 @@ test('T7164', normal, compile_fail, [''])
 test('T7338', normal, compile_fail, [''])
 test('T7338a', normal, compile_fail, [''])
 test('T7454', normal, compile, [''])
+test('T7906', normal, compile_fail, [''])