mirror/guix
1
0
Fork 0
mirror of https://git.savannah.gnu.org/git/guix.git synced 2025-01-20 14:47:20 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

gnu: guile-2.0: Skip failing tests on the Hurd.

Browse source 
* gnu/packages/guile.scm (guile-2.0)[arguments]: When building natively on the
Hurd, add stage 'disable-threads.tests'...
(guile-2.2): ...and when building natively on the Hurd, delete it again.
This commit is contained in:
Janneke Nieuwenhuizen 2023-06-13 18:50:22 +02:00
parent 1005911343
commit c4c08775a8
No known key found for this signature in database
GPG key ID: F3C1A0D9C1D65273
1 changed files with 13 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
gnu/packages/guile.scm
View file

@ -212,8 +212,13 @@ (define-public guile-2.0
(rename-file "test-suite/tests/srfi-18.test" "srfi-18.test")
;; failed to remove 't-guild-compile-7215.go.tdL7yC
(substitute* "test-suite/standalone/Makefile.in"
(("test-guild-compile ") ""))
#t)))
(("test-guild-compile ") "")))))
'())
,@(if (system-hurd?)
'((add-after 'unpack 'disable-threads.tests
(lambda _
;; Many tests hang, esp. (join-thread ..), also others.
(rename-file "test-suite/tests/threads.test" "threads.test"))))
'())
(add-before 'configure 'pre-configure
(lambda* (#:key inputs #:allow-other-keys)
@ -286,7 +291,12 @@ (define-public guile-2.2
(if (target-x86-32?) ;<https://issues.guix.gnu.org/49368>
`(append '("--disable-static")
'("CFLAGS=-g -O2 -fexcess-precision=standard"))
flags))))
flags))
((#:phases phases '%standard-phases)
#~(modify-phases #$phases
#$@(if (system-hurd?)
#~((delete 'disable-threads.tests))
'())))))
(properties '((timeout . 72000) ;20 hours
(max-silent-time . 36000))) ;10 hours (needed on ARM