ryan77627/guix
1
0
Fork 0
mirror of https://git.in.rschanz.org/ryan77627/guix.git synced 2025-01-01 00:52:55 -05:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: guile-fibers: Disable failing tests on aarch64.

Browse source 
* gnu/packages/guile-xyz.scm (guile-fibers)[arguments]: In
‘disable-some-tests’ phase, disable failing tests on aarch64.

Change-Id: Id05b516a659f641cc7ef01efdaf6cd1f2c735800
Co-authored-by: Ludovic Courtès <ludo@gnu.org>
This commit is contained in:
Roman Scherer 2024-01-17 20:48:36 +01:00 committed by Ludovic Courtès
parent f8e0e5274f
commit 8bee6bb9aa
No known key found for this signature in database
GPG key ID: 090B11993D9AEBB5
1 changed files with 20 additions and 10 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

30
gnu/packages/guile-xyz.scm
View file

@ -824,16 +824,26 @@ (define-public guile-fibers
#~(list "GUILE_AUTO_COMPILE=0") #~(list "GUILE_AUTO_COMPILE=0")
#:phases #:phases
(if (target-x86-64?) (if (target-x86-64?)
#~%standard-phases #~%standard-phases
#~(modify-phases %standard-phases #~(modify-phases %standard-phases
(add-before 'check 'disable-some-tests (add-before 'check 'disable-some-tests
(lambda _ (lambda _
;; This test can take more than an hour on some systems. ;; This test can take more than an hour on some systems.
(substitute* "tests/basic.scm" (substitute* "tests/basic.scm"
((".*spawn-fiber loop-to-1e4.*") "")) ((".*spawn-fiber loop-to-1e4.*") ""))
;; These tests can take more than an hour and/or segfault.
(substitute* "Makefile" ;; These tests can take more than an hour and/or segfault.
(("tests/speedup.scm") "")))))))) (substitute* "Makefile"
(("tests/speedup.scm") ""))
(when #$(target-aarch64?)
;; The tests below have issues on aarch64 systems.
;; They pass on an Apple M1 but take a very long time
;; on a Hetzner aarch64 VM. Skip them.
(substitute* "tests/basic.scm"
((".*spawn-fiber-chain 5000000.*") ""))
(substitute* "tests/channels.scm"
((".*assert-run-fibers-terminates .*pingpong.*") "")))))))))
(native-inputs (native-inputs
(list texinfo pkg-config autoconf-2.71 automake libtool (list texinfo pkg-config autoconf-2.71 automake libtool
guile-3.0 ;for 'guild compile guile-3.0 ;for 'guild compile