Re-design test-cases for show-build-info

Author: fendor

cabal-testsuite/PackageTests/ShowBuildInfo/A/A.cabal

@@ -0,0 +1,23 @@
+cabal-version:       2.4
+name:                A
+version:             0.1.0.0
+license:             BSD-3-Clause
+
+library
+  exposed-modules:     A
+  build-depends:       base >=4
+  hs-source-dirs:      src
+  default-language:    Haskell2010
+
+executable A
+  main-is:             Main.hs
+  build-depends:       base >=4
+  hs-source-dirs:      src
+  default-language:    Haskell2010
+
+test-suite A-tests
+  type:                exitcode-stdio-1.0
+  main-is:             Test.hs
+  build-depends:       base >=4, A
+  hs-source-dirs:      src
+  default-language:    Haskell2010

cabal-testsuite/PackageTests/ShowBuildInfo/A/B/B.cabal

@@ -0,0 +1,10 @@
+cabal-version:       2.4
+name:                B
+version:             0.1.0.0
+license:             BSD-3-Clause
+
+library
+  exposed-modules:     B
+  build-depends:       base >=4.0.0.0, A
+  hs-source-dirs:      lib
+  default-language:    Haskell2010

cabal-testsuite/PackageTests/ShowBuildInfo/A/B/lib/B.hs

@@ -0,0 +1,4 @@
+module B where
+
+foo :: Int -> Int
+foo = id

cabal-testsuite/PackageTests/ShowBuildInfo/A/build-info-all.out

@@ -0,0 +1,20 @@
+# cabal build
+Resolving dependencies...
+Build profile: -w ghc-<GHCVER> -O1
+In order, the following will be built:
+ - A-0.1.0.0 (lib) (first run)
+ - A-0.1.0.0 (exe:A) (first run)
+ - B-0.1.0.0 (lib) (first run)
+ - A-0.1.0.0 (test:A-tests) (first run)
+Configuring library for A-0.1.0.0..
+Preprocessing library for A-0.1.0.0..
+Building library for A-0.1.0.0..
+Configuring executable 'A' for A-0.1.0.0..
+Preprocessing executable 'A' for A-0.1.0.0..
+Building executable 'A' for A-0.1.0.0..
+Configuring library for B-0.1.0.0..
+Preprocessing library for B-0.1.0.0..
+Building library for B-0.1.0.0..
+Configuring test suite 'A-tests' for A-0.1.0.0..
+Preprocessing test suite 'A-tests' for A-0.1.0.0..
+Building test suite 'A-tests' for A-0.1.0.0..

cabal-testsuite/PackageTests/ShowBuildInfo/A/build-info-all.test.hs

@@ -0,0 +1,28 @@
+{-# LANGUAGE OverloadedStrings #-}
+import           Test.Cabal.Prelude
+import           Test.Cabal.DecodeShowBuildInfo
+
+main = cabalTest $ do
+  runShowBuildInfo ["all", "--enable-tests"]
+  withPlan $ do
+    assertComponent "A" (exe "A")
+      defCompAssertion
+        { sourceFiles = ["Main.hs"]
+        , sourceDirs = ["src"]
+        }
+    assertComponent "A" mainLib
+      defCompAssertion
+        { modules = ["A"]
+        , sourceDirs = ["src"]
+        }
+
+    assertComponent "B" mainLib
+      defCompAssertion
+        { modules = ["B"]
+        , sourceDirs = ["lib"]
+        }
+    assertComponent "A" (test "A-tests")
+      defCompAssertion
+        { sourceFiles = ["Test.hs"]
+        , sourceDirs = ["src"]
+        }

cabal-testsuite/PackageTests/ShowBuildInfo/A/build-info-exe.out

@@ -0,0 +1,8 @@
+# cabal build
+Resolving dependencies...
+Build profile: -w ghc-<GHCVER> -O1
+In order, the following will be built:
+ - A-0.1.0.0 (exe:A) (first run)
+Configuring executable 'A' for A-0.1.0.0..
+Preprocessing executable 'A' for A-0.1.0.0..
+Building executable 'A' for A-0.1.0.0..

cabal-testsuite/PackageTests/ShowBuildInfo/A/build-info-exe.test.hs

@@ -0,0 +1,14 @@
+{-# LANGUAGE OverloadedStrings #-}
+import           Test.Cabal.Prelude
+import           Test.Cabal.DecodeShowBuildInfo
+
+main = cabalTest $ do
+  runShowBuildInfo ["exe:A"]
+  withPlan $ do
+    assertComponent "A" (exe "A")
+      defCompAssertion
+          { sourceFiles = ["Main.hs"]
+          , sourceDirs = ["src"]
+          -- does not list lib as a target
+          , compilerArgsPred = all (/= "A-0.1.0.0-inplace")
+          }

cabal-testsuite/PackageTests/ShowBuildInfo/A/cabal.project

@@ -0,0 +1 @@
+packages: . ./B/

cabal-testsuite/PackageTests/ShowBuildInfo/A/remove-outdated.out

@@ -0,0 +1,15 @@
+# cabal build
+Resolving dependencies...
+Build profile: -w ghc-<GHCVER> -O1
+In order, the following will be built:
+ - A-0.1.0.0 (exe:A) (first run)
+Configuring executable 'A' for A-0.1.0.0..
+Preprocessing executable 'A' for A-0.1.0.0..
+Building executable 'A' for A-0.1.0.0..
+# cabal v2-build
+Build profile: -w ghc-<GHCVER> -O1
+In order, the following will be built:
+ - A-0.1.0.0 (exe:A) (configuration changed)
+Configuring executable 'A' for A-0.1.0.0..
+Preprocessing executable 'A' for A-0.1.0.0..
+Building executable 'A' for A-0.1.0.0..

cabal-testsuite/PackageTests/ShowBuildInfo/A/remove-outdated.test.hs

@@ -0,0 +1,23 @@
+{-# LANGUAGE OverloadedStrings #-}
+import           Test.Cabal.Prelude
+import           Test.Cabal.DecodeShowBuildInfo
+import           Test.Cabal.Plan
+import           Control.Monad.Trans.Reader
+import           System.Directory
+
+main = cabalTest $ do
+  runShowBuildInfo ["exe:A"]
+  withPlan $ do
+    assertComponent "A" (exe "A")
+      defCompAssertion
+          { sourceFiles = ["Main.hs"]
+          , sourceDirs = ["src"]
+          -- does not list lib as a target
+          , compilerArgsPred = all (/= "A-0.1.0.0-inplace")
+          }
+
+  cabal' "v2-build" ["exe:A", "--disable-build-info"]
+  withPlan $ do
+    Just plan <- fmap testPlan ask
+    let fp = buildInfoFile plan "A" (exe "A")
+    shouldNotExist fp