From 023eff760e76575c64d37c2b34add4f370a19c8c Mon Sep 17 00:00:00 2001
From: Simon Peyton Jones <simonpj@microsoft.com>
Date: Fri, 20 Sep 2013 15:35:21 +0100
Subject: Test Trac #8333

---
 testsuite/tests/th/Makefile     | 3 +++
 testsuite/tests/th/T8333.hs     | 5 +++++
 testsuite/tests/th/T8333.stdout | 7 +++++++
 testsuite/tests/th/all.T        | 7 ++++++-
 4 files changed, 21 insertions(+), 1 deletion(-)
 create mode 100644 testsuite/tests/th/T8333.hs
 create mode 100644 testsuite/tests/th/T8333.stdout

(limited to 'testsuite/tests/th')

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'])
-- 
cgit v1.2.1