Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
https://github.com/ghc/testsuite/commit/083397ff21ec9e254b0a7e36550a8a4ba50a5313 >--------------------------------------------------------------- commit 083397ff21ec9e254b0a7e36550a8a4ba50a5313 Author: Simon Peyton Jones <[email protected]> Date: Tue May 28 09:20:12 2013 +0100 Test Trac #7937 >--------------------------------------------------------------- tests/rename/should_fail/T7937.hs | 10 ++++++++++ tests/rename/should_fail/T7937.stderr | 4 ++++ tests/rename/should_fail/all.T | 1 + 3 files changed, 15 insertions(+), 0 deletions(-) diff --git a/tests/rename/should_fail/T7937.hs b/tests/rename/should_fail/T7937.hs new file mode 100644 index 0000000..f47a313 --- /dev/null +++ b/tests/rename/should_fail/T7937.hs @@ -0,0 +1,10 @@ +module T7937 where + +-- Without this operator definition, a precedence parsing error is reported. +-- Perhaps the default precedence is being assumed for the unknown operator? +-- That seems wrong, since there's no way to know what the precedence will be when +-- the operator is defined as the programmer intended. + +foo = 3 > 4 *** 5 == 6 + + diff --git a/tests/rename/should_fail/T7937.stderr b/tests/rename/should_fail/T7937.stderr new file mode 100644 index 0000000..09eb845 --- /dev/null +++ b/tests/rename/should_fail/T7937.stderr @@ -0,0 +1,4 @@ + +T7937.hs:8:13: + Not in scope: â***â + Perhaps you meant â**â (imported from Prelude) diff --git a/tests/rename/should_fail/all.T b/tests/rename/should_fail/all.T index c1fbfac..c94b393 100644 --- a/tests/rename/should_fail/all.T +++ b/tests/rename/should_fail/all.T @@ -108,3 +108,4 @@ test('T7338', normal, compile_fail, ['']) test('T7338a', normal, compile_fail, ['']) test('T7454', normal, compile, ['']) test('T7906', normal, compile_fail, ['']) +test('T7937', normal, compile_fail, [''])
_______________________________________________ ghc-commits mailing list [email protected] http://www.haskell.org/mailman/listinfo/ghc-commits
