Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/dc7ed4c829c063ca03cf16a2e3caee61e2589ee8 >--------------------------------------------------------------- commit dc7ed4c829c063ca03cf16a2e3caee61e2589ee8 Author: Simon Peyton Jones <simo...@microsoft.com> Date: Fri Oct 19 12:03:54 2012 +0100 Test Trac #7338 >--------------------------------------------------------------- tests/rename/should_fail/T7338.hs | 5 +++++ tests/rename/should_fail/T7338.stderr | 6 ++++++ tests/rename/should_fail/all.T | 1 + 3 files changed, 12 insertions(+), 0 deletions(-) diff --git a/tests/rename/should_fail/T7338.hs b/tests/rename/should_fail/T7338.hs new file mode 100644 index 0000000..f0d1c78 --- /dev/null +++ b/tests/rename/should_fail/T7338.hs @@ -0,0 +1,5 @@ +module T7338 where + +a, a :: Int +a :: Int +a = 0 diff --git a/tests/rename/should_fail/T7338.stderr b/tests/rename/should_fail/T7338.stderr new file mode 100644 index 0000000..e2a92d3 --- /dev/null +++ b/tests/rename/should_fail/T7338.stderr @@ -0,0 +1,6 @@ + +T7338.hs:4:1: + Duplicate type signatures for `a' + at T7338.hs:3:1 + T7338.hs:3:4 + T7338.hs:4:1 diff --git a/tests/rename/should_fail/all.T b/tests/rename/should_fail/all.T index b9a3d13..b1540c6 100644 --- a/tests/rename/should_fail/all.T +++ b/tests/rename/should_fail/all.T @@ -104,3 +104,4 @@ test('T5951', normal, compile_fail, ['']) test('T6060', normal, compile_fail, ['']) test('T6148', normal, compile_fail, ['']) test('T7164', normal, compile_fail, ['']) +test('T7338', normal, compile_fail, ['']) _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc
