[elpa] externals/elpa b6519a5 16/71: Per #446: Add tests for eglot-server-programs

[João Távora]

branch: externals/elpa
commit b6519a5c1ba965bbb3b2853318b28da5e5faa811
Author: Dan Davison <dandavison7@gmail.com>
Commit: João Távora <joaotavora@gmail.com>

    Per #446: Add tests for eglot-server-programs
    
    The tests use eglot--guess-contact, since that is the only gateway to
    that variable's complex semantics.
    
    Co-authored-by: João Távora <joaotavora@gmail.com>
    
    * eglot-tests.el (eglot--guessing-contact): New helper.
    (eglot-server-programs-simple-executable): New test.
    (eglot-server-programs-executable-multiple-major-modes): New test.
    (eglot-server-programs-executable-with-arg): New test.
    (eglot-server-programs-executable-with-args-and-autoport): New test.
    (eglot-server-programs-host-and-port): New test.
    (eglot-server-programs-host-and-port-and-tcp-args): New test.
    (eglot-server-programs-class-name-and-plist): New test.
    (eglot-server-programs-class-name-and-contact-spec): New test.
    (eglot-server-programs-function): New test.
---
 eglot-tests.el | 80 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++
 1 file changed, 80 insertions(+)

diff --git a/eglot-tests.el b/eglot-tests.el
index f2a9b7f..48c3bfd 100644
--- a/eglot-tests.el
+++ b/eglot-tests.el
@@ -880,6 +880,86 @@ pyls prefers autopep over yafp, despite its README stating 
the contrary."
         (((CodeAction) title command)
          (list title command)))))))
 
+(cl-defmacro eglot--guessing-contact ((guessed-class-sym guessed-contact-sym)
+                                      &body body)
+  "Bind the result of `eglot--guess-contact' then evaluate BODY."
+  (declare (indent 1) (debug t))
+  `(let ((buffer-file-name "_"))
+     (cl-destructuring-bind
+         (_ _ ,guessed-class-sym ,guessed-contact-sym)
+         (eglot--guess-contact)
+       ,@body)))
+
+(ert-deftest eglot-server-programs-simple-executable ()
+  (let ((eglot-server-programs '((foo-mode "some-executable")))
+        (major-mode 'foo-mode))
+    (eglot--guessing-contact (guessed-class guessed-contact)
+      (should (equal guessed-class 'eglot-lsp-server))
+      (should (equal guessed-contact '("some-executable"))))))
+
+(ert-deftest eglot-server-programs-executable-multiple-major-modes ()
+  (let ((eglot-server-programs '(((bar-mode foo-mode) "some-executable")))
+        (major-mode 'foo-mode))
+    (eglot--guessing-contact (guessed-class guessed-contact)
+      (should (equal guessed-class 'eglot-lsp-server))
+      (should (equal guessed-contact '("some-executable"))))))
+
+(ert-deftest eglot-server-programs-executable-with-arg ()
+  (let ((eglot-server-programs '((foo-mode "some-executable" "arg1")))
+        (major-mode 'foo-mode))
+    (eglot--guessing-contact (guessed-class guessed-contact)
+      (should (equal guessed-class 'eglot-lsp-server))
+      (should (equal guessed-contact '("some-executable" "arg1"))))))
+
+(ert-deftest eglot-server-programs-executable-with-args-and-autoport ()
+  (let ((eglot-server-programs '((foo-mode "some-executable" "arg1"
+                                           :autoport "arg2")))
+        (major-mode 'foo-mode))
+    (eglot--guessing-contact (guessed-class guessed-contact)
+      (should (equal guessed-class 'eglot-lsp-server))
+      (should (equal guessed-contact '("some-executable" "arg1"
+                                       :autoport "arg2"))))))
+
+(ert-deftest eglot-server-programs-host-and-port ()
+  (let ((eglot-server-programs '((foo-mode "somehost.example.com" 7777)))
+        (major-mode 'foo-mode))
+    (eglot--guessing-contact (guessed-class guessed-contact)
+      (should (equal guessed-class 'eglot-lsp-server))
+      (should (equal guessed-contact '("somehost.example.com" 7777))))))
+
+(ert-deftest eglot-server-programs-host-and-port-and-tcp-args ()
+  (let ((eglot-server-programs '((foo-mode "somehost.example.com" 7777
+                                           :type network)))
+        (major-mode 'foo-mode))
+    (eglot--guessing-contact (guessed-class guessed-contact)
+      (should (equal guessed-class 'eglot-lsp-server))
+      (should (equal guessed-contact '("somehost.example.com" 7777
+                                       :type network))))))
+
+(ert-deftest eglot-server-programs-class-name-and-plist ()
+  (let ((eglot-server-programs '((foo-mode bar-class :init-key init-val)))
+        (major-mode 'foo-mode))
+    (eglot--guessing-contact (guessed-class guessed-contact)
+      (should (equal guessed-class 'bar-class))
+      (should (equal guessed-contact '(:init-key init-val))))))
+
+(ert-deftest eglot-server-programs-class-name-and-contact-spec ()
+  (let ((eglot-server-programs '((foo-mode bar-class "some-executable" "arg1"
+                                           :autoport "arg2")))
+        (major-mode 'foo-mode))
+    (eglot--guessing-contact (guessed-class guessed-contact)
+      (should (equal guessed-class 'bar-class))
+      (should (equal guessed-contact '("some-executable" "arg1"
+                                       :autoport "arg2"))))))
+
+(ert-deftest eglot-server-programs-function ()
+  (let ((eglot-server-programs '((foo-mode . (lambda (&optional _)
+                                               '("some-executable")))))
+        (major-mode 'foo-mode))
+    (eglot--guessing-contact (guessed-class guessed-contact)
+      (should (equal guessed-class 'eglot-lsp-server))
+      (should (equal guessed-contact '("some-executable"))))))
+
 (provide 'eglot-tests)
 ;;; eglot-tests.el ends here