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

2 files changed, 17 insertions, 1 deletions

diff --git a/test-suite/standalone/test-out-of-memory b/test-suite/standalone/test-out-of-memory
index bda42cb44..95692d6ea 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 74bc7b874..7229661c9 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))