Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/d808d99a4e2b37a86c102a48d613161fb19ad740 >--------------------------------------------------------------- commit d808d99a4e2b37a86c102a48d613161fb19ad740 Author: Simon Marlow <[email protected]> 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 _______________________________________________ Cvs-ghc mailing list [email protected] http://www.haskell.org/mailman/listinfo/cvs-ghc
