Skip to content

Commit 8d1ef4c

Browse files
committed
Add waitForDiagnostics in tactic tests
1 parent 6d996f4 commit 8d1ef4c

File tree

1 file changed

+1
-0
lines changed

1 file changed

+1
-0
lines changed

test/functional/Tactic.hs

Lines changed: 1 addition & 0 deletions
Original file line numberDiff line numberDiff line change
@@ -133,6 +133,7 @@ goldenTest input line col tc occ =
133133
testCase (input <> " (golden)") $ do
134134
runSession hlsCommand fullCaps tacticPath $ do
135135
doc <- openDoc input "haskell"
136+
_ <- waitForDiagnostics
136137
actions <- getCodeActions doc $ pointRange line col
137138
Just (CACodeAction (CodeAction {_command = Just c}))
138139
<- pure $ find ((== Just (tacticTitle tc occ)) . codeActionTitle) actions

0 commit comments

Comments
 (0)