[commit: testsuite] ghc-7.6: Add test for #7145 (acc0346)

[Paolo Capriotti]

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

On branch  : ghc-7.6

http://hackage.haskell.org/trac/ghc/changeset/acc034699bd7efcd1c4930b242abe648f11f2171

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

commit acc034699bd7efcd1c4930b242abe648f11f2171
Author: Paolo Capriotti <p.capriotti at gmail.com>
Date:   Tue Aug 14 17:12:34 2012 +0100

    Add test for #7145
    
    MERGED from commit 5831652dd33313af28dd8b8eb88cb36bb474d98e

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

 tests/rename/should_compile/T7145a.hs     |    3 +++
 tests/rename/should_compile/T7145b.hs     |    6 ++++++
 tests/rename/should_compile/T7145b.stderr |    2 ++
 tests/rename/should_compile/all.T         |    2 ++
 4 files changed, 13 insertions(+), 0 deletions(-)

diff --git a/tests/rename/should_compile/T7145a.hs b/tests/rename/should_compile/T7145a.hs
new file mode 100644
index 0000000..501915f
--- /dev/null
+++ b/tests/rename/should_compile/T7145a.hs
@@ -0,0 +1,3 @@
+module T7145a ( Applicative(pure) ) where
+
+import Control.Applicative ( Applicative(pure) )
diff --git a/tests/rename/should_compile/T7145b.hs b/tests/rename/should_compile/T7145b.hs
new file mode 100644
index 0000000..f34ea4d
--- /dev/null
+++ b/tests/rename/should_compile/T7145b.hs
@@ -0,0 +1,6 @@
+module T7145b ( A.Applicative(pure) ) where
+
+import qualified Control.Applicative as A
+
+pure :: ()
+pure = ()
diff --git a/tests/rename/should_compile/T7145b.stderr b/tests/rename/should_compile/T7145b.stderr
new file mode 100644
index 0000000..35e233d
--- /dev/null
+++ b/tests/rename/should_compile/T7145b.stderr
@@ -0,0 +1,2 @@
+
+T7145b.hs:6:1: Warning: Defined but not used: `pure'
diff --git a/tests/rename/should_compile/all.T b/tests/rename/should_compile/all.T
index 3c821f7..e4e0d84 100644
--- a/tests/rename/should_compile/all.T
+++ b/tests/rename/should_compile/all.T
@@ -192,3 +192,5 @@ test('T5867',
 test('T6027', normal, compile, [''])
 test('T6120', normal, compile, [''])
 test('T7007', normal, compile, [''])
+test('T7145a', normal, compile, ['-Wall -Werror'])
+test('T7145b', normal, compile, ['-Wall'])