Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/d2f7f27ef1a267c2a28f303b1b2d138d3366863f >--------------------------------------------------------------- commit d2f7f27ef1a267c2a28f303b1b2d138d3366863f Author: Simon Peyton Jones <[email protected]> Date: Fri Mar 30 13:43:00 2012 +0100 Test Trac #5951 >--------------------------------------------------------------- tests/rename/should_fail/T5951.hs | 11 +++++++++++ tests/rename/should_fail/T5951.stderr | 2 ++ tests/rename/should_fail/all.T | 1 + 3 files changed, 14 insertions(+), 0 deletions(-) diff --git a/tests/rename/should_fail/T5951.hs b/tests/rename/should_fail/T5951.hs new file mode 100644 index 0000000..7075679 --- /dev/null +++ b/tests/rename/should_fail/T5951.hs @@ -0,0 +1,11 @@ +module T5951 where + +class A a +class B b +class C c + +instance + A => + B => + C where + foo = undefined diff --git a/tests/rename/should_fail/T5951.stderr b/tests/rename/should_fail/T5951.stderr new file mode 100644 index 0000000..af0ee9d --- /dev/null +++ b/tests/rename/should_fail/T5951.stderr @@ -0,0 +1,2 @@ + +T5951.hs:8:8: Malformed instance: A => B => C diff --git a/tests/rename/should_fail/all.T b/tests/rename/should_fail/all.T index c762efc..a512d19 100644 --- a/tests/rename/should_fail/all.T +++ b/tests/rename/should_fail/all.T @@ -101,3 +101,4 @@ test('T5745', multimod_compile_fail, ['T5745', '-v0']) test('T5892a', normal, compile_fail, ['']) test('T5892b', normal, compile_fail, ['']) +test('T5951', normal, compile_fail, ['']) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
