amaharaneko/guix-mirrors
1
1
Fork 0
mirror of https://codeberg.org/guix/guix.git synced 2025-10-02 02:15:12 +00:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: emacs-org-cliplink: Fix randomly failing build.

Browse source 
* gnu/packages/emacs-xyz.scm (emacs-org-cliplink)[arguments]<#:phases>: Fix
a randomly failing test.
This commit is contained in:
Nicolas Goaziou 2023-01-28 15:51:05 +01:00
parent 3c4b3206fc
commit 45542a0d5e
No known key found for this signature in database
GPG key ID: DA00B4F048E92F2D
1 changed files with 8 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

9
gnu/packages/emacs-xyz.scm
View file

@ -35183,7 +35183,14 @@ the buffer you want to undo. An undo tree buffer should pop up.")
(substitute* "org-cliplink-transport.el" (substitute* "org-cliplink-transport.el"
(("\\(executable-find \"curl\"\\)") (("\\(executable-find \"curl\"\\)")
(let ((curl (search-input-file inputs "/bin/curl"))) (let ((curl (search-input-file inputs "/bin/curl")))
(string-append "\"" curl "\""))))))))) (string-append "\"" curl "\""))))))
(add-before 'check 'fix-failing-test
;; XXX: Fix randomly (!) failing test, which doesn't account for
;; the fact that (random) may return a negative number.
(lambda _
(substitute* "test/org-cliplink-transport-test.el"
(("curl-rexim.me-\\[a-z0-9\\]\\+")
"curl-rexim.me--?[a-z0-9]+")))))))
(native-inputs (native-inputs
(list emacs-el-mock emacs-ert-runner emacs-undercover)) (list emacs-el-mock emacs-ert-runner emacs-undercover))
(inputs (inputs