X-Git-Url: https://git.lukelau.me/?p=lsp-test.git;a=blobdiff_plain;f=test%2FTest.hs;h=c4aae07303337e44dbfa89d89040edebc073b96a;hp=fe599e7448a07031c9ce37e252faffa86e01bb2c;hb=d7e1ea01248d557b3c5e96d8edb9d6254ad094e4;hpb=c60722dda60902fc52f689d6393a43b004b1d8f8

diff --git a/test/Test.hs b/test/Test.hs
index fe599e7..c4aae07 100644
--- a/test/Test.hs
+++ b/test/Test.hs
@@ -333,7 +333,7 @@ main = findServer >>= \serverExe -> hspec $ do
     it "keeps track" $ runSession serverExe fullCaps "test/data" $ do
       loggingNotification -- initialized log message
 
-      createDoc "register" "haskell" ""
+      createDoc ".register" "haskell" ""
       message :: Session RegisterCapabilityRequest
 
       doc <- createDoc "Foo.watch" "haskell" ""
@@ -348,7 +348,7 @@ main = findServer >>= \serverExe -> hspec $ do
         ]
 
       -- now unregister it by sending a specific createDoc
-      createDoc "unregister" "haskell" ""
+      createDoc ".unregister" "haskell" ""
       message :: Session UnregisterCapabilityRequest
 
       createDoc "Bar.watch" "haskell" ""
@@ -361,7 +361,7 @@ main = findServer >>= \serverExe -> hspec $ do
 
       loggingNotification -- initialized log message
 
-      createDoc "register.abs" "haskell" ""
+      createDoc ".register.abs" "haskell" ""
       message :: Session RegisterCapabilityRequest
 
       doc <- createDoc (curDir </> "Foo.watch") "haskell" ""
@@ -369,7 +369,7 @@ main = findServer >>= \serverExe -> hspec $ do
       liftIO $ msg ^. params . LSP.message `shouldBe` "got workspace/didChangeWatchedFiles"
 
       -- now unregister it by sending a specific createDoc
-      createDoc "unregister.abs" "haskell" ""
+      createDoc ".unregister.abs" "haskell" ""
       message :: Session UnregisterCapabilityRequest
 
       createDoc (curDir </> "Bar.watch") "haskell" ""