mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-20 11:40:18 +02:00
Code Activity

On Darwin, skip tests that depend on setrlimit

Browse source 
On Darwin, setrlimit is ignored, and these tests do not terminate. There
doesn't seem to be another way to limit the memory allocated by a
process.

* test-suite/standalone/test-stack-overflow: Skip this test on Darwin.
* test-suite/standalone/test-out-of-memory: Skip this test on Darwin.
This commit is contained in:
Daniel Llorens 2016-06-24 16:31:45 +02:00
parent bd65845497
commit 9687334ff5
2 changed files with 13 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

6
test-suite/standalone/test-out-of-memory
View file

@ -9,6 +9,12 @@ exec guile -q -s "$0" "$@"
;; should run as part of an automated test suite.
(exit 0))
(when (string-ci= "darwin" (vector-ref (uname) 0))
;; setrlimits are ignored in OS X (tested on 10.9 and 10.10). Proceeding
;; with the test would fill all available memory and probably end in a crash.
;; See also test-stack-overflow.
(exit 77)) ; unresolved
(catch #t
;; Silence GC warnings.
(lambda ()

7
test-suite/standalone/test-stack-overflow
View file

@ -9,6 +9,12 @@ exec guile -q -s "$0" "$@"
;; something we should run as part of an automated test suite.
(exit 0))
(when (string-ci= "darwin" (vector-ref (uname) 0))
;; setrlimits are ignored in OS X (tested on 10.9 and 10.10). Proceeding
;; with the test would fill all available memory and probably end in a crash.
;; See also test-stack-overflow.
(exit 77)) ; uresolved
;; 100 MB.
(define *limit* (* 100 1024 1024))
@ -28,6 +34,7 @@ exec guile -q -s "$0" "$@"
;; Run the test a few times. The stack will only be enlarged and
;; relocated on the first one.
(test)
(test)
(test)