test/Test.hs

   1 {-# LANGUAGE DuplicateRecordFields #-}
   2 {-# LANGUAGE OverloadedStrings #-}
   3 import           Test.Hspec
   4 import           Data.Maybe
   5 import           Data.Proxy
   6 import           Control.Monad.IO.Class
   7 import           Control.Lens hiding (List)
   8 import           Language.Haskell.LSP.Test
   9 import           Language.Haskell.LSP.Test.Replay
  10 import           Language.Haskell.LSP.Types
  11 import           Language.Haskell.LSP.Messages
  12
  13 main = hspec $ do
  14   describe "manual session validation" $
  15     it "passes a test" $
  16       runSession "test/recordings/renamePass" $ do
  17         doc <- openDoc "Desktop/simple.hs" "haskell"
  18
  19         skipMany loggingNotification
  20
  21         NotPublishDiagnostics diagsNot <- notification
  22
  23         liftIO $ diagsNot ^. params . diagnostics `shouldBe` List []
  24
  25         sendRequest (Proxy :: Proxy DocumentSymbolRequest)
  26                     TextDocumentDocumentSymbol
  27                     (DocumentSymbolParams doc)
  28
  29         RspDocumentSymbols rspSymbols <- response
  30
  31         liftIO $ do
  32           let (List symbols) = fromJust (rspSymbols ^. result)
  33               mainSymbol = head symbols
  34           mainSymbol ^. name `shouldBe` "main"
  35           mainSymbol ^. kind `shouldBe` SkFunction
  36           mainSymbol ^. location . range `shouldBe` Range (Position 3 0) (Position 3 4)
  37           mainSymbol ^. containerName `shouldBe` Nothing
  38
  39   describe "replay session" $
  40     it "passes a test" $
  41       replaySession "test/recordings/renamePass" `shouldReturn` True