Merge pull request #525 from isovector/tactics-diagnostics

Wait for diagnostics in tactics tests to try to workaround circleci failing ones
haskell · Oct 21, 2020 · f766476 · f766476
2 parents 9a55a8d + e207023
commit f766476
Showing 1 changed file with 2 additions and 0 deletions.
diff --git a/test/functional/Tactic.hs b/test/functional/Tactic.hs
@@ -122,6 +122,7 @@ mkTest name fp line col ts =
   testCase name $ do
   runSession hlsCommand fullCaps tacticPath $ do
     doc <- openDoc fp "haskell"
+    _ <- waitForDiagnostics
     actions <- getCodeActions doc $ pointRange line col
     let titles = mapMaybe codeActionTitle actions
     for_ ts $ \(f, tc, var) -> do
@@ -136,6 +137,7 @@ goldenTest input line col tc occ =
   testCase (input <> " (golden)") $ do
     runSession hlsCommand fullCaps tacticPath $ do
       doc <- openDoc input "haskell"
+      _ <- waitForDiagnostics
       actions <- getCodeActions doc $ pointRange line col
       Just (CACodeAction (CodeAction {_command = Just c}))
         <- pure $ find ((== Just (tacticTitle tc occ)) . codeActionTitle) actions