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

40
gnu/packages/guile.scm
View File

@ -324,22 +324,30 @@ without requiring the source code to be rewritten.")
`(cons "--disable-jit" ,flags)
flags)))
((#:phases phases)
(if (string-prefix? "powerpc-" (%current-system))
`(modify-phases ,phases
(add-after 'unpack 'adjust-bootstrap-flags
(lambda _
;; Upstream knows about suggested solution.
;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=45214
(substitute* "bootstrap/Makefile.in"
(("^GUILE_OPTIMIZATIONS.*")
"GUILE_OPTIMIZATIONS = -O1 -Oresolve-primitives -Ocps\n"))))
(add-after 'unpack 'skip-failing-fdes-test
(lambda _
;; ERROR: ((system-error "seek" "~A" ("Bad file descriptor") (9)))
(substitute* "test-suite/tests/ports.test"
(("fdes not closed\"" all) (string-append all "(exit 77)")))
#t)))
phases))))
`(modify-phases ,phases
(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 _
;; Upstream knows about suggested solution.
;; https://debbugs.gnu.org/cgi/bugreport.cgi?bug=45214
(substitute* "bootstrap/Makefile.in"
(("^GUILE_OPTIMIZATIONS.*")
"GUILE_OPTIMIZATIONS = -O1 -Oresolve-primitives -Ocps\n"))))
(add-after 'unpack 'skip-failing-fdes-test
(lambda _
;; ERROR: ((system-error "seek" "~A" ("Bad file descriptor") (9)))
(substitute* "test-suite/tests/ports.test"
(("fdes not closed\"" all) (string-append all "(exit 77)")))
#t)))
'())))))
(native-search-paths
(list (search-path-specification