[commit: testsuite] master: Add a test for #481 (d808d99)

[Simon Marlow]

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

On branch  : master

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

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

commit d808d99a4e2b37a86c102a48d613161fb19ad740
Author: Simon Marlow <marlowsd at gmail.com>
Date:   Wed Jul 20 09:46:10 2011 +0100

    Add a test for #481

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

 tests/ghc-regress/driver/recomp009/Main.hs         |    4 ++++
 tests/ghc-regress/driver/recomp009/Makefile        |   20 ++++++++++++++++++++
 tests/ghc-regress/driver/recomp009/Sub1.hs         |    3 +++
 tests/ghc-regress/driver/recomp009/Sub2.hs         |    3 +++
 tests/ghc-regress/driver/recomp009/all.T           |    7 +++++++
 .../recomp009/recomp009.stdout}                    |    0 
 6 files changed, 37 insertions(+), 0 deletions(-)

diff --git a/tests/ghc-regress/driver/recomp009/Main.hs b/tests/ghc-regress/driver/recomp009/Main.hs
new file mode 100644
index 0000000..b5e5424
--- /dev/null
+++ b/tests/ghc-regress/driver/recomp009/Main.hs
@@ -0,0 +1,4 @@
+{-# LANGUAGE TemplateHaskell #-}
+module Main where
+import Sub
+main = print $x
diff --git a/tests/ghc-regress/driver/recomp009/Makefile b/tests/ghc-regress/driver/recomp009/Makefile
new file mode 100644
index 0000000..7ebcae6
--- /dev/null
+++ b/tests/ghc-regress/driver/recomp009/Makefile
@@ -0,0 +1,20 @@
+TOP=../../../..
+include $(TOP)/mk/boilerplate.mk
+include $(TOP)/mk/test.mk
+
+# Recompilation tests
+
+clean:
+	rm -f *.o *.hi
+	rm -f B.hs C
+
+# bug #481
+
+recomp009: clean
+	cp Sub1.hs Sub.hs
+	'$(TEST_HC)' $(TEST_HC_OPTS) -v0 --make Main.hs
+	./Main
+	sleep 1
+	cp Sub2.hs Sub.hs
+	-'$(TEST_HC)' $(TEST_HC_OPTS) -v0 --make Main.hs
+	./Main
diff --git a/tests/ghc-regress/driver/recomp009/Sub1.hs b/tests/ghc-regress/driver/recomp009/Sub1.hs
new file mode 100644
index 0000000..25ea755
--- /dev/null
+++ b/tests/ghc-regress/driver/recomp009/Sub1.hs
@@ -0,0 +1,3 @@
+{-# LANGUAGE TemplateHaskell #-}
+module Sub where
+x = [| 1 |]
diff --git a/tests/ghc-regress/driver/recomp009/Sub2.hs b/tests/ghc-regress/driver/recomp009/Sub2.hs
new file mode 100644
index 0000000..7ca8b12
--- /dev/null
+++ b/tests/ghc-regress/driver/recomp009/Sub2.hs
@@ -0,0 +1,3 @@
+{-# LANGUAGE TemplateHaskell #-}
+module Sub where
+x = [| 2 |]
diff --git a/tests/ghc-regress/driver/recomp009/all.T b/tests/ghc-regress/driver/recomp009/all.T
new file mode 100644
index 0000000..368f6cf
--- /dev/null
+++ b/tests/ghc-regress/driver/recomp009/all.T
@@ -0,0 +1,7 @@
+# Test for #481, a recompilation bug with Template Haskell
+
+test('recomp009',
+     [ clean_cmd('$MAKE -s clean') ],
+     run_command,
+     ['$MAKE -s --no-print-directory recomp009'])
+
diff --git a/tests/ghc-regress/th/TH_recompile/TH_recompile.stdout b/tests/ghc-regress/driver/recomp009/recomp009.stdout
similarity index 100%
copy from tests/ghc-regress/th/TH_recompile/TH_recompile.stdout
copy to tests/ghc-regress/driver/recomp009/recomp009.stdout