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

Rearrange arrows tests, and move tc120fail to arrowfail003.

testsuite/tests/ghc-regress/arrows/arrow2.stderr

-
-arrow2.hs:6:16: Not in scope: `x'

testsuite/tests/ghc-regress/arrows/should_compile/Makefile

+TOP=../../../..
+include $(TOP)/mk/boilerplate.mk
+include $(TOP)/mk/test.mk

testsuite/tests/ghc-regress/arrows/all.T → testsuite/tests/ghc-regress/arrows/should_compile/all.T

 setTestOpts(only_compiler_types(['ghc']))
 
-test('arrow1', normal, compile_fail, [''])
-test('arrow2', normal, compile_fail, [''])
 test('arrowapply1', normal, compile, [''])
 test('arrowapply2', normal, compile, [''])
 test('arrowapply3', normal, compile, [''])
@@ -15,16 +13,3 @@ test('arrowform1', normal, compile, [''])
 test('arrowif1', normal, compile, [''])
 test('arrowlet1', normal, compile, [''])
 test('arrowrec1', normal, compile, [''])
-
-test('arrowex1', normal, compile_and_run, [''])
-test('arrowex2', normal, compile_and_run, [''])
-test('arrowex3', normal, compile_and_run, [''])
-test('arrowex4', normal, compile_and_run, [''])
-
-# test('mod1', normal, compile_fail, [''])
-# test('mod2', normal, compile_fail, [''])
-# test('mod3', normal, compile_fail, [''])
-# test('mod4', normal, compile_fail, [''])
-# test('mod5', normal, compile, [''])
-# test('mod6', normal, compile, [''])
-# test('mod7', normal, compile_fail, [''])

testsuite/tests/ghc-regress/arrows/should_fail/Makefile

+TOP=../../../..
+include $(TOP)/mk/boilerplate.mk
+include $(TOP)/mk/test.mk

testsuite/tests/ghc-regress/arrows/should_fail/all.T

+setTestOpts(only_compiler_types(['ghc']))
+
+test('arrowfail001', normal, compile_fail, [''])
+test('arrowfail002', normal, compile_fail, [''])
+test('arrowfail003', normal, compile_fail, [''])

testsuite/tests/ghc-regress/arrows/arrow1.stderr → testsuite/tests/ghc-regress/arrows/should_fail/arrowfail001.stderr

 
-arrow1.hs:15:35:
+arrowfail001.hs:15:35:
     Ambiguous type variable `a' in the constraint:
-      `Foo a' arising from use of `foo' at arrow1.hs:15:35-37
+      `Foo a' arising from use of `foo' at arrowfail001.hs:15:35-37
     Probable fix: add a type signature that fixes these type variable(s)