[commit: testsuite] master: Test Trac #7085 (3b51367)

[Simon Peyton Jones]

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/3b513673831c1a811881b524c0b3af56eeef5f23

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

commit 3b513673831c1a811881b524c0b3af56eeef5f23
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Jul 20 12:56:53 2012 +0100

    Test Trac #7085

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

 tests/rename/should_compile/T7085.hs     |    8 ++++++++
 tests/rename/should_compile/T7085.stderr |    3 +++
 tests/rename/should_compile/all.T        |    1 +
 3 files changed, 12 insertions(+), 0 deletions(-)

diff --git a/tests/rename/should_compile/T7085.hs b/tests/rename/should_compile/T7085.hs
new file mode 100644
index 0000000..4b587f4
--- /dev/null
+++ b/tests/rename/should_compile/T7085.hs
@@ -0,0 +1,8 @@
+{-# OPTIONS_GHC -fwarn-unused-binds #-}
+
+module ShouldFail where
+
+foo :: Int -> Int
+foo n = n + 1
+   where
+     Nothing = Just n
diff --git a/tests/rename/should_compile/T7085.stderr b/tests/rename/should_compile/T7085.stderr
new file mode 100644
index 0000000..b642ed6
--- /dev/null
+++ b/tests/rename/should_compile/T7085.stderr
@@ -0,0 +1,3 @@
+
+T7085.hs:8:6: Warning:
+    This pattern-binding binds no variables: Nothing = Just n
diff --git a/tests/rename/should_compile/all.T b/tests/rename/should_compile/all.T
index 3c821f7..1963150 100644
--- a/tests/rename/should_compile/all.T
+++ b/tests/rename/should_compile/all.T
@@ -192,3 +192,4 @@ test('T5867',
 test('T6027', normal, compile, [''])
 test('T6120', normal, compile, [''])
 test('T7007', normal, compile, [''])
+test('T7085', normal, compile, [''])