Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/c17e3e2f1964d8fda87f80efb095ce1a2e916e2f >--------------------------------------------------------------- commit c17e3e2f1964d8fda87f80efb095ce1a2e916e2f Author: Simon Marlow <[email protected]> Date: Thu Apr 14 11:23:25 2011 +0100 test for #5114 >--------------------------------------------------------------- tests/ghc-regress/driver/Makefile | 8 +++++++- tests/ghc-regress/driver/all.T | 5 ++++- 2 files changed, 11 insertions(+), 2 deletions(-) diff --git a/tests/ghc-regress/driver/Makefile b/tests/ghc-regress/driver/Makefile index 8790936..770eef8 100644 --- a/tests/ghc-regress/driver/Makefile +++ b/tests/ghc-regress/driver/Makefile @@ -464,9 +464,15 @@ rtsopts002: .PHONY: withRtsOpts withRtsOpts: - $(RM) withRtsOpts$(exeext) withRtsOpts.hi withRtsOpts.o + $(RM) withRtsOpts$(exeext) withRtsOpts.hi withRtsOpts.o withRtsOpts.out "$(TEST_HC)" -v0 --make withRtsOpts -with-rtsopts=--info ./withRtsOpts | head -1 + # Also test for non-safe RTS opts, these should be allowed too, + # since the author has explicitly requested them. (#5114) + $(RM) withRtsOpts$(exeext) withRtsOpts.hi withRtsOpts.o withRtsOpts.out + "$(TEST_HC)" -v0 --make withRtsOpts -with-rtsopts=-twithRtsOpts.out + ./withRtsOpts | head -1 + test -f withRtsOpts.out .PHONY: T3364 T3364: diff --git a/tests/ghc-regress/driver/all.T b/tests/ghc-regress/driver/all.T index 9958263..e1f2ac1 100644 --- a/tests/ghc-regress/driver/all.T +++ b/tests/ghc-regress/driver/all.T @@ -310,7 +310,10 @@ test('rtsopts001', normal, run_command, test('rtsopts002', normal, run_command, ['$MAKE -s --no-print-directory rtsopts002']) -test('withRtsOpts', normal, run_command, +test('withRtsOpts', [ extra_clean(['withRtsOpts', 'withRtsOpts.exe', + 'withRtsOpts.hi', 'withRtsOpts.o', + 'withRtsOpts.out']) ], + run_command, ['$MAKE -s --no-print-directory withRtsOpts']) test('T3389', normal, compile_and_run, ['']) test('T3364', normalise_fun(normalise_errmsg), run_command, _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
