Fix embarassing error with publishDiagnosticsNotification

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

diff --git a/test/ParsingTests.hs b/test/ParsingTests.hs
new file mode 100644 (file)
index 0000000..7824ef3
--- /dev/null
+++ b/test/ParsingTests.hs
@@ -0,0 +1,38 @@
+{-# LANGUAGE OverloadedStrings #-}
+module ParsingTests where
+
+import Control.Lens hiding (List)
+import Language.Haskell.LSP.Messages
+import Language.Haskell.LSP.Test
+import Language.Haskell.LSP.Types
+import Data.Conduit
+import Data.Conduit.Parser
+import Test.Hspec
+
+parsingSpec :: Spec
+parsingSpec =
+  describe "diagnostics" $ do
+    let testDiag = NotPublishDiagnostics
+                   (NotificationMessage "2.0"
+                                       TextDocumentPublishDiagnostics
+                                       (PublishDiagnosticsParams (Uri "foo")
+                                                                 (List [])))
+    it "get picked up" $ do
+      let 
+          source = yield testDiag
+          session = do
+            diags <- publishDiagnosticsNotification
+            return $ diags ^. params . uri
+      runConduit (source .| runConduitParser session) `shouldReturn` Uri "foo"
+    it "get picked up after skipping others before" $ do
+      let testDiag = NotPublishDiagnostics
+                    (NotificationMessage "2.0"
+                                          TextDocumentPublishDiagnostics
+                                          (PublishDiagnosticsParams (Uri "foo")
+                                                                    (List [])))
+          notTestDiag = NotLogMessage (NotificationMessage "2.0" WindowLogMessage (LogMessageParams MtLog "foo"))
+          source = yield notTestDiag >> yield testDiag
+          session = do
+            diags <- skipManyTill notification publishDiagnosticsNotification
+            return $ diags ^. params . uri
+      runConduit (source .| runConduitParser session) `shouldReturn` Uri "foo"
\ No newline at end of file