mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-12 06:41:13 +02:00
Code Activity

Cygwin: skip tests that require working setrlimits for memory

Browse source 
On Cygwin, setrlimits cannot be used to set total memory availabe
for a process.

* test-suite/standalone/test-out-of-memory: skip for cygwin
* test-suite/standalone/test-stack-overflow: skip for cygwin
This commit is contained in:
Mike Gran 2017-03-03 09:44:10 -08:00
parent 6fff84d7d1
commit 24da8084ad
2 changed files with 17 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

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

@ -15,6 +15,14 @@ exec guile -q -s "$0" "$@"
;; See also test-stack-overflow. ;; See also test-stack-overflow.
(exit 77)) ; unresolved (exit 77)) ; unresolved
(when (string-contains-ci (vector-ref (uname) 0) "CYGWIN_NT")
;; attempting to use setrlimits for memory RLIMIT_AS will always
;; produce an invalid argument error on Cygwin (tested on
;; CYGWIN_NT-10.0 DLL v2.7.0). 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 (catch #t
;; Silence GC warnings. ;; Silence GC warnings.
(lambda () (lambda ()

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

@ -12,9 +12,17 @@ exec guile -q -s "$0" "$@"
(when (string-ci= "darwin" (vector-ref (uname) 0)) (when (string-ci= "darwin" (vector-ref (uname) 0))
;; setrlimits are ignored in OS X (tested on 10.9 and 10.10). Proceeding ;; 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. ;; with the test would fill all available memory and probably end in a crash.
;; See also test-stack-overflow. ;; See also test-out-of-memory.
(exit 77)) ; uresolved (exit 77)) ; uresolved
(when (string-contains-ci (vector-ref (uname) 0) "CYGWIN_NT")
;; attempting to use setrlimits for memory RLIMIT_AS will always
;; produce an invalid argument error on Cygwin (tested on
;; CYGWIN_NT-10.0 DLL v2.7.0). Proceeding with the test would fill
;; all available memory and probably end in a crash. See also
;; test-out-of-memory.
(exit 77)) ; unresolved
;; 100 MB. ;; 100 MB.
(define *limit* (* 100 1024 1024)) (define *limit* (* 100 1024 1024))