Execute Eval tests sequentially

Author: tittoassini

Diff for: test/functional/Eval.hs

@@ -14,6 +14,7 @@ import Control.Monad.IO.Class (MonadIO (liftIO))
 import qualified Data.Text as T
 import qualified Data.Text.IO as T
 import Language.Haskell.LSP.Test (
+    Session,
     anyMessage,
     documentContents,
     executeCommand,
@@ -166,8 +167,13 @@ goldenTestBy f input = runSession hlsCommand fullCaps evalPath $ do
     codeLenses <- reverse . filter f <$> getCodeLenses doc
     -- liftIO $ print codeLenses
 
-    mapM_ executeCommand $ [c | CodeLens{_command = Just c} <- codeLenses]
-    _resp :: ApplyWorkspaceEditRequest <- skipManyTill anyMessage message
+    -- Execute in parallel
+    -- mapM_ executeCommand $ [c | CodeLens{_command = Just c} <- codeLenses]
+    -- _resp :: ApplyWorkspaceEditRequest <- skipManyTill anyMessage message
+
+    -- Execute sequentially
+    mapM_ executeCmd $ [c | CodeLens{_command = Just c} <- codeLenses]
+
     edited <- replaceUnicodeQuotes <$> documentContents doc
     -- liftIO $ T.putStrLn edited
 
@@ -181,6 +187,14 @@ goldenTestBy f input = runSession hlsCommand fullCaps evalPath $ do
     expected <- liftIO $ T.readFile expectedFile
     liftIO $ edited @?= expected
 
+-- Execute command and wait for result
+executeCmd :: Command -> Session ()
+executeCmd cmd = do
+    executeCommand cmd
+    _resp :: ApplyWorkspaceEditRequest <- skipManyTill anyMessage message
+    -- liftIO $ print _resp
+    return ()
+
 -- Execute only Eval tests to avoid interference from other plugins (e.g ghcide:typesignature.add)
 isEvalTest :: CodeLens -> Bool
 isEvalTest (CodeLens _ (Just (Command _ cmd _)) _)