X-Git-Url: http://git.lukelau.me/?a=blobdiff_plain;ds=sidebyside;f=test%2FParsingTests.hs;fp=test%2FParsingTests.hs;h=0000000000000000000000000000000000000000;hb=f8ee63f1c1d245c16f7a928c14c0e8908e6240c8;hp=e0ed6f66ee4600b89057a2eee6e59290f84942ea;hpb=a4c1143848809be8aed55403dc3187a256dcbe9b;p=lsp-test.git

diff --git a/test/ParsingTests.hs b/test/ParsingTests.hs
deleted file mode 100644
index e0ed6f6..0000000
--- a/test/ParsingTests.hs
+++ /dev/null
@@ -1,44 +0,0 @@
-{-# LANGUAGE OverloadedStrings #-}
-{-# LANGUAGE FlexibleInstances #-}
-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 Data.Default
-import Test.Hspec
-
-type TestSession = ConduitParser FromServerMessage IO
-
-instance MonadSessionConfig IO where
-  sessionConfig = return def
-
-parsingSpec :: Spec
-parsingSpec = return ()
---   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 :: TestSession 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 anyNotification notification :: TestSession PublishDiagnosticsNotification
---             return $ diags ^. params . uri
---       runConduit (source .| runConduitParser session) `shouldReturn` Uri "foo"