[commit: testsuite] master: Add test case for #8184 (5f2f788)

[git at git.haskell.org]

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

On branch  : master
Link       : http://ghc.haskell.org/trac/ghc/changeset/5f2f788cf6d6507bd645cb06e21f9286233fe040/testsuite

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

commit 5f2f788cf6d6507bd645cb06e21f9286233fe040
Author: Patrick Palka <patrick at parcs.ath.cx>
Date:   Sun Sep 15 16:16:06 2013 -0400

    Add test case for #8184


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

5f2f788cf6d6507bd645cb06e21f9286233fe040
 .../scripts/break022/A1.hs => driver/T8184/A.hs}            |    3 ++-
 tests/driver/T8184/B.hs                                     |    8 ++++++++
 tests/{ghci/prog010/B.hs => driver/T8184/B.hs-boot}         |    2 +-
 tests/driver/T8184/C.hs                                     |    7 +++++++
 tests/driver/T8184/Makefile                                 |   11 +++++++++++
 tests/driver/T8184/all.T                                    |    2 ++
 6 files changed, 31 insertions(+), 2 deletions(-)

diff --git a/tests/ghci.debugger/scripts/break022/A1.hs b/tests/driver/T8184/A.hs
similarity index 74%
copy from tests/ghci.debugger/scripts/break022/A1.hs
copy to tests/driver/T8184/A.hs
index bf903ab..93a6081 100644
--- a/tests/ghci.debugger/scripts/break022/A1.hs
+++ b/tests/driver/T8184/A.hs
@@ -1,4 +1,5 @@
 module A where
+
 import {-# SOURCE #-} B
 
-a x = b x
\ No newline at end of file
+data X = X Y
diff --git a/tests/driver/T8184/B.hs b/tests/driver/T8184/B.hs
new file mode 100644
index 0000000..79732ed
--- /dev/null
+++ b/tests/driver/T8184/B.hs
@@ -0,0 +1,8 @@
+module B where
+
+import A
+
+data Y = Y Int Int
+
+thing :: X -> a
+thing (X (Y a b)) = thing (X (Y a b))
diff --git a/tests/ghci/prog010/B.hs b/tests/driver/T8184/B.hs-boot
similarity index 64%
copy from tests/ghci/prog010/B.hs
copy to tests/driver/T8184/B.hs-boot
index ce9e7e4..448783f 100644
--- a/tests/ghci/prog010/B.hs
+++ b/tests/driver/T8184/B.hs-boot
@@ -1,3 +1,3 @@
 module B where
 
-import A
+data Y
diff --git a/tests/driver/T8184/C.hs b/tests/driver/T8184/C.hs
new file mode 100644
index 0000000..97c41a6
--- /dev/null
+++ b/tests/driver/T8184/C.hs
@@ -0,0 +1,7 @@
+module C where
+
+import A
+import B
+
+panic :: Int -> a
+panic x = thing (X (Y x x))
diff --git a/tests/driver/T8184/Makefile b/tests/driver/T8184/Makefile
new file mode 100644
index 0000000..faa4766
--- /dev/null
+++ b/tests/driver/T8184/Makefile
@@ -0,0 +1,11 @@
+TOP=../../..
+include $(TOP)/mk/boilerplate.mk
+include $(TOP)/mk/test.mk
+
+.PHONY: clean T8184
+
+clean:
+	$(RM) *.o *.hi *.hi-boot *.o-boot
+
+T8184: clean
+	"$(TEST_HC)" $(TEST_HC_OPTS) -v0 --make -O2 C.hs
diff --git a/tests/driver/T8184/all.T b/tests/driver/T8184/all.T
new file mode 100644
index 0000000..ec859bf
--- /dev/null
+++ b/tests/driver/T8184/all.T
@@ -0,0 +1,2 @@
+test('T8184', normal, run_command,
+     ['$MAKE -s --no-print-directory T8184'])