Add integration tests

.github/workflows/build.yaml

@@ -8,7 +8,7 @@ jobs:
   build:
     strategy:
       matrix:
-        os: [ubuntu-22.04]
+        os: [ubuntu-24.04]
         dotnet: [8.0.300]
 
     runs-on: ${{ matrix.os }}

.github/workflows/test.yaml

@@ -9,7 +9,7 @@ jobs:
   build:
     strategy:
       matrix:
-        os: [windows-latest, ubuntu-22.04]
+        os: [windows-latest, ubuntu-24.04]
         dotnet: [8.0.300]
       fail-fast: false
 

src/CSharpLanguageServer/Lsp/Server.fs

@@ -52,7 +52,7 @@ type CSharpLspServer(
             System.Threading.TimerCallback(
                 fun _ -> do diagnostics.Post(ProcessPendingDiagnostics)
                          do stateActor.Post(PeriodicTimerTick)),
-            null, dueTime=1000, period=250))
+            null, dueTime=100, period=250))
 
     let mutable workspaceFolders: WorkspaceFolder list = []
 

src/CSharpLanguageServer/RoslynHelpers.fs

@@ -414,7 +414,7 @@ let tryLoadSolutionFromProjectFiles
                 >> Log.addContext "message" (diag.ToString())
             )
 
-        do! progress.End (sprintf "OK, %d project files loaded" projs.Length)
+        do! progress.End (sprintf "OK, %d project file(s) loaded" projs.Length)
 
         //workspace <- Some(msbuildWorkspace :> Workspace)
         return Some msbuildWorkspace.CurrentSolution

tests/CSharpLanguageServer.Tests/CSharpLanguageServer.Tests.fsproj

@@ -7,7 +7,9 @@
   </PropertyGroup>
 
   <ItemGroup>
+    <Compile Include="Tooling.fs" />
     <Compile Include="DocumentationTests.fs" />
+    <Compile Include="InitializationTests.fs" />
   </ItemGroup>
 
   <ItemGroup>

tests/CSharpLanguageServer.Tests/DocumentationTests.fs

@@ -1,3 +1,5 @@
+module CSharpLanguageServer.Tests.DocumentationTests
+
 open System
 
 open NUnit.Framework

tests/CSharpLanguageServer.Tests/InitializationTests.fs

@@ -0,0 +1,32 @@
+module CSharpLanguageServer.Tests.InitializationTests
+
+open NUnit.Framework
+
+open CSharpLanguageServer.Tests.Tooling
+
+[<TestCase>]
+let testServerRegistersCapabilitiesWithTheClient () =
+    let projectFiles =
+        Map.ofList [
+          ("Project/Project.csproj",
+           """<Project Sdk="Microsoft.NET.Sdk">
+                <PropertyGroup>
+                  <OutputType>Exe</OutputType>
+                  <TargetFramework>net8.0</TargetFramework>
+                </PropertyGroup>
+              </Project>
+           """);
+          ("Project/Class.cs",
+           """using System;
+              class Class
+              {
+              }
+           """
+          )
+        ]
+
+    use client = startAndMountServer projectFiles false
+    client.Start()
+    client.Initialize()
+    client.DumpRpcLog()
+    Assert.IsTrue(client.ServerDidInvoke("client/registerCapability"))