WIP:test

testsuite/tests/driver/multipleHomeUnits/Makefile

@@ -30,6 +30,9 @@ multipleHomeUnits004_recomp: clean
 multipleHomeUnitsModuleVisibility: clean
 	! '$(TEST_HC)' $(TEST_HC_OPTS) -fhide-source-paths -unit @unitMV -unit @unitMV-import
 
+multipleHomeUnitsPackageVisibility: clean
+	! '$(TEST_HC)' $(TEST_HC_OPTS) -fhide-source-paths -unit @unitPV1 -unit @unitPV2 -unit @unitPV3 -unit @unitPV4 -unit @unitPV5 -unit @unitPV6 -unit @unitPV-import
+
 multipleHomeUnits_recomp: clean
 	'$(TEST_HC)' $(TEST_HC_OPTS) -fhide-source-paths -unit @unitRecomp -unit @unitDep
 	# Doesn't cause recomp when TH is not involved

testsuite/tests/driver/multipleHomeUnits/all.T

@@ -50,6 +50,13 @@ test('multipleHomeUnitsModuleVisibility',
         , 'unitMV', 'unitMV-import'])
     ], makefile_test, [])
 
+test('multipleHomeUnitsPackageVisibility',
+    [ extra_files(
+        [ 'package-visibility/', 'package-visibility-import/'
+        , 'unitPV1', 'unitPV2', 'unitPV3', 'unitPV4', 'unitPV5', 'unitPV6'
+        , 'unitPV-import'])
+    ], makefile_test, [])
+
 test('multipleHomeUnitsPackageImports',
     [ extra_files(
         [ 'b/', 'b2/', 'package-imports/'

testsuite/tests/driver/multipleHomeUnits/multipleHomeUnitsPackageVisibility.stderr

+package-visibility-import/PV.hs:5:1: [GHC-87110]
+    Could not load module ‘MV2’.
+    It is a hidden module in the package ‘pv1’
+    It is a hidden module in the package ‘pv2’
+    It is a hidden module in the package ‘pv3’
+    It is a hidden module in the package ‘pv4’
+    It is a hidden module in the package ‘pv5’
+    It is a hidden module in 1 other package.
+    Use -v to see a list of the files searched for.
\ No newline at end of file

testsuite/tests/driver/multipleHomeUnits/multipleHomeUnitsPackageVisibility.stdout

+[ 1 of 13] Compiling MV1[pv1]
+[ 2 of 13] Compiling MV1[pv2]
+[ 3 of 13] Compiling MV1[pv3]
+[ 4 of 13] Compiling MV1[pv4]
+[ 5 of 13] Compiling MV1[pv5]
+[ 6 of 13] Compiling MV1[pv6]
+[ 7 of 13] Compiling MV2[pv1]
+[ 8 of 13] Compiling MV2[pv2]
+[ 9 of 13] Compiling MV2[pv3]
+[10 of 13] Compiling MV2[pv4]
+[11 of 13] Compiling MV2[pv5]
+[12 of 13] Compiling MV2[pv6]
+[13 of 13] Compiling PV[pvi]
\ No newline at end of file

testsuite/tests/driver/multipleHomeUnits/package-visibility-import/PV.hs

+module PV where
+
+import MV1
+-- Should fail as MV2 is not visible externally.
+import MV2

testsuite/tests/driver/multipleHomeUnits/package-visibility/pv1/MV1.hs

+module MV1 where

testsuite/tests/driver/multipleHomeUnits/package-visibility/pv1/MV2.hs

+module MV2 where

testsuite/tests/driver/multipleHomeUnits/package-visibility/pv2/MV1.hs

+module MV1 where

testsuite/tests/driver/multipleHomeUnits/package-visibility/pv2/MV2.hs

+module MV2 where

testsuite/tests/driver/multipleHomeUnits/package-visibility/pv3/MV1.hs

+module MV1 where

testsuite/tests/driver/multipleHomeUnits/package-visibility/pv3/MV2.hs

+module MV2 where

testsuite/tests/driver/multipleHomeUnits/package-visibility/pv4/MV1.hs

+module MV1 where

testsuite/tests/driver/multipleHomeUnits/package-visibility/pv4/MV2.hs

+module MV2 where

testsuite/tests/driver/multipleHomeUnits/package-visibility/pv5/MV1.hs

+module MV1 where

testsuite/tests/driver/multipleHomeUnits/package-visibility/pv5/MV2.hs

+module MV2 where

testsuite/tests/driver/multipleHomeUnits/package-visibility/pv6/MV1.hs

+module MV1 where

testsuite/tests/driver/multipleHomeUnits/package-visibility/pv6/MV2.hs

+module MV2 where

testsuite/tests/driver/multipleHomeUnits/unitPV-import

+-i -i. -working-dir=package-visibility-import PV -this-unit-id pvi -package-id pv1 -package-id pv2 -package-id pv3 -package-id pv4 -package-id pv5 -package-id pv6

testsuite/tests/driver/multipleHomeUnits/unitPV1

+-i -i. -working-dir=package-visibility/pv1 MV1 MV2 -this-unit-id pv1 -hidden-module MV2

testsuite/tests/driver/multipleHomeUnits/unitPV2

+-i -i. -working-dir=package-visibility/pv2 MV1 MV2 -this-unit-id pv2 -hidden-module MV2