summaryrefslogtreecommitdiff
path: root/testsuite/tests/driver/multipleHomeUnits/self-import
diff options
context:
space:
mode:
Diffstat (limited to 'testsuite/tests/driver/multipleHomeUnits/self-import')
-rw-r--r--testsuite/tests/driver/multipleHomeUnits/self-import/Makefile9
-rw-r--r--testsuite/tests/driver/multipleHomeUnits/self-import/all.T4
-rw-r--r--testsuite/tests/driver/multipleHomeUnits/self-import/p1/P.hs1
-rw-r--r--testsuite/tests/driver/multipleHomeUnits/self-import/p2/P.hs4
-rw-r--r--testsuite/tests/driver/multipleHomeUnits/self-import/unitP11
-rw-r--r--testsuite/tests/driver/multipleHomeUnits/self-import/unitP21
6 files changed, 20 insertions, 0 deletions
diff --git a/testsuite/tests/driver/multipleHomeUnits/self-import/Makefile b/testsuite/tests/driver/multipleHomeUnits/self-import/Makefile
new file mode 100644
index 0000000000..ca859a602c
--- /dev/null
+++ b/testsuite/tests/driver/multipleHomeUnits/self-import/Makefile
@@ -0,0 +1,9 @@
+TOP=../../../..
+include $(TOP)/mk/boilerplate.mk
+include $(TOP)/mk/test.mk
+
+multipleHomeUnits_self-import:
+ '$(TEST_HC)' $(TEST_HC_OPTS) -unit @unitP1 -unit @unitP2 -v0
+ # This should do nothing
+ '$(TEST_HC)' $(TEST_HC_OPTS) -unit @unitP1 -unit @unitP2
+
diff --git a/testsuite/tests/driver/multipleHomeUnits/self-import/all.T b/testsuite/tests/driver/multipleHomeUnits/self-import/all.T
new file mode 100644
index 0000000000..a772a39083
--- /dev/null
+++ b/testsuite/tests/driver/multipleHomeUnits/self-import/all.T
@@ -0,0 +1,4 @@
+# This tests that recompilation logic works if you import a module with the same
+# name
+test('multipleHomeUnits_self-import', [extra_files([ 'p1/', 'p2/', 'unitP1', 'unitP2'])], makefile_test, [])
+
diff --git a/testsuite/tests/driver/multipleHomeUnits/self-import/p1/P.hs b/testsuite/tests/driver/multipleHomeUnits/self-import/p1/P.hs
new file mode 100644
index 0000000000..fc4877ad85
--- /dev/null
+++ b/testsuite/tests/driver/multipleHomeUnits/self-import/p1/P.hs
@@ -0,0 +1 @@
+module P where
diff --git a/testsuite/tests/driver/multipleHomeUnits/self-import/p2/P.hs b/testsuite/tests/driver/multipleHomeUnits/self-import/p2/P.hs
new file mode 100644
index 0000000000..a007978103
--- /dev/null
+++ b/testsuite/tests/driver/multipleHomeUnits/self-import/p2/P.hs
@@ -0,0 +1,4 @@
+{-# LANGUAGE PackageImports #-}
+module P where
+
+import "p1" P
diff --git a/testsuite/tests/driver/multipleHomeUnits/self-import/unitP1 b/testsuite/tests/driver/multipleHomeUnits/self-import/unitP1
new file mode 100644
index 0000000000..785cdd963d
--- /dev/null
+++ b/testsuite/tests/driver/multipleHomeUnits/self-import/unitP1
@@ -0,0 +1 @@
+-working-dir p1 P -this-unit-id p1-0 -this-package-name p1
diff --git a/testsuite/tests/driver/multipleHomeUnits/self-import/unitP2 b/testsuite/tests/driver/multipleHomeUnits/self-import/unitP2
new file mode 100644
index 0000000000..64d62d01e2
--- /dev/null
+++ b/testsuite/tests/driver/multipleHomeUnits/self-import/unitP2
@@ -0,0 +1 @@
+-working-dir p2 P -this-unit-id p2-0 -this-package-name p2 -package-id p1-0