branch master updated: gnu: emacs-org-cliplink: Fix randomly failing build.

[guix-commits]

This is an automated email from the git hooks/post-receive script.

ngz pushed a commit to branch master
in repository guix.

The following commit(s) were added to refs/heads/master by this push:
     new 45542a0d5e gnu: emacs-org-cliplink: Fix randomly failing build.
45542a0d5e is described below

commit 45542a0d5ed05ed8e4d0f699430ce90fa5fdaadc
Author: Nicolas Goaziou <mail@nicolasgoaziou.fr>
AuthorDate: Sat Jan 28 15:51:05 2023 +0100

    gnu: emacs-org-cliplink: Fix randomly failing build.
    
    * gnu/packages/emacs-xyz.scm (emacs-org-cliplink)[arguments]<#:phases>: Fix
    a randomly failing test.
---
 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 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