X-Git-Url: http://git.lukelau.me/?p=opengl.git;a=blobdiff_plain;f=test%2FTest.hs;h=9319a779ee22cc4f2cac5d9e7563a16c878e3ae7;hp=11114d91fa310b56555e317eec517dfffb14e073;hb=3c3116cfde875e483ec70df6069a864838283885;hpb=3054f9c1c5403a527cf0c82bfbf021174db4addd

diff --git a/test/Test.hs b/test/Test.hs
index 11114d9..9319a77 100644
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -229,6 +229,12 @@ main = hspec $ do
   describe "getCompletions" $
     it "works" $ runSession "hie" def "test/data/renamePass" $ do
       doc <- openDoc "Desktop/simple.hs" "haskell"
+
+      -- wait for module to be loaded
+      skipMany loggingNotification
+      noDiagnostics
+      noDiagnostics
+
       item:_ <- getCompletions doc (Position 5 5)
       liftIO $ do
         item ^. label `shouldBe` "interactWithUser"