Fix, improve integration test 3770-no-rerun-tests

tests/integration/tests/3770-no-rerun-tests/Main.hs

@@ -0,0 +1,25 @@
+-- | Stack can avoid re-running successful test suites.
+--
+-- See: https://github.com/commercialhaskell/stack/pull/3770
+
+import          Control.Monad ( unless )
+import          Data.List ( isInfixOf )
+import          StackTest
+
+main :: IO ()
+main = do
+  stackCheckStderr ["test"] (expectMessage testSuitePassed)
+  stackCheckStderr
+    ["test", "--no-rerun-tests"]
+    (expectMessage skippedAlreadyPassedTest)
+
+testSuitePassed :: String
+testSuitePassed = "Test suite test passed"
+
+skippedAlreadyPassedTest :: String
+skippedAlreadyPassedTest = "skipping already passed test"
+
+expectMessage :: String -> String -> IO ()
+expectMessage msg stderr = do
+  unless (words msg `isInfixOf` words stderr) $
+    error $ "Expected output: \n" ++ show msg

tests/integration/tests/no-rerun-tests/files/.gitignore → tests/integration/tests/3770-no-rerun-tests/files/.gitignore

@@ -1,2 +1 @@
 myPackage.cabal
-testRan

tests/integration/tests/no-rerun-tests/files/package.yaml → tests/integration/tests/3770-no-rerun-tests/files/package.yaml

@@ -5,9 +5,6 @@ name: myPackage
 dependencies:
 - base
 
-library:
-  source-dirs: src
-
 tests:
   test:
     source-dirs: test

tests/integration/tests/3770-no-rerun-tests/files/test/Main.hs

@@ -0,0 +1,2 @@
+main :: IO ()
+main = pure ()