X-Git-Url: http://git.lukelau.me/?p=lsp-test.git;a=blobdiff_plain;f=test%2FTest.hs;h=f4c48d2243f712bb5378ff97603be09d00f151d4;hp=8602118bc6e795c550ff5348c9edc7d5b3df71c9;hb=a986ed6b44d62079476dadb07388b43847c5d724;hpb=4d68c322be54d7016d19d1bfd714eb272864a21f

diff --git a/test/Test.hs b/test/Test.hs
index 8602118..f4c48d2 100644
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -64,8 +64,8 @@ main = hspec $ do
 
       it "further timeout messages are ignored" $ runSessionWithConfig config "hie -d --vomit" fullCaps "test/data/renamePass" $ do
         doc <- openDoc "Desktop/simple.hs" "haskell"
+        waitForDiagnostics
         withTimeout 3 $ getDocumentSymbols doc
-        liftIO $ threadDelay 5000000
         -- shouldn't throw an exception
         getDocumentSymbols doc
         return ()