Fixing tests

ionide · Oct 9, 2023 · 5c3953e · 5c3953e
1 parent 7d998c7
commit 5c3953e
Show file tree

Hide file tree

Showing 4 changed files with 9 additions and 5 deletions.
diff --git a/src/FsAutoComplete/LspServers/AdaptiveFSharpLspServer.fs b/src/FsAutoComplete/LspServers/AdaptiveFSharpLspServer.fs
@@ -5052,8 +5052,11 @@ type AdaptiveFSharpLspServer
 
         return ()
       }
-    member this.CallHierarchyOutgoingCalls(arg1: CallHierarchyOutgoingCallsParams): AsyncLspResult<CallHierarchyOutgoingCall array option> =
-        AsyncLspResult.notImplemented
+
+    member this.CallHierarchyOutgoingCalls
+      (arg1: CallHierarchyOutgoingCallsParams)
+      : AsyncLspResult<CallHierarchyOutgoingCall array option> =
+      AsyncLspResult.notImplemented
 
 module AdaptiveFSharpLspServer =
 

diff --git a/src/FsAutoComplete/LspServers/Common.fs b/src/FsAutoComplete/LspServers/Common.fs
@@ -80,7 +80,7 @@ type DiagnosticCollection(sendDiagnostics: DocumentUri -> Diagnostic[] -> Async<
               match! inbox.Receive() with
               | Add(source, version, diags) ->
                 match Map.tryFind source state with
-                | Some(oldVersion, _) when oldVersion >= version -> return! loop state
+                | Some(oldVersion, _) when oldVersion > version -> return! loop state
                 | _ ->
                   let newState = state |> Map.add source (version, diags)
                   do! send uri newState

diff --git a/test/FsAutoComplete.Tests.Lsp/CallHierarchyTests.fs b/test/FsAutoComplete.Tests.Lsp/CallHierarchyTests.fs
@@ -13,6 +13,7 @@ open Utils.Server
 open Ionide.LanguageServerProtocol.Types
 
 let examples =  Path.Combine(__SOURCE_DIRECTORY__, "TestCases", "CallHierarchy")
+let incomingExamples = Path.Combine(examples, "IncomingCalls")
 let sourceFactory : ISourceTextFactory = RoslynSourceTextFactory()
 let resultGet = function | Ok x -> x | Error e -> failwithf "%A" e
 let resultOptionGet =
@@ -37,7 +38,7 @@ module LspRange =
 
 
 let incomingTests createServer =
-  serverTestList "IncomingTests" createServer defaultConfigDto (Some examples) (fun server -> [
+  serverTestList "IncomingTests" createServer defaultConfigDto (Some incomingExamples) (fun server -> [
       testCaseAsync "Example1" <| async {
         let! (aDoc, _) = Server.openDocument "Example1.fsx" server
         use aDoc = aDoc
@@ -91,6 +92,6 @@ let incomingTests createServer =
 
 
 let tests createServer =
-  ftestList "CallHierarchy" [
+  testList "CallHierarchy" [
     incomingTests createServer
   ]
diff --git a/....Lsp/TestCases/CallHierarchy/Example1.fsx → .../CallHierarchy/IncomingCalls/Example1.fsx b/....Lsp/TestCases/CallHierarchy/Example1.fsx → .../CallHierarchy/IncomingCalls/Example1.fsx