summaryrefslogtreecommitdiff
path: root/testsuite/tests/th
diff options
context:
space:
mode:
authorSimon Peyton Jones <simonpj@microsoft.com>2013-09-20 15:35:21 +0100
committerSimon Peyton Jones <simonpj@microsoft.com>2013-09-20 15:38:19 +0100
commit023eff760e76575c64d37c2b34add4f370a19c8c (patch)
treee7bdc3a75bd13ce8767e545c8b3c4881d08ae218 /testsuite/tests/th
parentb1391024ea9ba209841435773fa9299befaecc6e (diff)
downloadhaskell-023eff760e76575c64d37c2b34add4f370a19c8c.tar.gz
Test Trac #8333
Diffstat (limited to 'testsuite/tests/th')
-rw-r--r--testsuite/tests/th/Makefile3
-rw-r--r--testsuite/tests/th/T8333.hs5
-rw-r--r--testsuite/tests/th/T8333.stdout7
-rw-r--r--testsuite/tests/th/all.T7
4 files changed, 21 insertions, 1 deletions
diff --git a/testsuite/tests/th/Makefile b/testsuite/tests/th/Makefile
index f7f36652ce..c18460044a 100644
--- a/testsuite/tests/th/Makefile
+++ b/testsuite/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/testsuite/tests/th/T8333.hs b/testsuite/tests/th/T8333.hs
new file mode 100644
index 0000000000..e81f07c53e
--- /dev/null
+++ b/testsuite/tests/th/T8333.hs
@@ -0,0 +1,5 @@
+{-# LANGUAGE TemplateHaskell #-}
+{-# OPTIONS_GHC -fno-omit-interface-pragmas #-}
+
+main :: IO ()
+main = return ()
diff --git a/testsuite/tests/th/T8333.stdout b/testsuite/tests/th/T8333.stdout
new file mode 100644
index 0000000000..8865fc13f7
--- /dev/null
+++ b/testsuite/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/testsuite/tests/th/all.T b/testsuite/tests/th/all.T
index d3d0db01bb..c8b0cab91a 100644
--- a/testsuite/tests/th/all.T
+++ b/testsuite/tests/th/all.T
@@ -287,4 +287,9 @@ test('TH_Roles2', normal, compile, ['-v0 -ddump-tc'])
test('TH_Roles3', normal, compile, ['-v0 -dsuppress-uniques'])
test('TH_Roles4', normal, compile, ['-v0'])
-test('T8186', normal, compile_and_run, ['-v0']) \ No newline at end of file
+test('T8186', normal, compile_and_run, ['-v0'])
+
+test('T8333',
+ normal,
+ run_command,
+ ['$MAKE -s --no-print-directory T8333'])