Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/381d75691ac6afef8e15eac96fd15aada6855460 >--------------------------------------------------------------- commit 381d75691ac6afef8e15eac96fd15aada6855460 Author: Simon Peyton Jones <simo...@microsoft.com> Date: Fri Oct 26 12:35:52 2012 +0100 Another test for Trac #7338, duplicate type sigs >--------------------------------------------------------------- tests/rename/should_fail/T7338a.hs | 11 +++++++++++ tests/rename/should_fail/T7338a.stderr | 10 ++++++++++ tests/rename/should_fail/all.T | 1 + 3 files changed, 22 insertions(+), 0 deletions(-) diff --git a/tests/rename/should_fail/T7338a.hs b/tests/rename/should_fail/T7338a.hs new file mode 100644 index 0000000..fac704c --- /dev/null +++ b/tests/rename/should_fail/T7338a.hs @@ -0,0 +1,11 @@ +module T7338a where + +a, b :: Int +a = undefined +b = undefined + +c, a :: Int +c = undefined + +c, d :: Int +d = undefined \ No newline at end of file diff --git a/tests/rename/should_fail/T7338a.stderr b/tests/rename/should_fail/T7338a.stderr new file mode 100644 index 0000000..58807dc --- /dev/null +++ b/tests/rename/should_fail/T7338a.stderr @@ -0,0 +1,10 @@ + +T7338a.hs:7:4: + Duplicate type signatures for `a' + at T7338a.hs:3:1 + T7338a.hs:7:4 + +T7338a.hs:10:1: + Duplicate type signatures for `c' + at T7338a.hs:7:1 + T7338a.hs:10:1 diff --git a/tests/rename/should_fail/all.T b/tests/rename/should_fail/all.T index b1540c6..a8aea71 100644 --- a/tests/rename/should_fail/all.T +++ b/tests/rename/should_fail/all.T @@ -105,3 +105,4 @@ test('T6060', normal, compile_fail, ['']) test('T6148', normal, compile_fail, ['']) test('T7164', normal, compile_fail, ['']) test('T7338', normal, compile_fail, ['']) +test('T7338a', normal, compile_fail, ['']) _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
