diff options
| author | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2023-01-28 15:51:05 +0100 |
|---|---|---|
| committer | Nicolas Goaziou <mail@nicolasgoaziou.fr> | 2023-01-28 15:51:05 +0100 |
| commit | 45542a0d5ed05ed8e4d0f699430ce90fa5fdaadc (patch) | |
| tree | 6d34615aa133479e5ea79125d568f783a12f74ba /gnu | |
| parent | 3c4b3206fcc4a747d231cb820f5cc4139e57d16a (diff) | |
gnu: emacs-org-cliplink: Fix randomly failing build.
* gnu/packages/emacs-xyz.scm (emacs-org-cliplink)[arguments]<#:phases>: Fix
a randomly failing test.
Diffstat (limited to 'gnu')
| -rw-r--r-- | gnu/packages/emacs-xyz.scm | 9 |
1 files changed, 8 insertions, 1 deletions
diff --git a/gnu/packages/emacs-xyz.scm b/gnu/packages/emacs-xyz.scm index a9810efab6..8052f2b3ba 100644 --- a/gnu/packages/emacs-xyz.scm +++ b/gnu/packages/emacs-xyz.scm @@ -35183,7 +35183,14 @@ the buffer you want to undo. An undo tree buffer should pop up.") (substitute* "org-cliplink-transport.el" (("\\(executable-find \"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 (list emacs-el-mock emacs-ert-runner emacs-undercover)) (inputs |