main = hspec $ do
describe "Session" $ do
it "fails a test" $
- -- TODO: Catch the exception in haskell-lsp-test and provide nicer output
+ -- TODO: Catch the exception in lsp-test and provide nicer output
let session = runSession "hie" fullCaps "test/data/renamePass" $ do
openDoc "Desktop/simple.hs" "haskell"
skipMany loggingNotification
describe "getCompletions" $
it "works" $ runSession "hie" def "test/data/renamePass" $ do
doc <- openDoc "Desktop/simple.hs" "haskell"
+
+ -- wait for module to be loaded
+ skipMany loggingNotification
+ noDiagnostics
+ noDiagnostics
+
item:_ <- getCompletions doc (Position 5 5)
liftIO $ do
item ^. label `shouldBe` "interactWithUser"