1 {-# LANGUAGE DuplicateRecordFields #-}
2 {-# LANGUAGE OverloadedStrings #-}
5 import Control.Monad.IO.Class
6 import Control.Lens hiding (List)
7 import Language.Haskell.LSP.Test
8 import Language.Haskell.LSP.TH.DataTypesJSON
11 describe "manual session validation" $
13 runSession "test/recordings/renamePass" $ do
14 docItem <- getDocItem "Desktop/simple.hs" "haskell"
15 docId <- TextDocumentIdentifier <$> getDocUri "Desktop/simple.hs"
17 sendNotification TextDocumentDidOpen (DidOpenTextDocumentParams docItem)
19 (NotificationMessage _ TextDocumentPublishDiagnostics (PublishDiagnosticsParams _ (List diags))) <-
20 getMessage :: Session PublishDiagnosticsNotification
22 liftIO $ diags `shouldBe` []
24 sendRequest (Proxy :: Proxy DocumentSymbolRequest)
25 TextDocumentDocumentSymbol
26 (DocumentSymbolParams docId)
28 (ResponseMessage _ _ (Just (List symbols)) Nothing) <- getMessage :: Session DocumentSymbolsResponse
30 let mainSymbol = head symbols
31 mainSymbol ^. name `shouldBe` "main"
32 mainSymbol ^. kind `shouldBe` SkFunction
33 mainSymbol ^. location . range `shouldBe` Range (Position 3 0) (Position 3 4)
34 mainSymbol ^. containerName `shouldBe` Nothing