lilyp pushed a commit to branch emacs-team
in repository guix.
commit 2486d0bdfc1cdef808f38faae1eed645e4285341
Author: Nicolas Graves <ngra...@ngraves.fr>
AuthorDate: Thu Mar 20 11:08:53 2025 +0100
gnu: emacs-racket-mode: Fix tests.
* gnu/packages/emacs-xyz.scm (emacs-racket-mode)
[arguments]{test-command}: Set it.
{phases}: Add phase 'pre-check and skip failing tests.
Signed-off-by: Liliana Marie Prikler <liliana.prik...@gmail.com>
---
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 d12eb01827..41f3671bb3 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -28539,7 +28539,18 @@ perform regression test for packages that provide
font-lock rules.")
(build-system emacs-build-system)
(arguments
(list
- #:include #~(list "\\.el$" "\\.rkt$")))
+ #:include #~(list "\\.el$" "\\.rkt$")
+ #:test-command #~(list "make" "test")
+ #:phases
+ #~(modify-phases %standard-phases
+ (add-before 'check 'pre-check
+ (lambda _
+ (setenv "HOME" (dirname (getcwd)))
+ (substitute* "test/racket-tests.el"
+ (("\\(ert-deftest racket-tests/(repl|run) .*" all)
+ (string-append all "(skip-unless nil)"))))))))
+ (native-inputs
+ (list racket))
(propagated-inputs
(list emacs-faceup emacs-paredit emacs-pos-tip emacs-s))
(home-page "https://www.racket-mode.com/";)
