mirror of
https://https.git.savannah.gnu.org/git/guix.git/
synced 2025-07-16 12:00:35 +02:00
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.
This commit is contained in:
parent
041b7318b3
commit
6c10897e40
1 changed files with 8 additions and 1 deletions
|
@ -8459,6 +8459,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
|
||||
|
@ -8467,9 +8468,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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue