diff options
| author | Michael Gran <spk121@yahoo.com> | 2019-02-23 23:23:19 -0800 |
|---|---|---|
| committer | Michael Gran <spk121@yahoo.com> | 2019-02-23 23:23:19 -0800 |
| commit | 3a64c504caaf83e9faf2ec9b7d0e031e1a6a09b9 (patch) | |
| tree | df9f3c6654e86a8a9109a62051007e3758629874 /test-suite | |
| parent | 2a3ccfb66714efc1c081ea6e921336f80b756d3c (diff) | |
Disable test for current value of setitimer on Cygwin
* test-suite/tests/signals.test ("current itimers are 0"): throws unresolved
for cygwin
Diffstat (limited to 'test-suite')
| -rw-r--r-- | test-suite/tests/signals.test | 15 |
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) |