@@ -824,16 +824,27 @@ (define-public guile-fibers
#~(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") ""))))))))
+ #~%standard-phases
+ #~(modify-phases %standard-phases
+ (add-before 'check 'disable-some-tests
+ (lambda _
+ (substitute* "tests/basic.scm"
+ ;; This test can take more than an hour on some systems.
+ ((".*spawn-fiber loop-to-1e4.*") "")
+ ;; This test has issues on aarch64 systems. It passes
+ ;; on an Apple M1, but takes a very long time on a
+ ;; Hetzner aarch64 VM.
+ ((".*spawn-fiber-chain 5000000.*") ""))
+
+ (substitute* "tests/channels.scm"
+ ;; This test has issues on aarch64 systems. It passes
+ ;; on an Apple M1, but raises exceptions on a Hetzner
+ ;; aarch64 VM.
+ ((".*assert-run-fibers-terminates .*pingpong.*") ""))
+
+ ;; These tests can take more than an hour and/or segfault.
+ (substitute* "Makefile"
+ (("tests/speedup.scm") ""))))))))
(native-inputs
(list texinfo pkg-config autoconf-2.71 automake libtool
guile-3.0 ;for 'guild compile