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 <simo...@microsoft.com> 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 |) _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc