37/84: gnu: guile: Skip hanging and failing pipe tests on the Hurd.

[guix-commits]

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

commit 85551775324e1d27bb7ce0dea73ae3f8aa6768b9
Author: Janneke Nieuwenhuizen <janneke@gnu.org>
AuthorDate: Wed May 31 11:18:32 2023 +0200

    gnu: guile: Skip hanging and failing pipe tests on the Hurd.
    
    * gnu/packages/guile.scm (guile-3.0)[arguments]: When building on the Hurd,
    add stage 'disable-popen.test-open-pipe' to avoid running the
    open-input-pipe test (hangs) and open-output-pipe test (fails.
---
 gnu/packages/guile.scm | 11 ++++++++++-
 1 file changed, 10 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/guile.scm b/gnu/packages/guile.scm
index 322eda1fc8..ad0619bb49 100644
--- a/gnu/packages/guile.scm
+++ b/gnu/packages/guile.scm
@@ -4,7 +4,7 @@
 ;;; Copyright © 2014, 2016, 2018 David Thompson <davet@gnu.org>
 ;;; Copyright © 2014, 2017, 2018 Mark H Weaver <mhw@netris.org>
 ;;; Copyright © 2015, 2017 Christine Lemmer-Webber <cwebber@dustycloud.org>
-;;; Copyright © 2016 Jan Nieuwenhuizen <janneke@gnu.org>
+;;; Copyright © 2016, 2023 Janneke Nieuwenhuizen <janneke@gnu.org>
 ;;; Copyright © 2016, 2017 Leo Famulari <leo@famulari.name>
 ;;; Copyright © 2016, 2019, 2020 Ricardo Wurmus <rekado@elephly.net>
 ;;; Copyright © 2017 Andy Wingo <wingo@igalia.com>
@@ -379,6 +379,15 @@ without requiring the source code to be rewritten.")
                                (search-patch "guile-hurd-posix-spawn.patch")))
                           (invoke "patch" "--force" "-p1" "-i" patch))))
                    #~())
+            #$@(if (hurd-system?)
+                   #~((add-after 'unpack 'disable-popen.test-no-duplicate
+                        ;; This test hangs on the Hurd.
+                        (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))
+"))))))
+                   #~())
             #$@(if (target-ppc32?)
                    #~((add-after 'unpack 'adjust-bootstrap-flags
                         (lambda _