X-Git-Url: http://git.lukelau.me/?a=blobdiff_plain;f=test%2FTest.hs;h=1fd58da97d33508f47683c03194ef191076e5553;hb=d94df9a0302192037f92e9bdf4c99b92ce84fa4d;hp=986b4c5202e16da4b8e187b77a2db2db38b541ee;hpb=93bbb70d531238c46a28eb356a68c3648b88082f;p=lsp-test.git diff --git a/test/Test.hs b/test/Test.hs index 986b4c5..1fd58da 100644 --- a/test/Test.hs +++ b/test/Test.hs @@ -1,13 +1,43 @@ +{-# LANGUAGE DuplicateRecordFields #-} +{-# LANGUAGE OverloadedStrings #-} import Test.Hspec -import Language.Haskell.LSP.Test.Recorded +import Data.Maybe +import Data.Proxy +import Control.Monad.IO.Class +import Control.Lens hiding (List) +import Language.Haskell.LSP.Test +import Language.Haskell.LSP.Test.Replay +import Language.Haskell.LSP.Types +import Language.Haskell.LSP.Messages main = hspec $ do - describe "Replay" $ do - it "passes a test" $ do - replay "test/recordings/renamePass/client.log" - "test/recordings/renamePass/server.log" - `shouldReturn` True - -- it "fails a test" $ - -- replay "test/recordings/documentSymbolFail/client.log" - -- "test/recordings/documentSymbolFail/server.log" - -- `shouldReturn` False + describe "manual session validation" $ + it "passes a test" $ + runSession "test/recordings/renamePass" $ do + doc <- openDoc "Desktop/simple.hs" "haskell" + + skipMany loggingNotification + + NotPublishDiagnostics diagsNot <- notification + + liftIO $ diagsNot ^. params . diagnostics `shouldBe` List [] + + sendRequest (Proxy :: Proxy DocumentSymbolRequest) + TextDocumentDocumentSymbol + (DocumentSymbolParams doc) + + RspDocumentSymbols rspSymbols <- response + + liftIO $ do + let (List symbols) = fromJust (rspSymbols ^. result) + mainSymbol = head symbols + mainSymbol ^. name `shouldBe` "main" + mainSymbol ^. kind `shouldBe` SkFunction + mainSymbol ^. location . range `shouldBe` Range (Position 3 0) (Position 3 4) + mainSymbol ^. containerName `shouldBe` Nothing + + describe "replay session" $ do + it "passes a test" $ + replaySession "test/recordings/renamePass" `shouldReturn` True + it "fails a test" $ + replaySession "test/recordings/renameFail" `shouldReturn` False \ No newline at end of file