lilyp pushed a commit to branch emacs-team
in repository guix.
commit c57c6a56f7fa816a6897eae0d6895340e9f416b8
Author: Liliana Marie Prikler <liliana.prik...@gmail.com>
AuthorDate: Sun Mar 23 10:52:15 2025 +0100
gnu: emacs-telega: Fix tests.
* gnu/packages/emacs-xyz.scm (emacs-telega)[arguments]: Add #:test-command.
<#:phases>: Move ‘check’ after ‘install’.
Add ‘set-home’ and ‘skip-ensure-dependencies’.
---
gnu/packages/emacs-xyz.scm | 13 ++++++++++++-
1 file changed, 12 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index df8acbfca4..ccafc7e737 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -38539,6 +38539,7 @@ service, and connect it with Emacs via inter-process
communication.")
emacs-minimal
;; Require wide-int support for 32-bit platform.
emacs-wide-int)
+ #:test-command #~(list "make" "test_el")
#:include #~(cons "^etc\\/" %default-include)
#:phases
#~(modify-phases %standard-phases
@@ -38571,7 +38572,17 @@ service, and connect it with Emacs via inter-process
communication.")
(substitute* "telega-core.el"
(("@TELEGA_SHARE@")
(string-append (elpa-directory (assoc-ref outputs "out"))
- "/etc"))))))))
+ "/etc")))))
+ (delete 'check)
+ (add-after 'install 'check (assoc-ref %standard-phases 'check))
+ (add-before 'check 'set-home
+ (lambda _
+ (setenv "HOME" (getenv "TMPDIR"))))
+ (add-before 'check 'skip-ensure-dependencies
+ (lambda _
+ (substitute* "etc/telega-make.el"
+ (("\\(telega-ensure-dependencies\\)" all)
+ (string-append ";; " all))))))))
(inputs
(list emacs-telega-server ffmpeg tgs2png))
(native-inputs '())
