Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/40bdd03027ac4b3f369e6496502aa524165d0ddd >--------------------------------------------------------------- commit 40bdd03027ac4b3f369e6496502aa524165d0ddd Author: Paolo Capriotti <[email protected]> Date: Thu Aug 23 13:35:50 2012 +0100 Add regression test for dodgy import warning bug >--------------------------------------------------------------- tests/rename/should_compile/DodgyA.hs | 9 +++++++++ tests/rename/should_compile/all.T | 4 ++++ tests/rename/should_compile/dodgy.hs | 4 ++++ 3 files changed, 17 insertions(+), 0 deletions(-) diff --git a/tests/rename/should_compile/DodgyA.hs b/tests/rename/should_compile/DodgyA.hs new file mode 100644 index 0000000..39cb3ec --- /dev/null +++ b/tests/rename/should_compile/DodgyA.hs @@ -0,0 +1,9 @@ +{-# LANGUAGE TypeFamilies #-} + +module DodgyA(C(..), X(..)) where + +class C a where + data X a + +instance C Int where + data X Int = X1 Bool diff --git a/tests/rename/should_compile/all.T b/tests/rename/should_compile/all.T index 4ec6ea5..d0d2487 100644 --- a/tests/rename/should_compile/all.T +++ b/tests/rename/should_compile/all.T @@ -196,3 +196,7 @@ test('T7085', normal, compile, ['']) test('T7145a', normal, compile, ['-Wall -Werror']) test('T7145b', normal, compile, ['-Wall']) test('T6038', normal, compile, ['']) +test('dodgy', + [ extra_clean(['DodgyA.hi', 'DodgyA.o']) ], + multimod_compile, + ['dodgy', '-v0']) diff --git a/tests/rename/should_compile/dodgy.hs b/tests/rename/should_compile/dodgy.hs new file mode 100644 index 0000000..ec18bbf --- /dev/null +++ b/tests/rename/should_compile/dodgy.hs @@ -0,0 +1,4 @@ +{-# OPTIONS_GHC -fwarn-dodgy-imports #-} +module Dodgy where + +import DodgyA (X(..)) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
