Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/c4293ef1c174ebf79c18c2347720febe920bd879 >--------------------------------------------------------------- commit c4293ef1c174ebf79c18c2347720febe920bd879 Author: Simon Peyton Jones <simo...@microsoft.com> Date: Tue Jan 8 14:08:25 2013 +0000 Test Trac #7454 >--------------------------------------------------------------- tests/rename/should_fail/T7454.hs | 7 +++++++ tests/rename/should_fail/T7454.stderr | 3 +++ tests/rename/should_fail/all.T | 1 + 3 files changed, 11 insertions(+), 0 deletions(-) diff --git a/tests/rename/should_fail/T7454.hs b/tests/rename/should_fail/T7454.hs new file mode 100644 index 0000000..d0088ab --- /dev/null +++ b/tests/rename/should_fail/T7454.hs @@ -0,0 +1,7 @@ +{-# OPTIONS_GHC -fwarn-unused-imports #-} + +module T7454 where + +import Control.Arrow( Arrow, arr ) + +foo () = arr diff --git a/tests/rename/should_fail/T7454.stderr b/tests/rename/should_fail/T7454.stderr new file mode 100644 index 0000000..4f68ca4 --- /dev/null +++ b/tests/rename/should_fail/T7454.stderr @@ -0,0 +1,3 @@ + +T7454.hs:5:1: Warning: + The import of `Arrow' from module `Control.Arrow' is redundant diff --git a/tests/rename/should_fail/all.T b/tests/rename/should_fail/all.T index a8aea71..4ced172 100644 --- a/tests/rename/should_fail/all.T +++ b/tests/rename/should_fail/all.T @@ -106,3 +106,4 @@ test('T6148', normal, compile_fail, ['']) test('T7164', normal, compile_fail, ['']) test('T7338', normal, compile_fail, ['']) test('T7338a', normal, compile_fail, ['']) +test('T7454', normal, compile, ['']) _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
