Add integration test

tswelsh · tswelsh · commit bf6d39d8e21c · 2018-05-02T14:14:39.000+01:00
diff --git a/test/integration/tests/4001-excess-recompilation/Main.hs b/test/integration/tests/4001-excess-recompilation/Main.hs
@@ -0,0 +1,19 @@
+import Control.Monad (unless)
+import Data.List (isInfixOf)
+import StackTest
+
+main :: IO ()
+main = do
+  copy "test/Main1.hs" "test/Main.hs"
+  copy "bench/Main1.hs" "bench/Main.hs"
+  stack ["build"]
+
+  copy "test/Main2.hs" "test/Main.hs"
+  copy "bench/Main2.hs" "bench/Main.hs"
+  res <- unregisteringLines . snd <$> stackStderr ["build"]
+  removeFileIgnore "test/Main.hs"
+  removeFileIgnore "bench/Main.hs"
+  unless (null res) $ fail "Stack recompiled when a test or benchmark file was changed, but only the library was targeted"
+
+unregisteringLines :: String -> [String]
+unregisteringLines = filter (isInfixOf " unregistering ") . lines
diff --git a/test/integration/tests/4001-excess-recompilation/files/Setup.hs b/test/integration/tests/4001-excess-recompilation/files/Setup.hs
@@ -0,0 +1,2 @@
+import Distribution.Simple
+main = defaultMain
diff --git a/test/integration/tests/4001-excess-recompilation/files/bench/Main1.hs b/test/integration/tests/4001-excess-recompilation/files/bench/Main1.hs
@@ -0,0 +1,5 @@
+import  Lib
+
+main :: IO ()
+main = putStrLn "I am Main1"
+
diff --git a/test/integration/tests/4001-excess-recompilation/files/bench/Main2.hs b/test/integration/tests/4001-excess-recompilation/files/bench/Main2.hs
@@ -0,0 +1,5 @@
+import  Lib
+
+main :: IO ()
+main = putStrLn "I am Main2"
+
diff --git a/test/integration/tests/4001-excess-recompilation/files/files.cabal b/test/integration/tests/4001-excess-recompilation/files/files.cabal
@@ -0,0 +1,25 @@
+name:           files
+version:        0.1.0.0
+build-type:     Simple
+cabal-version:  >= 2.0
+
+library
+  hs-source-dirs:   src
+  exposed-modules:  Lib
+  build-depends:    base
+  default-language: Haskell2010
+
+test-suite test
+  hs-source-dirs:   test
+  main-is:          Main.hs
+  build-depends:    base, files
+  default-language: Haskell2010
+  type:             exitcode-stdio-1.0
+
+benchmark bench
+  hs-source-dirs:   bench
+  main-is:          Main.hs
+  build-depends:    base, files
+  default-language: Haskell2010
+  type:             exitcode-stdio-1.0
+
diff --git a/test/integration/tests/4001-excess-recompilation/files/src/Lib.hs b/test/integration/tests/4001-excess-recompilation/files/src/Lib.hs
@@ -0,0 +1,2 @@
+module Lib where
+
diff --git a/test/integration/tests/4001-excess-recompilation/files/stack.yaml b/test/integration/tests/4001-excess-recompilation/files/stack.yaml
@@ -0,0 +1 @@
+resolver: ghc-8.2.2
diff --git a/test/integration/tests/4001-excess-recompilation/files/test/Main1.hs b/test/integration/tests/4001-excess-recompilation/files/test/Main1.hs
@@ -0,0 +1,5 @@
+import  Lib
+
+main :: IO ()
+main = putStrLn "I am Main1"
+
diff --git a/test/integration/tests/4001-excess-recompilation/files/test/Main2.hs b/test/integration/tests/4001-excess-recompilation/files/test/Main2.hs
@@ -0,0 +1,5 @@
+import  Lib
+
+main :: IO ()
+main = putStrLn "I am Main2"
+

Original file line number	Diff line number	Diff line change
`@@ -0,0 +1,2 @@`
	`1`	`+import Distribution.Simple`
	`2`	`+main = defaultMain`