[Guile-commits] 01/01: Cygwin: skip tests that require working setrlimits for memory

[Mike Gran]

mike121 pushed a commit to branch master
in repository guile.

commit 24da8084addc311a9213a04590619cc925585a95
Author: Mike Gran <address@hidden>
Date:   Fri Mar 3 09:44:10 2017 -0800

    Cygwin: skip tests that require working setrlimits for memory
    
    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
---
 test-suite/standalone/test-out-of-memory  |  8 ++++++++
 test-suite/standalone/test-stack-overflow | 10 +++++++++-
 2 files changed, 17 insertions(+), 1 deletion(-)

diff --git a/test-suite/standalone/test-out-of-memory 
b/test-suite/standalone/test-out-of-memory
index bda42cb..95692d6 100755
--- a/test-suite/standalone/test-out-of-memory
+++ b/test-suite/standalone/test-out-of-memory
@@ -15,6 +15,14 @@ exec guile -q -s "$0" "$@"
   ;; See also test-stack-overflow.
   (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
   ;; Silence GC warnings.
   (lambda ()
diff --git a/test-suite/standalone/test-stack-overflow 
b/test-suite/standalone/test-stack-overflow
index 74bc7b8..7229661 100755
--- a/test-suite/standalone/test-stack-overflow
+++ b/test-suite/standalone/test-stack-overflow
@@ -12,9 +12,17 @@ exec guile -q -s "$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.
+  ;; See also test-out-of-memory.
   (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.
 (define *limit* (* 100 1024 1024))