Add repl --keep-temp-files test

Author: 9999years

cabal-testsuite/PackageTests/MultiRepl/KeepTempFiles/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) (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/KeepTempFiles/cabal.project

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

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

@@ -0,0 +1,31 @@
+import Test.Cabal.Prelude
+
+main = do
+  cabalTest' "yes" $ do
+    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
+    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/KeepTempFiles/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) (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/KeepTempFiles/pkg-a/Foo.hs

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

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

@@ -0,0 +1,8 @@
+cabal-version: 2.2
+name: pkg-a
+version: 1
+
+library
+  default-language: Haskell2010
+  build-depends: base
+  exposed-modules: Foo

cabal-testsuite/PackageTests/MultiRepl/KeepTempFiles/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/KeepTempFiles/pkg-b/pkg-b.cabal

@@ -0,0 +1,8 @@
+cabal-version: 2.2
+name: pkg-b
+version: 0
+
+library
+  default-language: Haskell2010
+  build-depends: base, pkg-a
+  exposed-modules: Bar