lilyp pushed a commit to branch emacs-team
in repository guix.
commit d7e4bcb460d1653b1603aaa239dcfb271edb453d
Author: Liliana Marie Prikler <liliana.prik...@gmail.com>
AuthorDate: Sun Mar 16 17:52:51 2025 +0100
gnu: emacs-lsp-mode: Fix tests.
* gnu/packages/emacs-xyz.scm (emacs-lsp-mode)[arguments]: Add
#:test-command.
<#:phases>: Add ‘skip-failing-tests’ and ‘set-home’.
[native-inputs]: Add emacs-deferred, emacs-el-mock, and emacs-ert-runner.
---
gnu/packages/emacs-xyz.scm | 27 +++++++++++++++++++++++++++
1 file changed, 27 insertions(+)
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 0ad05abed8..85b09e8e82 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -33756,6 +33756,8 @@ the standard @code{Dockerfile} file format.")
(arguments
(list
#:emacs emacs ;need libxml support
+ #:test-command #~(list "ert-runner" "-L" "." "-L" "clients"
+ "-t" "!no-win" "-t" "!org")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'move-clients-libraries
@@ -33765,6 +33767,28 @@ the standard @code{Dockerfile} file format.")
(for-each (lambda (f)
(install-file f "."))
(find-files "clients/" "\\.el$"))))
+ (add-before 'check 'skip-failing-tests
+ (lambda _
+ (substitute* "test/lsp-common-test.el"
+ (("\\(require 'elenv" all)
+ (string-append all " nil t"))
+ (("\\(ert-deftest lsp--path-to-uri-1 .*" all)
+ (string-append all "(skip-unless (featurep 'elenv))"))
+ (("\\(ert-deftest lsp-byte-compilation-test .*" all)
+ (string-append all "(skip-unless nil)"))
+ (("\\(ert-deftest lsp--build-.*-response-test-[34] .*" all)
+ (string-append all "(skip-unless nil)")))
+ (substitute* "test/lsp-mode-test.el"
+ (("\\(ert-deftest lsp--merge-results .*" all)
+ (string-append all "(skip-unless nil)")))
+ (substitute* "test/lsp-integration-test.el"
+ (("\\(ert-deftest lsp-.*-hover-request(-tick)? .*" all)
+ (string-append all "(skip-unless nil)"))
+ (("\\(ert-deftest lsp-test-current-buffer-mode .*" all)
+ (string-append all "(skip-unless nil)")))
+ (delete-file "test/lsp-clangd-test.el")))
+ (add-before 'check 'set-home
+ (lambda _ (setenv "HOME" (getenv "TMPDIR"))))
(add-after 'unpack 'enable-plists
(lambda _
(substitute* "lsp-protocol.el"
@@ -33786,6 +33810,9 @@ the standard @code{Dockerfile} file format.")
emacs-hydra
emacs-markdown-mode
emacs-spinner))
+ (native-inputs (list emacs-deferred
+ emacs-el-mock
+ emacs-ert-runner))
(home-page "https://emacs-lsp.github.io/lsp-mode/";)
(synopsis "Emacs client and library for the Language Server Protocol")
(description
