lilyp pushed a commit to branch emacs-team
in repository guix.

commit 2fd5013dd1df39dec2a6e775ee3ef68295117b23
Author: Liliana Marie Prikler <liliana.prik...@gmail.com>
AuthorDate: Sun Mar 23 09:24:43 2025 +0100

    gnu: emacs-tide: Fix tests.
    
    * gnu/packages/emacs-xyz.scm (emacs-tide)[arguments]: Add #:test-command.
    <#:phases>: Add ‘set-home’, ‘skip-package-refresh’, and 
‘skip-failing-tests’.
    [native-inputs]: Add node.
---
 gnu/packages/emacs-xyz.scm | 21 +++++++++++++++++++++
 1 file changed, 21 insertions(+)

diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 809fd65ab7..3abf0515f6 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -16170,8 +16170,29 @@ indentation and filling of comments and C preprocessor 
fontification.")
                (base32
                 "01chyr71b8893jxgf4wncpskfmg9iwfpcaxq0vfc6yaij46yfhky"))))
     (build-system emacs-build-system)
+    (arguments (list #:test-command
+                     #~(list "emacs" "--batch" "-l" "tide-tests.el"
+                             "-f" "ert-run-tests-batch-and-exit")
+                     #:phases
+                     #~(modify-phases %standard-phases
+                         (add-before 'check 'set-home
+                           (lambda _
+                             (setenv "HOME" (getenv "TMPDIR"))))
+                         (add-before 'check 'skip-package-refresh
+                           (lambda _
+                             (emacs-batch-edit-file "tide-tests.el"
+                               '(progn (search-forward "dolist (p")
+                                       (beginning-of-line)
+                                       (kill-sexp)
+                                       (basic-save-buffer)))))
+                         (add-before 'check 'skip-failing-tests
+                           (lambda _
+                             (substitute* "tide-tests.el"
+                               (("tide-list-servers/.*" all)
+                                (string-append all " (skip-unless nil)"))))))))
     (propagated-inputs
      (list emacs-dash emacs-flycheck emacs-s emacs-typescript-mode))
+    (native-inputs (list node))
     (home-page "https://github.com/ananthakumaran/tide";)
     (synopsis "Typescript IDE for Emacs")
     (description

Reply via email to