[commit: testsuite] master: Add testcase for #7060 (b0741b1)

[Paolo Capriotti]

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

On branch  : master

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

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

commit b0741b1aab7a6f8cb56027b30bacb62ee4f7eedb
Author: Paolo Capriotti <p.capriotti at gmail.com>
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'])