summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorMichael Gran <spk121@yahoo.com>2019-02-23 23:23:19 -0800
committerAndy Wingo <wingo@pobox.com>2019-05-23 17:32:17 +0200
commitd4fd9adcacd7ff1955aaed5ce42b26b89678aa2a (patch)
tree899d273f458df317ff0796d7f9f577560dbf56c9
parent42bc25522441c10404ea1b8b1a78debd8e71c807 (diff)
downloadguile-d4fd9adcacd7ff1955aaed5ce42b26b89678aa2a.tar.gz
Disable test for current value of setitimer on Cygwin
* test-suite/tests/signals.test ("current itimers are 0"): throws unresolved for cygwin
-rw-r--r--test-suite/tests/signals.test15
1 files changed, 12 insertions, 3 deletions
diff --git a/test-suite/tests/signals.test b/test-suite/tests/signals.test
index ac730a91e..0b5570ae9 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)