autoOpenTests cache server

ionide · May 24, 2024 · fc5f006 · fc5f006
1 parent 58313e2
commit fc5f006
Showing 1 changed file with 8 additions and 4 deletions.
diff --git a/test/FsAutoComplete.Tests.Lsp/CompletionTests.fs b/test/FsAutoComplete.Tests.Lsp/CompletionTests.fs
@@ -722,24 +722,28 @@ let autocompleteTest state =
     [ testList "Autocomplete within project files" (makeAutocompleteTestList server)
       testList "Autocomplete within script files" (makeAutocompleteTestList scriptServer) ]
 
-///TODO: these are broken in FCS 43.7.200 - something in the tokenization isn't searching the System namespace
 let autoOpenTests state =
   let dirPath =
     Path.Combine(__SOURCE_DIRECTORY__, "TestCases", "CompletionAutoOpenTests")
 
-  let serverFor (scriptPath: string) =
+  let autoOpenServer =
     async {
       // Auto Open requires unopened things in completions -> External
       let config =
         { defaultConfigDto with
             ExternalAutocomplete = Some true
             ResolveNamespaces = Some true }
 
-      let dirPath = Path.GetDirectoryName scriptPath
-      let scriptName = Path.GetFileName scriptPath
       let! (server, events) = serverInitialize dirPath config state
       do! waitForWorkspaceFinishedParsing events
+      return (server, events)
+    }
+    |> Async.Cache
 
+  let serverFor (scriptPath: string) =
+    async {
+      let! (server, events) = autoOpenServer
+      let scriptName = Path.GetFileName scriptPath
       let tdop: DidOpenTextDocumentParams = { TextDocument = loadDocument scriptPath }
       do! server.TextDocumentDidOpen tdop