[commit: testsuite] master: Arrow wibbles (11cc379)

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

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/11cc379214c93699fa8ed366362139480f5cf36f

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

commit 11cc379214c93699fa8ed366362139480f5cf36f
Author: Simon Peyton Jones <[email protected]>
Date:   Wed Oct 3 11:16:42 2012 +0100

    Arrow wibbles

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

 tests/arrows/should_fail/T2111.stderr        |   12 +++++-------
 tests/arrows/should_fail/all.T               |    6 +++++-
 tests/arrows/should_fail/arrowfail003.stderr |   12 +++---------
 3 files changed, 13 insertions(+), 17 deletions(-)

diff --git a/tests/arrows/should_fail/T2111.stderr b/tests/arrows/should_fail/T2111.stderr
index c6cd8a7..4d100b3 100644
--- a/tests/arrows/should_fail/T2111.stderr
+++ b/tests/arrows/should_fail/T2111.stderr
@@ -1,10 +1,8 @@
 
 T2111.hs:6:23:
-    The arrow command
+    Arrow command found where an expression was expected:
+      undefined -< x
+
+T2111.hs:6:41:
+    Arrow command found where an expression was expected:
       undefined -< x
-    was found where an expression was expected
-    In a stmt of a 'do' block: x <- undefined -< x
-    In a stmt of a 'do' block: rec { x <- undefined -< x }
-    In the expression:
-      do { rec { x <- undefined -< x };
-           undefined -< x }
diff --git a/tests/arrows/should_fail/all.T b/tests/arrows/should_fail/all.T
index 2aaa27d..ef7aac6 100644
--- a/tests/arrows/should_fail/all.T
+++ b/tests/arrows/should_fail/all.T
@@ -1,6 +1,10 @@
 setTestOpts(only_compiler_types(['ghc']))
 
-test('arrowfail001', normal, compile_fail, [''])
+test('arrowfail001', expect_broken(5267), compile_fail, [''])
+ # arrowfail001 gets an ASSERT error in the stage1 compiler
+ # because we simply are not typechecking arrow commands
+ # correcly.  See Trac #5267, #5609, #5605
+
 test('arrowfail002', normal, compile_fail, [''])
 test('arrowfail003', normal, compile_fail, [''])
 test('arrowfail004', normal, compile_fail, [''])
diff --git a/tests/arrows/should_fail/arrowfail003.stderr b/tests/arrows/should_fail/arrowfail003.stderr
index 39a6b48..25e8efd 100644
--- a/tests/arrows/should_fail/arrowfail003.stderr
+++ b/tests/arrows/should_fail/arrowfail003.stderr
@@ -1,14 +1,8 @@
 
 arrowfail003.hs:8:7:
-    The arrow command
+    Arrow command found where an expression was expected:
       returnA -< []
-    was found where an expression was expected
-    In the expression: returnA -< []
-    In an equation for `foo': foo = returnA -< []
 
 arrowfail003.hs:9:7:
-    The arrow command
-      (|zeroArrow |)
-    was found where an expression was expected
-    In the expression: (|zeroArrow |)
-    In an equation for `bar': bar = (|zeroArrow |)
+    Arrow command found where an expression was expected:
+      (| zeroArrow |)