Commit 33ade927 authored by ross's avatar ross
Browse files

[project @ 2005-05-06 12:13:54 by ross]

Rearrange arrows tests, and move tc120fail to arrowfail003.
parent 0dd8b5d9
{-# OPTIONS -farrows #-}
-- Arrow commands where an expression is expected -- Arrow commands where an expression is expected
module ShouldFail where module ShouldFail where
......
tcfail120.hs:7:6: arrowfail003.hs:8:6:
The arrow command The arrow command
returnA -< [] returnA -< []
was found where an expression was expected was found where an expression was expected
In the definition of `foo': foo = returnA -< [] In the definition of `foo': foo = returnA -< []
tcfail120.hs:8:6: arrowfail003.hs:9:6:
The arrow command The arrow command
(|zeroArrow |) (|zeroArrow |)
was found where an expression was expected was found where an expression was expected
......
TOP=../../../..
include $(TOP)/mk/boilerplate.mk
include $(TOP)/mk/test.mk
setTestOpts(only_compiler_types(['ghc']))
test('arrowrun001', normal, compile_and_run, [''])
test('arrowrun002', normal, compile_and_run, [''])
test('arrowrun003', normal, compile_and_run, [''])
test('arrowrun004', normal, compile_and_run, [''])
...@@ -105,7 +105,6 @@ test('tcfail116', normal, compile_fail, ['']) ...@@ -105,7 +105,6 @@ test('tcfail116', normal, compile_fail, [''])
test('tcfail117', normal, compile_fail, ['']) test('tcfail117', normal, compile_fail, [''])
test('tcfail118', normal, compile_fail, ['']) test('tcfail118', normal, compile_fail, [''])
test('tcfail119', normal, compile_fail, ['']) test('tcfail119', normal, compile_fail, [''])
test('tcfail120', only_compiler_types(['ghc']), compile_fail, ['-farrows'])
test('tcfail121', normal, compile_fail, ['']) test('tcfail121', normal, compile_fail, [''])
test('tcfail122', only_compiler_types(['ghc']), compile_fail, ['']) test('tcfail122', only_compiler_types(['ghc']), compile_fail, [''])
test('tcfail123', only_compiler_types(['ghc']), compile_fail, ['']) test('tcfail123', only_compiler_types(['ghc']), compile_fail, [''])
......
Markdown is supported
0% or .
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment