[Guile-commits] 02/02: Disable test for current value of setitimer on Cygwin

[Mike Gran]

mike121 pushed a commit to branch stable-2.2
in repository guile.

commit 3a64c504caaf83e9faf2ec9b7d0e031e1a6a09b9
Author: Michael Gran <address@hidden>
Date:   Sat Feb 23 23:23:19 2019 -0800

    Disable test for current value of setitimer on Cygwin
    
    * test-suite/tests/signals.test ("current itimers are 0"): throws unresolved
        for cygwin
---
 test-suite/tests/signals.test | 15 ++++++++++++---
 1 file changed, 12 insertions(+), 3 deletions(-)

diff --git a/test-suite/tests/signals.test b/test-suite/tests/signals.test
index ac730a9..0b5570a 100644
--- a/test-suite/tests/signals.test
+++ b/test-suite/tests/signals.test
@@ -1,6 +1,6 @@
 ;;;; signals.test --- test suite for Guile's signal functions       -*- scheme 
-*-
 ;;;;
-;;;; Copyright (C) 2009, 2014, 2017 Free Software Foundation, Inc.
+;;;; Copyright (C) 2009, 2014, 2017, 2019 Free Software Foundation, Inc.
 ;;;;
 ;;;; This library is free software; you can redistribute it and/or
 ;;;; modify it under the terms of the GNU Lesser General Public
@@ -37,14 +37,23 @@
 (when (defined? 'setitimer)
   (with-test-prefix "setitimer"
     (with-test-prefix "current itimers are 0"
+
       (pass-if "ITIMER_REAL"
-        (equal? (setitimer ITIMER_REAL 0 0 0 0)
-                '((0 . 0) (0 . 0))))
+        ;; setitimer may have already been called in other tests.  For
+        ;; some versions of Cygwin, the return value of setitimer is
+        ;; invalid after an alarm has occurred.  See
+        ;; https://www.cygwin.com/ml/cygwin/2019-02/msg00395.html
+        (if (string-contains %host-type "cygwin")
+            (throw 'unresolved)
+            (equal? (setitimer ITIMER_REAL 0 0 0 0)
+                    '((0 . 0) (0 . 0)))))
+
       (pass-if "ITIMER_VIRTUAL"
         (if (not (provided? 'ITIMER_VIRTUAL))
             (throw 'unsupported)
             (equal? (setitimer ITIMER_VIRTUAL 0 0 0 0)
                     '((0 . 0) (0 . 0)))))
+
       (pass-if "ITIMER_PROF"
         (if (not (provided? 'ITIMER_PROF))
             (throw 'unsupported)