feat: provide time indication for integration tests

Author: theobat

tests/integration/IntegrationSpec.hs

@@ -31,6 +31,7 @@ import           RIO.Process
                    )
 import qualified RIO.Set as Set
 import qualified RIO.Text as T
+import           RIO.Time ( getCurrentTime, diffUTCTime, formatTime, defaultTimeLocale )
 import           System.Environment ( getExecutablePath, lookupEnv )
 import           System.Info ( os )
 import           System.PosixCompat.Files ( createSymbolicLink )
@@ -43,6 +44,7 @@ main = runSimpleApp $ do
   logInfo "Initiating Stack integration test running"
 
   options <- getRecord "Stack integration tests"
+  startTime <- getCurrentTime
   results <- runApp options $ do
     logInfo "Running with the following environment"
     proc "env" [] runProcess_
@@ -60,12 +62,14 @@ main = runSimpleApp $ do
                      <> fromString (takeFileName next)
               res <- test next
               loop (idx + 1) rest' (res <> accum)
-
+    
     loop (1 :: Int) (Set.toList tests) mempty
-
+  finalTime <- getCurrentTime
   let (successes, failures) = partition ((== ExitSuccess) . snd)
                             $ Map.toList results
-
+  let timeDiff = diffUTCTime finalTime startTime
+  let timeDiffStr = formatTime defaultTimeLocale "%h:%m:%s" timeDiff
+  logInfo (fromString ("Integration tests ran in : " ++ timeDiffStr))
   unless (null successes) $ do
     logInfo "Successful tests:"
     for_ successes $ \(x, _) -> logInfo $ "- " <> display x
@@ -77,6 +81,7 @@ main = runSimpleApp $ do
       logInfo "Failed tests:"
       for_ failures $ \(x, ec) -> logInfo $ "- " <> display x <> " - " <> displayShow ec
       exitFailure
+  
 
 data Options = Options
   { optSpeed :: Maybe Speed