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

Author: fendor

cabal-testsuite/PackageTests/Configure/include/HsZlibConfig.h.in

@@ -3,12 +3,12 @@
 /* Define to 1 if you have the <inttypes.h> header file. */
 #undef HAVE_INTTYPES_H
 
-/* Define to 1 if you have the <memory.h> header file. */
-#undef HAVE_MEMORY_H
-
 /* Define to 1 if you have the <stdint.h> header file. */
 #undef HAVE_STDINT_H
 
+/* Define to 1 if you have the <stdio.h> header file. */
+#undef HAVE_STDIO_H
+
 /* Define to 1 if you have the <stdlib.h> header file. */
 #undef HAVE_STDLIB_H
 
@@ -45,5 +45,7 @@
 /* Define to the version of this package. */
 #undef PACKAGE_VERSION
 
-/* Define to 1 if you have the ANSI C header files. */
+/* Define to 1 if all of the C90 standard headers exist (not just the ones
+   required in a freestanding environment). This macro is provided for
+   backward compatibility; new code need not use it. */
 #undef STDC_HEADERS

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

@@ -18,6 +18,6 @@ executable A
 test-suite A-tests
   type:                exitcode-stdio-1.0
   main-is:             Test.hs
-  build-depends:       base >=4
+  build-depends:       base >=4, A
   hs-source-dirs:      src
   default-language:    Haskell2010

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

@@ -4,7 +4,7 @@ version:             0.1.0.0
 license:             BSD-3-Clause
 
 library
-  exposed-modules:     A
+  exposed-modules:     B
   build-depends:       base >=4.0.0.0, A
-  hs-source-dirs:      src
+  hs-source-dirs:      lib
   default-language:    Haskell2010

cabal-testsuite/PackageTests/ShowBuildInfo/B/src/A.hs renamed to cabal-testsuite/PackageTests/ShowBuildInfo/A/B/lib/A.hs

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

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

@@ -0,0 +1,9 @@
+import           Test.Cabal.Prelude
+import           Test.Cabal.DecodeShowBuildInfo
+
+main = cabalTest $ do
+    buildInfo <- runShowBuildInfo ["lib:B"]
+    assertCommonBuildInfo buildInfo
+    assertEqual "Number of Components" 1 (length $ components buildInfo)
+    let [libComp] = components buildInfo
+    assertLibComponent libComp "lib" ["B"] ["lib"]

cabal-testsuite/PackageTests/ShowBuildInfo/A/build-info-exe-exact.out renamed to cabal-testsuite/PackageTests/ShowBuildInfo/A/build-info-B-lib.out

@@ -0,0 +1,10 @@
+import           Test.Cabal.Prelude
+import           Test.Cabal.DecodeShowBuildInfo
+
+main = cabalTest $ do
+    buildInfo <- runShowBuildInfo ["lib:B", "lib:A"]
+    assertCommonBuildInfo buildInfo
+    assertEqual "Number of Components" 2 (length $ components buildInfo)
+    let [libAComp, libBComp] = components buildInfo
+    assertLibComponent libAComp "lib" ["A"] ["src"]
+    assertLibComponent libBComp "lib" ["B"] ["lib"]

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

@@ -2,8 +2,11 @@ import           Test.Cabal.Prelude
 import           Test.Cabal.DecodeShowBuildInfo
 
 main = cabalTest $ do
-    buildInfo <- runShowBuildInfo ["-v0"] -- hide verbose output so we can parse
-    let comps = components buildInfo
-    assertEqual "Components, exactly three" 3  (length comps)
-    assertEqual "Test components, exactly one" 1 $
-        length $ filter (\c -> "test" == componentType c) comps
+    buildInfo <- runShowBuildInfo ["all", "--enable-tests"]
+    assertCommonBuildInfo buildInfo
+    assertEqual "Number of Components" 4 (length $ components buildInfo)
+    let [libAComp, exeComp, testComp, libBComp] = components buildInfo
+    assertExeComponent exeComp "exe:A" ["Main.hs"] ["src"]
+    assertLibComponent libAComp "lib" ["A"] ["src"]
+    assertLibComponent libBComp "lib" ["B"] ["lib"]
+    assertTestComponent testComp "test:A-tests" ["Test.hs"] ["src"]