Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/d6729f46da0aa0d767f8190cb315758976b9674d >--------------------------------------------------------------- commit d6729f46da0aa0d767f8190cb315758976b9674d Author: Simon Peyton Jones <[email protected]> Date: Thu Aug 23 16:45:47 2012 +0100 Test Trac #7164 >--------------------------------------------------------------- tests/rename/should_fail/T7164.hs | 8 ++++++++ tests/rename/should_fail/T7164.stderr | 5 +++++ tests/rename/should_fail/all.T | 1 + 3 files changed, 14 insertions(+), 0 deletions(-) diff --git a/tests/rename/should_fail/T7164.hs b/tests/rename/should_fail/T7164.hs new file mode 100644 index 0000000..1a0415a --- /dev/null +++ b/tests/rename/should_fail/T7164.hs @@ -0,0 +1,8 @@ +module T7164 where + +class Foo m where + herp :: (a -> a) -> m b -> m b + derp :: m a + +derp :: Int +derp = 123 diff --git a/tests/rename/should_fail/T7164.stderr b/tests/rename/should_fail/T7164.stderr new file mode 100644 index 0000000..a7c23e1 --- /dev/null +++ b/tests/rename/should_fail/T7164.stderr @@ -0,0 +1,5 @@ + +T7164.hs:8:1: + Multiple declarations of `derp' + Declared at: T7164.hs:5:5 + T7164.hs:8:1 diff --git a/tests/rename/should_fail/all.T b/tests/rename/should_fail/all.T index 168d657..fece0ac 100644 --- a/tests/rename/should_fail/all.T +++ b/tests/rename/should_fail/all.T @@ -104,3 +104,4 @@ test('T5892b', normal, compile_fail, ['']) test('T5951', normal, compile_fail, ['']) test('T6060', normal, compile_fail, ['']) test('T6148', normal, compile_fail, ['']) +test('T7164', normal, compile_fail, ['']) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
