~ruther/guix-local: gnu: guile-fibers: Skip some long tests on some architectures.

e19b3d4003f62e7f50e9cd3fbe3d49169b47329f — Efraim Flashner 3 years ago d169ae7

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.

patch browse .tar.gz

1 files changed, 13 insertions(+), 1 deletions(-)

M gnu/packages/guile-xyz.scm

M gnu/packages/guile-xyz.scm => gnu/packages/guile-xyz.scm +13 -1

@@ 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