[project @ 2002-07-31 14:24:18 by simonmar]

Revamp the testsuite framework.  The previous framework was an
experiment that got a little out of control - a whole new language
with an interpreter written in Haskell was rather heavyweight and left
us with a maintenance problem.

So the new test driver is written in Python.  The downside is that you
need Python to run the testsuite, but we don't think that's too big a
problem since it only affects developers and Python installs pretty
easily onto everything these days.

Highlights:

  - 790 lines of Python, vs. 5300 lines of Haskell + 720 lines of
    <strange made-up language>.

  - the framework supports running tests in various "ways", which should
    catch more bugs.  By default, each test is run in three ways:
    normal, -O, and -O -fasm.  Additionally, if profiling libraries
    have been built, another way (-O -prof -auto-all) is added.  I plan
    to also add a 'GHCi' way.

    Running tests multiple ways has already shown up some new bugs!

  - documentation is in the README file and is somewhat improved.

  - the framework is rather less GHC-specific, and could without much
    difficulty be coaxed into using other compilers.  Most of the
    GHC-specificness is in a separate configuration file (config/ghc).

Things may need a while to settle down.  Expect some unexpected
failures.

1 files changed, 2 insertions, 9 deletions

diff --git a/testsuite/tests/ghc-regress/programs/andy_cherry/test.T b/testsuite/tests/ghc-regress/programs/andy_cherry/test.T
index 984575c7d7..30ec335f08 100644
--- a/testsuite/tests/ghc-regress/programs/andy_cherry/test.T
+++ b/testsuite/tests/ghc-regress/programs/andy_cherry/test.T
@@ -1,11 +1,4 @@
 
-include ($confdir ++ "/../multimod-test.T")
-
--- Args to mtr are: extra compile flags
---                  extra run flags
---                  expected process return value, if not zero
-
--- The program wants to read stuff from its own directory,
--- so we pass it the test dir as its single argument.
-test "andy_cherry" { mtr("-package lang -cpp", ".", "") }
+test('andy_cherry', extra_run_opts('.'), multimod_compile_and_run, \
+	['Main', '-package lang -cpp'])