mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-04-30 03:40:34 +02:00
Code Activity

Disable test for current value of setitimer on Cygwin

Browse source 
* test-suite/tests/signals.test ("current itimers are 0"): throws unresolved
    for cygwin
This commit is contained in:
Michael Gran 2019-02-23 23:23:19 -08:00 • committed by Andy Wingo
parent 42bc255224
commit d4fd9adcac
1 changed files with 12 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

15
test-suite/tests/signals.test
View file

@ -1,6 +1,6 @@
;;;; signals.test --- test suite for Guile's signal functions -*- scheme -*- ;;;; 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 ;;;; This library is free software; you can redistribute it and/or
;;;; modify it under the terms of the GNU Lesser General Public ;;;; modify it under the terms of the GNU Lesser General Public
@ -37,14 +37,23 @@
(when (defined? 'setitimer) (when (defined? 'setitimer)
(with-test-prefix "setitimer" (with-test-prefix "setitimer"
(with-test-prefix "current itimers are 0" (with-test-prefix "current itimers are 0"
(pass-if "ITIMER_REAL" (pass-if "ITIMER_REAL"
(equal? (setitimer ITIMER_REAL 0 0 0 0) ;; setitimer may have already been called in other tests. For
'((0 . 0) (0 . 0)))) ;; 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" (pass-if "ITIMER_VIRTUAL"
(if (not (provided? 'ITIMER_VIRTUAL)) (if (not (provided? 'ITIMER_VIRTUAL))
(throw 'unsupported) (throw 'unsupported)
(equal? (setitimer ITIMER_VIRTUAL 0 0 0 0) (equal? (setitimer ITIMER_VIRTUAL 0 0 0 0)
'((0 . 0) (0 . 0))))) '((0 . 0) (0 . 0)))))
(pass-if "ITIMER_PROF" (pass-if "ITIMER_PROF"
(if (not (provided? 'ITIMER_PROF)) (if (not (provided? 'ITIMER_PROF))
(throw 'unsupported) (throw 'unsupported)