guix_mirror_bot pushed a commit to branch emacs-team
in repository guix.
commit 7758ebd4473628f6829e4622dd7635054efc6eaf
Author: Liliana Marie Prikler <[email protected]>
AuthorDate: Sun Mar 23 11:47:20 2025 +0100
gnu: emacs-rg: Fix tests.
* gnu/packages/emacs-xyz.scm (emacs-rg)[arguments]: Add #:test-command.
<#:phases>: Add ‘skip-failing-tests’.
[native-inputs]: Add emacs-ert-runner.
---
gnu/packages/emacs-xyz.scm | 9 ++++++++-
1 file changed, 8 insertions(+), 1 deletion(-)
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm
index 769920e082..56ff647684 100644
--- a/gnu/packages/emacs-xyz.scm
+++ b/gnu/packages/emacs-xyz.scm
@@ -8433,6 +8433,7 @@ result.")
(build-system emacs-build-system)
(arguments
(list
+ #:test-command #~(list "ert-runner" "--pattern" "rg-unit")
#:phases
#~(modify-phases %standard-phases
(add-after 'unpack 'remove-rg-path
@@ -8441,9 +8442,15 @@ result.")
(let ((file "rg.el"))
(make-file-writable file)
(emacs-substitute-sexps file
- ("(defcustom rg-executable" "rg"))))))))
+ ("(defcustom rg-executable" "rg")))))
+ (add-before 'check 'skip-failing-tests
+ (lambda _
+ (substitute* "test/rg-isearch.el-test.el"
+ (("\\(ert-deftest rg-unit/isearch-project.*" all)
+ (string-append all " (skip-unless nil)"))))))))
(propagated-inputs
(list emacs-s emacs-wgrep ripgrep))
+ (native-inputs (list emacs-ert-runner))
(home-page "https://rgel.readthedocs.io/en/latest/";)
(synopsis "Search tool based on @code{ripgrep}")
(description
