Try warming up HIE cache beforehand in functional tests

Author: lukel97

test/functional/DiagnosticsSpec.hs

@@ -17,7 +17,7 @@ import           Utils
 
 spec :: Spec
 spec = describe "diagnostics providers" $ do
-  describe "diagnostics triggers" $ do
+  describe "diagnostics triggers" $
     it "runs diagnostics on save" $
       runSession hieCommandExamplePlugin codeActionSupportCaps "test/testdata" $ do
       -- runSessionWithConfig logConfig hieCommandExamplePlugin codeActionSupportCaps "test/testdata" $ do

test/functional/Main.hs

@@ -1,11 +1,17 @@
 module Main where
 
-import Test.Hspec
+import           Control.Monad.IO.Class
+import           Language.Haskell.LSP.Test
 import qualified FunctionalSpec
-import TestUtils
+import           Test.Hspec
+import           TestUtils
 
 main :: IO ()
 main = do
   setupStackFiles
+  -- run a test session to warm up the cache to prevent timeouts in other tests
+  putStrLn "Warming up HIE cache..."
+  runSessionWithConfig (defaultConfig { messageTimeout = 120 }) hieCommand fullCaps "test/testdata" $
+    liftIO $ putStrLn "HIE cache is warmed up"
   -- withFileLogging "functional.log" $ hspec FunctionalSpec.spec
   withFileLogging logFilePath $ hspec FunctionalSpec.spec