priv deps: Test long bad closure

This test makes a long chain of packages violate the private closure
property. In particular, it ensures all of the packages that are missing
from the private scope are listed in the error message.

cabal-testsuite/PackageTests/PrivateDeps/closure-property-long-chain/cabal.project

@@ -0,0 +1 @@
+packages: libA, libB, libC, libD, libE, libH

cabal-testsuite/PackageTests/PrivateDeps/closure-property-long-chain/cabal.test.hs

@@ -0,0 +1,8 @@
+import Test.Cabal.Prelude
+
+main = do
+  cabalTest $ recordMode DoNotRecord $ do
+
+    -- Will violate closure property
+    fails (cabal' "v2-build" ["libA"])
+      >>= assertOutputContains "a private scope must contain its closure, but packages libC, libD, libE are not included in the private scope libA:P0"

cabal-testsuite/PackageTests/PrivateDeps/closure-property-long-chain/libA/libA.cabal

@@ -0,0 +1,12 @@
+cabal-version:   3.0
+name:            libA
+version:         0.1.0.0
+license:         NONE
+build-type:      Simple
+
+library
+    exposed-modules:  MyLib
+    build-depends:    base
+    private-build-depends: P0 with (libB, libH)
+    hs-source-dirs:   src
+    default-language: Haskell2010

cabal-testsuite/PackageTests/PrivateDeps/closure-property-long-chain/libA/src/MyLib.hs

@@ -0,0 +1,4 @@
+module MyLib (someFunc) where
+
+someFunc :: IO ()
+someFunc = putStrLn "someFunc"

cabal-testsuite/PackageTests/PrivateDeps/closure-property-long-chain/libB/libB.cabal

@@ -0,0 +1,11 @@
+cabal-version:   3.0
+name:            libB
+version:         0.1.0.0
+license:         NONE
+build-type:      Simple
+
+library
+    exposed-modules:  MyLib
+    build-depends:    base, libC
+    hs-source-dirs:   src
+    default-language: Haskell2010

cabal-testsuite/PackageTests/PrivateDeps/closure-property-long-chain/libB/src/MyLib.hs

@@ -0,0 +1,4 @@
+module MyLib (someFunc) where
+
+someFunc :: IO ()
+someFunc = putStrLn "someFunc"

cabal-testsuite/PackageTests/PrivateDeps/closure-property-long-chain/libC/libC.cabal

@@ -0,0 +1,11 @@
+cabal-version:   3.0
+name:            libC
+version:         0.1.0.0
+license:         NONE
+build-type:      Simple
+
+library
+    exposed-modules:  MyLib
+    build-depends:    base, libD
+    hs-source-dirs:   src
+    default-language: Haskell2010

cabal-testsuite/PackageTests/PrivateDeps/closure-property-long-chain/libC/src/MyLib.hs

@@ -0,0 +1,4 @@
+module MyLib (someFunc) where
+
+someFunc :: IO ()
+someFunc = putStrLn "someFunc"

cabal-testsuite/PackageTests/PrivateDeps/closure-property-long-chain/libD/libD.cabal

@@ -0,0 +1,11 @@
+cabal-version:   3.0
+name:            libD
+version:         0.1.0.0
+license:         NONE
+build-type:      Simple
+
+library
+    exposed-modules:  MyLib
+    build-depends:    base, libE
+    hs-source-dirs:   src
+    default-language: Haskell2010

cabal-testsuite/PackageTests/PrivateDeps/closure-property-long-chain/libD/src/MyLib.hs

@@ -0,0 +1,4 @@
+module MyLib (someFunc) where
+
+someFunc :: IO ()
+someFunc = putStrLn "someFunc"

cabal-testsuite/PackageTests/PrivateDeps/closure-property-long-chain/libE/libE.cabal

@@ -0,0 +1,11 @@
+cabal-version:   3.0
+name:            libE
+version:         0.1.0.0
+license:         NONE
+build-type:      Simple
+
+library
+    exposed-modules:  MyLib
+    build-depends:    base, libH
+    hs-source-dirs:   src
+    default-language: Haskell2010

cabal-testsuite/PackageTests/PrivateDeps/closure-property-long-chain/libE/src/MyLib.hs

@@ -0,0 +1,4 @@
+module MyLib (someFunc) where
+
+someFunc :: IO ()
+someFunc = putStrLn "someFunc"

cabal-testsuite/PackageTests/PrivateDeps/closure-property-long-chain/libH/libH.cabal

@@ -0,0 +1,11 @@
+cabal-version:   3.0
+name:            libH
+version:         0.1.0.0
+license:         NONE
+build-type:      Simple
+
+library
+    exposed-modules:  MyLib
+    build-depends:    base
+    hs-source-dirs:   src
+    default-language: Haskell2010

cabal-testsuite/PackageTests/PrivateDeps/closure-property-long-chain/libH/src/MyLib.hs

@@ -0,0 +1,4 @@
+module MyLib (someFunc) where
+
+someFunc :: IO ()
+someFunc = putStrLn "someFunc"