Add test for initialize response

diff --git a/test/Test.hs b/test/Test.hs
index 16c8d01cdb57be9f4710a98df48ad00c121c6fa3..ce8a3573c3f92edaf0c5efa4a523be83479625a9 100644 (file)
--- 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" $