X-Git-Url: http://git.lukelau.me/?a=blobdiff_plain;f=test%2FTest.hs;h=79bb30312668857a68322a99a3ad46a34896015f;hb=25c948d3bfc9f3876805377a0b923570bd0330a0;hp=c6ef7e29e90ca44e6ad592e379aa7f3ef64579f7;hpb=22df37c703e39fa5ebeb130be5785b3a9713c520;p=opengl.git diff --git a/test/Test.hs b/test/Test.hs index c6ef7e2..79bb303 100644 --- a/test/Test.hs +++ b/test/Test.hs @@ -29,7 +29,7 @@ main = hspec $ do noDiagnostics - rspSymbols <- documentSymbols doc + rspSymbols <- getDocumentSymbols doc liftIO $ do let (List symbols) = fromJust (rspSymbols ^. result) @@ -102,7 +102,7 @@ main = hspec $ do noDiagnostics - rspSymbols <- documentSymbols doc + rspSymbols <- getDocumentSymbols doc let (List symbols) = fromJust (rspSymbols ^. result) fooSymbol = head symbols @@ -148,7 +148,7 @@ main = hspec $ do skipMany anyNotification _ <- response :: Session ExecuteCommandResponse - contents <- documentEdit doc + contents <- getDocumentEdit doc liftIO $ contents `shouldBe` "main :: IO Int\nmain = return 42" noDiagnostics