[commit: ghc] master: Test Trac #8149 (c5a3938)

[git at git.haskell.org]

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

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

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

commit c5a39389ea067b2932961a27f5e4c28e135cf266
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Nov 21 13:03:08 2014 +0000

    Test Trac #8149


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

c5a39389ea067b2932961a27f5e4c28e135cf266
 testsuite/tests/rename/should_fail/T8149.hs     | 9 +++++++++
 testsuite/tests/rename/should_fail/T8149.stderr | 4 ++++
 testsuite/tests/rename/should_fail/all.T        | 1 +
 3 files changed, 14 insertions(+)

diff --git a/testsuite/tests/rename/should_fail/T8149.hs b/testsuite/tests/rename/should_fail/T8149.hs
new file mode 100644
index 0000000..7bd3519
--- /dev/null
+++ b/testsuite/tests/rename/should_fail/T8149.hs
@@ -0,0 +1,9 @@
+{-# OPTIONS_GHC -Wall #-}
+
+module T8149 where
+
+import Control.Monad.Trans.Writer (WriterT, runWriterT)
+
+foo :: Bool
+foo = runWriterT `seq` True
+
diff --git a/testsuite/tests/rename/should_fail/T8149.stderr b/testsuite/tests/rename/should_fail/T8149.stderr
new file mode 100644
index 0000000..1bb7f0d
--- /dev/null
+++ b/testsuite/tests/rename/should_fail/T8149.stderr
@@ -0,0 +1,4 @@
+
+T8149.hs:5:1: Warning:
+    The import of ‘WriterT’
+    from module ‘Control.Monad.Trans.Writer’ is redundant
diff --git a/testsuite/tests/rename/should_fail/all.T b/testsuite/tests/rename/should_fail/all.T
index 56d0f87..4c61a8a 100644
--- a/testsuite/tests/rename/should_fail/all.T
+++ b/testsuite/tests/rename/should_fail/all.T
@@ -111,6 +111,7 @@ test('T7906', normal, compile_fail, [''])
 test('T7937', normal, compile_fail, [''])
 test('T7943', normal, compile_fail, [''])
 test('T8448', normal, compile_fail, [''])
+test('T8149', normal, compile, [''])
 test('T9006',
      extra_clean(['T9006a.hi', 'T9006a.o']),
      multimod_compile_fail, ['T9006', '-v0'])