[commit: testsuite] master: test for #5114 (c17e3e2)

[Simon Marlow]

Repository : ssh://darcs.haskell.org//srv/darcs/testsuite

On branch  : master

http://hackage.haskell.org/trac/ghc/changeset/c17e3e2f1964d8fda87f80efb095ce1a2e916e2f

>---------------------------------------------------------------

commit c17e3e2f1964d8fda87f80efb095ce1a2e916e2f
Author: Simon Marlow <marlowsd at gmail.com>
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,