Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/0a0a9b324cca6e258965828729b8c505aa1f53ed >--------------------------------------------------------------- commit 0a0a9b324cca6e258965828729b8c505aa1f53ed Author: Simon Peyton Jones <[email protected]> Date: Wed Aug 3 16:24:13 2011 +0100 Test Trac #5372 and update output for T2901 >--------------------------------------------------------------- tests/rename/should_fail/T2901.stderr | 3 +-- tests/rename/should_fail/T5372.hs | 4 ++++ tests/rename/should_fail/T5372.stderr | 6 ++++++ tests/rename/should_fail/T5372a.hs | 2 ++ tests/rename/should_fail/all.T | 4 ++++ 5 files changed, 17 insertions(+), 2 deletions(-) diff --git a/tests/rename/should_fail/T2901.stderr b/tests/rename/should_fail/T2901.stderr index 7b3e9d5..8cf5b2f 100644 --- a/tests/rename/should_fail/T2901.stderr +++ b/tests/rename/should_fail/T2901.stderr @@ -1,5 +1,4 @@ T2901.hs:6:5: Not in scope: data constructor `F.Foo' -T2901.hs:6:13: - `F.field' is not a (visible) field of constructor `Foo' +T2901.hs:6:13: `F.field' is not a (visible) constructor field name diff --git a/tests/rename/should_fail/T5372.hs b/tests/rename/should_fail/T5372.hs new file mode 100644 index 0000000..b0f5906 --- /dev/null +++ b/tests/rename/should_fail/T5372.hs @@ -0,0 +1,4 @@ +{-# LANGUAGE DisambiguateRecordFields #-} +module T5372 where +import qualified T5372a +notScope (MkS { x = n }) = n diff --git a/tests/rename/should_fail/T5372.stderr b/tests/rename/should_fail/T5372.stderr new file mode 100644 index 0000000..47e50dc --- /dev/null +++ b/tests/rename/should_fail/T5372.stderr @@ -0,0 +1,6 @@ + +T5372.hs:4:11: + Not in scope: data constructor `MkS' + Perhaps you meant `T5372a.MkS' (imported from T5372a) + +T5372.hs:4:17: `x' is not a (visible) constructor field name diff --git a/tests/rename/should_fail/T5372a.hs b/tests/rename/should_fail/T5372a.hs new file mode 100644 index 0000000..054f8c8 --- /dev/null +++ b/tests/rename/should_fail/T5372a.hs @@ -0,0 +1,2 @@ +module T5372a where +data S = MkS { x :: Int, y :: Bool } diff --git a/tests/rename/should_fail/all.T b/tests/rename/should_fail/all.T index bd57f01..f68746f 100644 --- a/tests/rename/should_fail/all.T +++ b/tests/rename/should_fail/all.T @@ -82,3 +82,7 @@ test('mc14', normal, compile_fail, ['']) test('T5211', normal, compile, ['']) # Warnings only test('T1595a', normal, compile_fail, ['']) test('T5281', normal, compile, ['']) # Warnings only +test('T5372', + extra_clean(['T5372a.hi', 'T5372a.o']), + multimod_compile_fail, + ['T5372','-v0']) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
