From: Luke Lau <luke_lau@icloud.com>
Date: Sat, 27 Feb 2021 16:17:40 +0000 (+0000)
Subject: Fix exception throwing test
X-Git-Url: https://git.lukelau.me/?p=lsp-test.git;a=commitdiff_plain;h=04857dfc5bde657533dc042ec451abbf7ea3a334;hp=b9c9c7d129f190c8b536e2e0090a98c47131abe3

Fix exception throwing test
---

diff --git a/test/Test.hs b/test/Test.hs
index b87d2f6..e5bf5ec 100644
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -118,7 +118,7 @@ main = findServer >>= \serverExe -> hspec $ do
               selector _ = False
             in runSession serverExe fullCaps "test/data/renamePass" publishDiagnosticsNotification `shouldThrow` selector
         it "provides the correct types that were expected and received" $
-          let selector (UnexpectedMessage "STextDocumentRename" (FromServerRsp STextDocumentDocumentSymbol _)) = True
+          let selector (UnexpectedMessage "Response for: STextDocumentRename" (FromServerRsp STextDocumentDocumentSymbol _)) = True
               selector _ = False
               sesh = do
                 doc <- openDoc "Desktop/simple.hs" "haskell"