Merge pull request #10391 from MercuryTechnologies/wiggles/add-repl-keep-temp-files-test-custom-setup

Add `repl --keep-temp-files` test with custom `Setup.hs`

Author: mergify[bot]

cabal-testsuite/PackageTests/MultiRepl/CustomSetupKeepTempFiles/cabal.no.out

@@ -0,0 +1,11 @@
+# cabal clean
+# cabal v2-repl
+Resolving dependencies...
+Build profile: -w ghc-<GHCVER> -O1
+In order, the following will be built:
+ - pkg-a-1 (interactive) (first run)
+ - pkg-b-0 (interactive) (first run)
+Configuring pkg-a-1...
+Preprocessing library for pkg-a-1...
+Configuring pkg-b-0...
+Preprocessing library for pkg-b-0...

cabal-testsuite/PackageTests/MultiRepl/CustomSetupKeepTempFiles/cabal.out

@@ -0,0 +1,10 @@
+# cabal v2-repl
+Resolving dependencies...
+Build profile: -w ghc-<GHCVER> -O1
+In order, the following will be built:
+ - pkg-a-1 (interactive) (lib) (first run)
+ - pkg-b-0 (interactive) (lib) (first run)
+Configuring library for pkg-a-1...
+Preprocessing library for pkg-a-1...
+Configuring library for pkg-b-0...
+Preprocessing library for pkg-b-0...

cabal-testsuite/PackageTests/MultiRepl/CustomSetupKeepTempFiles/cabal.project

@@ -0,0 +1,2 @@
+packages: pkg-a/*.cabal
+packages: pkg-b/*.cabal

cabal-testsuite/PackageTests/MultiRepl/CustomSetupKeepTempFiles/cabal.test.hs

@@ -0,0 +1,33 @@
+import Test.Cabal.Prelude
+
+main = do
+  cabalTest' "yes" $ do
+    skipUnlessAnyCabalVersion ">= 3.11"
+    skipUnlessGhcVersion ">= 9.4"
+    cabal' "clean" []
+    res <-
+      cabalWithStdin
+        "v2-repl"
+        [ "--keep-temp-files"
+        , "--enable-multi-repl"
+        , "pkg-b"
+        , "pkg-a"
+        ]
+        "Bar.bar"
+    assertOutputContains "foo is 42" res
+    void $ assertGlobMatchesTestDir testDistDir "multi-out*/"
+
+  cabalTest' "no" $ do
+    skipUnlessAnyCabalVersion ">= 3.11"
+    skipUnlessGhcVersion ">= 9.4"
+    cabal' "clean" []
+    res <-
+      cabalWithStdin
+        "v2-repl"
+        [ "--enable-multi-repl"
+        , "pkg-b"
+        , "pkg-a"
+        ]
+        "Bar.bar"
+    assertOutputContains "foo is 42" res
+    void $ assertGlobDoesNotMatchTestDir testDistDir "multi-out*/"

cabal-testsuite/PackageTests/MultiRepl/CustomSetupKeepTempFiles/cabal.yes.out

@@ -0,0 +1,11 @@
+# cabal clean
+# cabal v2-repl
+Resolving dependencies...
+Build profile: -w ghc-<GHCVER> -O1
+In order, the following will be built:
+ - pkg-a-1 (interactive) (first run)
+ - pkg-b-0 (interactive) (first run)
+Configuring pkg-a-1...
+Preprocessing library for pkg-a-1...
+Configuring pkg-b-0...
+Preprocessing library for pkg-b-0...

cabal-testsuite/PackageTests/MultiRepl/CustomSetupKeepTempFiles/pkg-a/Foo.hs

@@ -0,0 +1,4 @@
+module Foo where
+
+foo :: Int
+foo = 42

cabal-testsuite/PackageTests/MultiRepl/CustomSetupKeepTempFiles/pkg-a/Setup.hs

@@ -0,0 +1,4 @@
+import Distribution.Simple
+
+main :: IO ()
+main = defaultMain

cabal-testsuite/PackageTests/MultiRepl/CustomSetupKeepTempFiles/pkg-a/pkg-a.cabal

@@ -0,0 +1,12 @@
+cabal-version: 2.2
+name: pkg-a
+version: 1
+build-type: Custom
+
+custom-setup
+  setup-depends: Cabal, base
+
+library
+  default-language: Haskell2010
+  build-depends: base
+  exposed-modules: Foo

cabal-testsuite/PackageTests/MultiRepl/CustomSetupKeepTempFiles/pkg-b/Bar.hs

@@ -0,0 +1,6 @@
+module Bar (foo, bar) where
+
+import Foo (foo)
+
+bar :: String
+bar = "foo is " <> show foo

cabal-testsuite/PackageTests/MultiRepl/CustomSetupKeepTempFiles/pkg-b/Setup.hs

@@ -0,0 +1,4 @@
+import Distribution.Simple
+
+main :: IO ()
+main = defaultMain