Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/01b735e11cb9564a6f8f219eb19f7237be8ea925 >--------------------------------------------------------------- commit 01b735e11cb9564a6f8f219eb19f7237be8ea925 Author: Ian Lynagh <[email protected]> Date: Fri Nov 18 13:48:23 2011 +0000 Add a test for T5198 >--------------------------------------------------------------- tests/driver/Makefile | 8 ++++++++ tests/driver/T5198.hs | 6 ++++++ tests/driver/all.T | 3 +++ 3 files changed, 17 insertions(+), 0 deletions(-) diff --git a/tests/driver/Makefile b/tests/driver/Makefile index c13665b..8e5f2da 100644 --- a/tests/driver/Makefile +++ b/tests/driver/Makefile @@ -491,3 +491,11 @@ T5584: $(RM) -rf T5584_out mkdir T5584_out "$(TEST_HC)" -odir T5584_out -c T5584/A.hs-boot + +.PHONY: T5198 +T5198: + $(RM) -rf T5198dump + [ ! -d T5198dump ] + "$(TEST_HC)" $(TEST_HC_OPTS) -c T5198.hs -dumpdir T5198dump -ddump-to-file -ddump-simpl + [ -f T5198dump/T5198.dump-simpl ] + diff --git a/tests/driver/T5198.hs b/tests/driver/T5198.hs new file mode 100644 index 0000000..f346101 --- /dev/null +++ b/tests/driver/T5198.hs @@ -0,0 +1,6 @@ + +module T5198 where + +v :: () +v = () + diff --git a/tests/driver/all.T b/tests/driver/all.T index 7f937a9..d721f22 100644 --- a/tests/driver/all.T +++ b/tests/driver/all.T @@ -351,3 +351,6 @@ test('spacesInArgs', test('T5584', normal, run_command, ['$MAKE -s --no-print-directory T5584']) +test('T5198', extra_clean(['T5198dump/T5198.dump-simpl', 'T5198dump']), + run_command, + ['$MAKE -s --no-print-directory T5198']) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
