[commit: testsuite] master: Test Trac #8333 (57330d4)

git at git.haskell.org git at git.haskell.org
Fri Sep 20 16:38:33 CEST 2013


Repository : ssh://git@git.haskell.org/testsuite

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/57330d4aabb06c1e976853c638e5a6f640478d86/testsuite

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

commit 57330d4aabb06c1e976853c638e5a6f640478d86
Author: Simon Peyton Jones <simonpj at microsoft.com>
Date:   Fri Sep 20 15:35:21 2013 +0100

    Test Trac #8333


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

57330d4aabb06c1e976853c638e5a6f640478d86
 tests/th/Makefile     |    3 +++
 tests/th/T8333.hs     |    5 +++++
 tests/th/T8333.stdout |    7 +++++++
 tests/th/all.T        |    5 +++++
 4 files changed, 20 insertions(+)

diff --git a/tests/th/Makefile b/tests/th/Makefile
index f7f3665..c184600 100644
--- a/tests/th/Makefile
+++ b/tests/th/Makefile
@@ -34,3 +34,6 @@ TH_Depends:
 	'$(TEST_HC)' $(TEST_HC_OPTS) $(ghcThWayFlags) --make -v0 TH_Depends
 	./TH_Depends
 
+
+T8333:
+	$(TEST_HC) $(TEST_HC_OPTS) $(ghcThWayFlags) --interactive T8333.hs < /dev/null
diff --git a/tests/th/T8333.hs b/tests/th/T8333.hs
new file mode 100644
index 0000000..e81f07c
--- /dev/null
+++ b/tests/th/T8333.hs
@@ -0,0 +1,5 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# OPTIONS_GHC -fno-omit-interface-pragmas #-}
+
+main :: IO ()
+main = return ()
diff --git a/tests/th/T8333.stdout b/tests/th/T8333.stdout
new file mode 100644
index 0000000..8865fc1
--- /dev/null
+++ b/tests/th/T8333.stdout
@@ -0,0 +1,7 @@
+GHCi, version 7.7.20130919: http://www.haskell.org/ghc/  :? for help
+Loading package ghc-prim ... linking ... done.
+Loading package integer-gmp ... linking ... done.
+Loading package base ... linking ... done.
+[1 of 1] Compiling Main             ( T8333.hs, interpreted )
+Ok, modules loaded: Main.
+*Main> Leaving GHCi.
diff --git a/tests/th/all.T b/tests/th/all.T
index d3d0db0..c8b0cab 100644
--- a/tests/th/all.T
+++ b/tests/th/all.T
@@ -288,3 +288,8 @@ test('TH_Roles3', normal, compile, ['-v0 -dsuppress-uniques'])
 test('TH_Roles4', normal, compile, ['-v0'])
 
 test('T8186', normal, compile_and_run, ['-v0'])
+
+test('T8333',
+     normal,
+     run_command,
+     ['$MAKE -s --no-print-directory T8333'])




More information about the ghc-commits mailing list