From: Luke Lau <luke_lau@icloud.com>
Date: Wed, 13 Jun 2018 17:25:10 +0000 (-0400)
Subject: Add test for initialize response
X-Git-Tag: 0.1.0.0~71
X-Git-Url: http://git.lukelau.me/?p=lsp-test.git;a=commitdiff_plain;h=f3a1c846d97e7d081375501835695334ddd3b34f

Add test for initialize response
---

diff --git a/test/Test.hs b/test/Test.hs
index 16c8d01..ce8a357 100644
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -36,6 +36,9 @@ main = hspec $ do
                       skipMany loggingNotification
                       anyRequest
         in session `shouldThrow` anyException
+    it "can get initialize response" $ runSession "hie --lsp" "test/data/renamePass" $ do
+      rsp <- getInitializeResponse
+      liftIO $ rsp ^. result `shouldNotBe` Nothing
   
   describe "replay session" $ do
     it "passes a test" $