branch hurd-team updated: squash! gnu: guile: Skip hanging and failing pipe tests on the Hurd.

[guix-commits]

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

janneke pushed a commit to branch hurd-team
in repository guix.

The following commit(s) were added to refs/heads/hurd-team by this push:
     new 919e0c77b8 squash! gnu: guile: Skip hanging and failing pipe tests on 
the Hurd.
919e0c77b8 is described below

commit 919e0c77b8b5b958378ced50c56fabfca8f0e25c
Author: Janneke Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Tue Jul 18 22:34:06 2023 +0200

    squash! gnu: guile: Skip hanging and failing pipe tests on the Hurd.
---
 gnu/packages/guile.scm | 8 ++++++--
 1 file changed, 6 insertions(+), 2 deletions(-)

diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm
index 9aefead3b3..1d36e3ee2a 100644
--- a/gnu/packages/guile.scm
+++ b/gnu/packages/guile.scm
@@ -394,8 +394,12 @@ without requiring the source code to be rewritten.")
                         (lambda _
                           (substitute* "test-suite/tests/popen.test"
                             (("\\(pass-if \"no duplicate\".*" all)
-                             (string-append all "     (when (string-ci= 
\"GNU\" (vector-ref (uname) 0)) (throw 'unresolved))
-"))))))
+                             (string-append
+                              all
+                              (object->string
+                               '(when (string-ci= "GNU"
+                                                  (vector-ref (uname) 0))
+                                  (throw 'unresolved)))))))))
                    #~())
             #$@(if (target-ppc32?)
                    #~((add-after 'unpack 'adjust-bootstrap-flags