02/02: gnu: guile-fibers: Skip some long tests on some architectures.

[guix-commits]

efraim pushed a commit to branch staging
in repository guix.

commit e19b3d4003f62e7f50e9cd3fbe3d49169b47329f
Author: Efraim Flashner <efraim@flashner.co.il>
AuthorDate: Fri Sep 23 09:10:33 2022 +0300

    gnu: guile-fibers: Skip some long tests on some architectures.
    
    * gnu/packages/guile-xyz.scm (guile-fibers-1.1)[arguments]: Add custom
    phase to skip some overly long tests.
---
 gnu/packages/guile-xyz.scm | 14 +++++++++++++-
 1 file changed, 13 insertions(+), 1 deletion(-)

diff --git a/gnu/packages/guile-xyz.scm b/gnu/packages/guile-xyz.scm
index 42b853f060..ca0999b622 100644
--- a/gnu/packages/guile-xyz.scm
+++ b/gnu/packages/guile-xyz.scm
@@ -620,7 +620,19 @@ Unix-style DSV format and RFC 4180 format.")
     (build-system gnu-build-system)
     (arguments
      (list #:make-flags
-           #~(list "GUILE_AUTO_COMPILE=0")))
+           #~(list "GUILE_AUTO_COMPILE=0")
+           #:phases
+           (if (target-x86-64?)
+             #~%standard-phases
+             #~(modify-phases %standard-phases
+                 (add-before 'check 'disable-some-tests
+                   (lambda _
+                     ;; This test can take more than an hour on some systems.
+                     (substitute* "tests/basic.scm"
+                       ((".*spawn-fiber loop-to-1e4.*") ""))
+                     ;; These tests can take more than an hour and/or segfault.
+                     (substitute* "Makefile"
+                       (("tests/speedup.scm") ""))))))))
     (native-inputs
      (list texinfo pkg-config autoconf automake libtool
            guile-3.0            ;for 'guild compile