Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/b0741b1aab7a6f8cb56027b30bacb62ee4f7eedb >--------------------------------------------------------------- commit b0741b1aab7a6f8cb56027b30bacb62ee4f7eedb Author: Paolo Capriotti <[email protected]> Date: Fri Jul 13 08:21:29 2012 +0100 Add testcase for #7060 >--------------------------------------------------------------- tests/driver/Makefile | 23 +++++++++++++++++++++++ tests/driver/T7060.hs | 4 ++++ tests/driver/all.T | 7 +++++++ 3 files changed, 34 insertions(+), 0 deletions(-) diff --git a/tests/driver/Makefile b/tests/driver/Makefile index 14d1d26..fdb2348 100644 --- a/tests/driver/Makefile +++ b/tests/driver/Makefile @@ -503,3 +503,26 @@ T5198: "$(TEST_HC)" $(TEST_HC_OPTS_NO_RECOMP) -c T5198.hs -dumpdir T5198dump -ddump-to-file -ddump-simpl [ -f T5198dump/T5198.dump-simpl ] +.PHONY: T7060a +T7060a: + $(RM) -rf T7060dump + [ ! -d T7060dump ] + "$(TEST_HC)" $(TEST_HC_OPTS_NO_RECOMP) -O -c T7060.hs -dumpdir T7060dump -ddump-to-file -ddump-rules + [ -f T7060dump/T7060.dump-rules ] + +.PHONY: T7060b +T7060b: + $(RM) -rf T7060dump + [ ! -d T7060dump ] + "$(TEST_HC)" $(TEST_HC_OPTS_NO_RECOMP) -O -c T7060.hs -dumpdir T7060dump -ddump-to-file -ddump-rule-firings + [ -f T7060dump/T7060.dump-rule-firings ] + +.PHONY: T7060c +T7060c: + $(RM) -rf T7060dump + [ ! -d T7060dump ] + "$(TEST_HC)" $(TEST_HC_OPTS_NO_RECOMP) -O -c T7060.hs -dumpdir T7060dump -ddump-to-file -ddump-rule-rewrites + [ -f T7060dump/T7060.dump-rule-rewrites ] + +.PHONY: T7060 +T7060: T7060a T7060b T7060c diff --git a/tests/driver/T7060.hs b/tests/driver/T7060.hs new file mode 100644 index 0000000..45dac51 --- /dev/null +++ b/tests/driver/T7060.hs @@ -0,0 +1,4 @@ +main :: IO () +main = print (3 + 4 :: Int) + +{-# RULES "rule" forall xs . map id xs = xs #-} diff --git a/tests/driver/all.T b/tests/driver/all.T index 8c9bb40..3440f9a 100644 --- a/tests/driver/all.T +++ b/tests/driver/all.T @@ -354,3 +354,10 @@ test('T5584', normal, run_command, test('T5198', extra_clean(['T5198dump/T5198.dump-simpl', 'T5198dump']), run_command, ['$MAKE -s --no-print-directory T5198']) +test('T7060', + extra_clean(['T7060dump/T7060.dump-rules', + 'T7060dump/T7060.dump-rule-firings', + 'T7060dump/T7060.dump-rule-rewrites', + 'T7060dump']), + run_command, + ['$MAKE -s --no-print-directory T7060']) _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
