[elpa] externals/eglot 9951dc5 62/69: Add a test for vscode-json-languageserver's completions

[João Távora]

branch: externals/eglot
commit 9951dc5861f1603c3309dee2679416a56c787b95
Author: Felicián Németh <address@hidden>
Commit: João Távora <address@hidden>

    Add a test for vscode-json-languageserver's completions
---
 eglot-tests.el | 22 ++++++++++++++++++++++
 1 file changed, 22 insertions(+)

diff --git a/eglot-tests.el b/eglot-tests.el
index 5984816..3d0d432 100644
--- a/eglot-tests.el
+++ b/eglot-tests.el
@@ -609,6 +609,28 @@ pyls prefers autopep over yafp, despite its README stating 
the contrary."
                                  (= severity 1))
                                diagnostics)))))))))
 
+(ert-deftest json-basic ()
+  "Test basic autocompletion in vscode-json-languageserver"
+  (skip-unless (executable-find "vscode-json-languageserver"))
+  (eglot--with-fixture
+   '(("project" .
+      (("p.json" . "{\"foo.b")
+       ("s.json" . "{\"properties\":{\"foo.bar\":{\"default\":\"fb\"}}}")
+       (".git" . nil))))
+   (with-current-buffer
+       (eglot--find-file-noselect "project/p.json")
+     (yas-minor-mode)
+     (goto-char 2)
+     (insert "\"$schema\": \"file://"
+             (file-name-directory buffer-file-name) "s.json\",")
+     (let ((eglot-server-programs
+            '((js-mode . ("vscode-json-languageserver" "--stdio")))))
+       (goto-char (point-max))
+       (should (eglot--tests-connect))
+       (completion-at-point)
+       (should (looking-back "\"foo.bar\": \""))
+       (should (looking-at "fb\"$"))))))
+
 (ert-deftest eglot-ensure ()
   "Test basic `eglot-ensure' functionality"
   (skip-unless (executable-find "pyls"))