{-# LANGUAGE DeriveAnyClass #-}
import Test.Hspec
import Data.Aeson
+import Data.Default
import qualified Data.HashMap.Strict as HM
import Data.Maybe
import Control.Monad.IO.Class
import GHC.Generics
import Language.Haskell.LSP.Test
import Language.Haskell.LSP.Test.Replay
+import Language.Haskell.LSP.TH.ClientCapabilities
import Language.Haskell.LSP.Types
import ParsingTests
rsp <- getInitializeResponse
liftIO $ rsp ^. result `shouldNotBe` Nothing
+ it "can register specific capabilities" $ do
+ let caps = def { _workspace = Just workspaceCaps }
+ workspaceCaps = def { _didChangeConfiguration = Just configCaps }
+ configCaps = DidChangeConfigurationClientCapabilities (Just True)
+ runSessionWithCapabilities caps "hie --lsp" "test/data/renamePass" $ return ()
+
describe "replay session" $ do
it "passes a test" $
replaySession "hie --lsp" "test/data/renamePass" `shouldReturn` True