Repository : ssh://darcs.haskell.org//srv/darcs/testsuite On branch : master
http://hackage.haskell.org/trac/ghc/changeset/fc20d6c9bea7da054c2499d62792ac7ce47f9143 >--------------------------------------------------------------- commit fc20d6c9bea7da054c2499d62792ac7ce47f9143 Author: Ian Lynagh <i...@well-typed.com> Date: Sat Dec 8 12:19:32 2012 +0000 Add a test for #7476 >--------------------------------------------------------------- tests/parser/should_compile/T7476/Makefile | 10 ++++++++++ tests/parser/should_compile/T7476/T7476.hs | 2 ++ tests/parser/should_compile/T7476/T7476.stdout | 1 + tests/parser/should_compile/T7476/all.T | 6 ++++++ 4 files changed, 19 insertions(+), 0 deletions(-) diff --git a/tests/parser/should_compile/T7476/Makefile b/tests/parser/should_compile/T7476/Makefile new file mode 100644 index 0000000..be5b1a4 --- /dev/null +++ b/tests/parser/should_compile/T7476/Makefile @@ -0,0 +1,10 @@ +TOP=../../../.. +include $(TOP)/mk/boilerplate.mk +include $(TOP)/mk/test.mk + +.PHONY: T7476 + +T7476: + "$(TEST_HC)" -v0 -ddump-minimal-imports T7476.hs + cat Main.imports + diff --git a/tests/parser/should_compile/T7476/T7476.hs b/tests/parser/should_compile/T7476/T7476.hs new file mode 100644 index 0000000..34ac453 --- /dev/null +++ b/tests/parser/should_compile/T7476/T7476.hs @@ -0,0 +1,2 @@ +import Control.Applicative +main = show <$> pure 1 >>= print diff --git a/tests/parser/should_compile/T7476/T7476.stdout b/tests/parser/should_compile/T7476/T7476.stdout new file mode 100644 index 0000000..d3ac31b --- /dev/null +++ b/tests/parser/should_compile/T7476/T7476.stdout @@ -0,0 +1 @@ +import Control.Applicative ( Applicative(pure), (<$>) ) diff --git a/tests/parser/should_compile/T7476/all.T b/tests/parser/should_compile/T7476/all.T new file mode 100644 index 0000000..70750b4 --- /dev/null +++ b/tests/parser/should_compile/T7476/all.T @@ -0,0 +1,6 @@ + +# This test is in its own subdirectory as it needs to use the global +# filename "Main.imports" + +test('T7476', extra_clean(['Main.imports']), run_command, + ['$MAKE -s --no-print-directory T7476']) _______________________________________________ Cvs-ghc mailing list Cvs-ghc@haskell.org http://www.haskell.org/mailman/listinfo/cvs-ghc