[commit: testsuite] master: Test Trac #7937 (083397f)

[Simon Peyton Jones]

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

https://github.com/ghc/testsuite/commit/083397ff21ec9e254b0a7e36550a8a4ba50a5313

>---------------------------------------------------------------

commit 083397ff21ec9e254b0a7e36550a8a4ba50a5313
Author: Simon Peyton Jones <simonpj at microsoft.com>
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, [''])