X-Git-Url: http://git.lukelau.me/?a=blobdiff_plain;f=test%2FTest.hs;h=ce8a3573c3f92edaf0c5efa4a523be83479625a9;hb=f3a1c846d97e7d081375501835695334ddd3b34f;hp=16c8d01cdb57be9f4710a98df48ad00c121c6fa3;hpb=a4180c432755f683d07605f4413135d6cfadc065;p=opengl.git

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