X-Git-Url: https://git.lukelau.me/?p=lsp-test.git;a=blobdiff_plain;f=test%2FTest.hs;h=dc770d9205efc21e22147660380470316ed371a1;hp=a0d4d0d4c210472ab2b62fdf4d6c356e6a5de917;hb=cb75f5731bd7d85b1f1c684cbb2ce90cf82a1e34;hpb=16501021ea92ae3c84dbfd99a3c2dd631685b49c

diff --git a/test/Test.hs b/test/Test.hs
index a0d4d0d..dc770d9 100644
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -333,6 +333,12 @@ main = hspec $ do
           pred _ = False
       void $ satisfy pred
 
+  describe "ignoreLogNotifications" $
+    it "works" $
+      runSessionWithConfig (defaultConfig { ignoreLogNotifications = True }) "hie"  fullCaps "test/data" $ do
+        openDoc "Format.hs" "haskell"
+        void publishDiagnosticsNotification
+
 mkRange sl sc el ec = Range (Position sl sc) (Position el ec)
 
 didChangeCaps :: ClientCapabilities