From e19b3d4003f62e7f50e9cd3fbe3d49169b47329f Mon Sep 17 00:00:00 2001 From: Efraim Flashner Date: Fri, 23 Sep 2022 09:10:33 +0300 Subject: [PATCH] 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 @@ (define-public guile-fibers-1.1 (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