test: add showDocumentCapabilities

to make sure we can use all these features ps-id: f9f12c10-f20b-492b-8d66-af1d54c0fa9a
jfeser · Aug 17, 2022 · f2c8aa3 · f2c8aa3
1 parent b63b33d
commit f2c8aa3
Show file tree

Hide file tree

Showing 3 changed files with 42 additions and 4 deletions.
diff --git a/ocaml-lsp-server/test/e2e-new/code_actions.ml b/ocaml-lsp-server/test/e2e-new/code_actions.ml
@@ -9,7 +9,15 @@ let foo = 123
   in
   ( Test.run ~handler @@ fun client ->
     let run_client () =
-      let capabilities = ClientCapabilities.create () in
+      let capabilities =
+        let window =
+          let showDocument =
+            ShowDocumentClientCapabilities.create ~support:true
+          in
+          WindowClientCapabilities.create ~showDocument ()
+        in
+        ClientCapabilities.create ~window ()
+      in
       Client.start client (InitializeParams.create ~capabilities ())
     in
     let run =
@@ -73,4 +81,16 @@ let foo = 123
       "isPreferred": false,
       "kind": "type-annotate",
       "title": "Type-annotate"
+    }
+    {
+      "command": {
+        "arguments": [ "file:///foo.mli" ],
+        "command": "ocamllsp/open-related-source",
+        "title": "Create foo.mli"
+      },
+      "edit": {
+        "documentChanges": [ { "kind": "create", "uri": "file:///foo.mli" } ]
+      },
+      "kind": "switch",
+      "title": "Create foo.mli"
     } |}]
diff --git a/ocaml-lsp-server/test/e2e-new/start_stop.ml b/ocaml-lsp-server/test/e2e-new/start_stop.ml
@@ -3,7 +3,15 @@ open Test.Import
 let%expect_test "start/stop" =
   ( Test.run @@ fun client ->
     let run_client () =
-      let capabilities = ClientCapabilities.create () in
+      let capabilities =
+        let window =
+          let showDocument =
+            ShowDocumentClientCapabilities.create ~support:true
+          in
+          WindowClientCapabilities.create ~showDocument ()
+        in
+        ClientCapabilities.create ~window ()
+      in
       Client.start client (InitializeParams.create ~capabilities ())
     in
     let print_init =
@@ -42,7 +50,12 @@ let%expect_test "start/stop" =
           "documentFormattingProvider": true,
           "documentHighlightProvider": true,
           "documentSymbolProvider": true,
-          "executeCommandProvider": { "commands": [ "dune/promote" ] },
+          "executeCommandProvider": {
+            "commands": [
+              "ocamllsp/view-metrics", "ocamllsp/open-related-source",
+              "dune/promote"
+            ]
+          },
           "experimental": {
             "ocamllsp": {
               "interfaceSpecificLangId": true,

diff --git a/ocaml-lsp-server/test/e2e/__tests__/textDocument-codeAction.test.ts b/ocaml-lsp-server/test/e2e/__tests__/textDocument-codeAction.test.ts
@@ -65,7 +65,12 @@ describe("textDocument/codeAction", () => {
 
   beforeEach(async () => {
     languageServer = await LanguageServer.startAndInitialize({
-      capabilities: { experimental: { jumpToNextHole: true } },
+      capabilities: {
+        experimental: { jumpToNextHole: true },
+        window: {
+          showDocument: { support: true },
+        },
+      },
     });
   });