From f3a1c846d97e7d081375501835695334ddd3b34f Mon Sep 17 00:00:00 2001
From: Luke Lau <luke_lau@icloud.com>
Date: Wed, 13 Jun 2018 13:25:10 -0400
Subject: [PATCH] Add test for initialize response

---
 test/Test.hs | 3 +++
 1 file changed, 3 insertions(+)

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" $
-- 
2.30.2