me
/
guix
Archived
1
0
Fork 0
Code

gnu: guile: Skip 'test-stack-overflow'. 

* gnu/packages/guile.scm (guile-3.0)[arguments]: Add
'disable-stack-overflow-test' phase.
master
Ludovic Courtès 2021-07-07 18:59:46 +02:00
parent 145a5a5797
commit 285f3b58c6
No known key found for this signature in database
GPG Key ID: 090B11993D9AEBB5
1 changed files with 24 additions and 16 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
gnu/packages/guile.scm
View File

@ -324,9 +324,17 @@ without requiring the source code to be rewritten.")
`(cons "--disable-jit" ,flags) `(cons "--disable-jit" ,flags)
flags))) flags)))
((#:phases phases) ((#:phases phases)
(if (string-prefix? "powerpc-" (%current-system))
`(modify-phases ,phases `(modify-phases ,phases
(add-after 'unpack 'adjust-bootstrap-flags (add-before 'check 'disable-stack-overflow-test
(lambda _
;; This test can invoke the "OOM killer", especially when
;; running on emulated hardware (QEMU). Skip it.
(substitute* "test-suite/standalone/test-stack-overflow"
(("!#")
"!#\n(exit 77)\n"))))
,@(if (string-prefix? "powerpc-" (%current-system))
`((add-after 'unpack 'adjust-bootstrap-flags
(lambda _ (lambda _
;; Upstream knows about suggested solution. ;; Upstream knows about suggested solution.
;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=45214 ;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=45214
@ -339,7 +347,7 @@ without requiring the source code to be rewritten.")
(substitute* "test-suite/tests/ports.test" (substitute* "test-suite/tests/ports.test"
(("fdes not closed\"" all) (string-append all "(exit 77)"))) (("fdes not closed\"" all) (string-append all "(exit 77)")))
#t))) #t)))
phases)))) '())))))
(native-search-paths (native-search-paths
(list (search-path-specification (list (search-path-specification