Figure out whats going on with failing test

[lsp-test.git] / test / Test.hs

diff --git a/test/Test.hs b/test/Test.hs
index 380c98b90aedf2c9c498ed3f1539d010edeafc15..07b95e34c568c333da2b8aaa2494a88d59a62d03 100644 (file)
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -60,10 +60,10 @@ main = hspec $ do
                     withTimeout 5 $ skipManyTill anyMessage publishDiagnosticsNotification
           in void $ timeout 6000000 sesh
 
-      it "further timeout messages are ignored" $ runSession "hie" fullCaps "test/data/renamePass" $ do
+      it "further timeout messages are ignored" $ runSessionWithConfig (defaultConfig { logStdErr = True }) "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 ()