From 16514f272fb42af6e9c7674a9bd6c9dce369231f Mon Sep 17 00:00:00 2001
From: David Terei <davidterei@gmail.com>
Date: Wed, 20 Jul 2011 11:09:03 -0700
Subject: Move tests from tests/ghc-regress/* to just tests/*

---
 testsuite/tests/th/TH_import_loop/Main.hs          | 7 +++++++
 testsuite/tests/th/TH_import_loop/Makefile         | 3 +++
 testsuite/tests/th/TH_import_loop/ModuleA.hs       | 5 +++++
 testsuite/tests/th/TH_import_loop/ModuleA.hs-boot  | 3 +++
 testsuite/tests/th/TH_import_loop/ModuleB.hs       | 9 +++++++++
 testsuite/tests/th/TH_import_loop/ModuleC.hs       | 9 +++++++++
 testsuite/tests/th/TH_import_loop/TH_import_loop.T | 5 +++++
 7 files changed, 41 insertions(+)
 create mode 100644 testsuite/tests/th/TH_import_loop/Main.hs
 create mode 100644 testsuite/tests/th/TH_import_loop/Makefile
 create mode 100644 testsuite/tests/th/TH_import_loop/ModuleA.hs
 create mode 100644 testsuite/tests/th/TH_import_loop/ModuleA.hs-boot
 create mode 100644 testsuite/tests/th/TH_import_loop/ModuleB.hs
 create mode 100644 testsuite/tests/th/TH_import_loop/ModuleC.hs
 create mode 100644 testsuite/tests/th/TH_import_loop/TH_import_loop.T

(limited to 'testsuite/tests/th/TH_import_loop')

diff --git a/testsuite/tests/th/TH_import_loop/Main.hs b/testsuite/tests/th/TH_import_loop/Main.hs
new file mode 100644
index 0000000000..4cd66a0173
--- /dev/null
+++ b/testsuite/tests/th/TH_import_loop/Main.hs
@@ -0,0 +1,7 @@
+
+module Main where
+
+import ModuleA
+
+main = return ()
+
diff --git a/testsuite/tests/th/TH_import_loop/Makefile b/testsuite/tests/th/TH_import_loop/Makefile
new file mode 100644
index 0000000000..9101fbd40a
--- /dev/null
+++ b/testsuite/tests/th/TH_import_loop/Makefile
@@ -0,0 +1,3 @@
+TOP=../../..
+include $(TOP)/mk/boilerplate.mk
+include $(TOP)/mk/test.mk
diff --git a/testsuite/tests/th/TH_import_loop/ModuleA.hs b/testsuite/tests/th/TH_import_loop/ModuleA.hs
new file mode 100644
index 0000000000..799f177dfe
--- /dev/null
+++ b/testsuite/tests/th/TH_import_loop/ModuleA.hs
@@ -0,0 +1,5 @@
+
+module ModuleA where
+
+import ModuleB
+
diff --git a/testsuite/tests/th/TH_import_loop/ModuleA.hs-boot b/testsuite/tests/th/TH_import_loop/ModuleA.hs-boot
new file mode 100644
index 0000000000..a5976fdcc6
--- /dev/null
+++ b/testsuite/tests/th/TH_import_loop/ModuleA.hs-boot
@@ -0,0 +1,3 @@
+
+module ModuleA where
+
diff --git a/testsuite/tests/th/TH_import_loop/ModuleB.hs b/testsuite/tests/th/TH_import_loop/ModuleB.hs
new file mode 100644
index 0000000000..9aaffb613f
--- /dev/null
+++ b/testsuite/tests/th/TH_import_loop/ModuleB.hs
@@ -0,0 +1,9 @@
+
+{-# LANGUAGE TemplateHaskell #-}
+
+module ModuleB where
+
+import ModuleC
+
+$(nothing)
+
diff --git a/testsuite/tests/th/TH_import_loop/ModuleC.hs b/testsuite/tests/th/TH_import_loop/ModuleC.hs
new file mode 100644
index 0000000000..3047a8f0d4
--- /dev/null
+++ b/testsuite/tests/th/TH_import_loop/ModuleC.hs
@@ -0,0 +1,9 @@
+
+module ModuleC where
+
+import Language.Haskell.TH
+
+import {-# SOURCE #-} ModuleA
+
+nothing = return [] :: Q [Dec]
+
diff --git a/testsuite/tests/th/TH_import_loop/TH_import_loop.T b/testsuite/tests/th/TH_import_loop/TH_import_loop.T
new file mode 100644
index 0000000000..ebb8a427a7
--- /dev/null
+++ b/testsuite/tests/th/TH_import_loop/TH_import_loop.T
@@ -0,0 +1,5 @@
+
+setTestOpts(if_compiler_profiled(skip))
+
+test('TH_import_loop', expect_broken(1012), multimod_compile_and_run, ['Main', '-v0'])
+
-- 
cgit v1.2.1