1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-05-06 23:50:18 +02:00
guile/test-suite/tests/signals.test
Andy Wingo 966d4bdd70 Fix setitimer documentation. Allow microseconds >= 1e6.
* doc/ref/posix.texi (Signals): Fix the documentation for setitimer; it
  was wrong.

* libguile/scmsigs.c (pack_tv): New helper.  Allow usecs >= 1e6.
  (unpack_tv): New helper.
  (scm_setitimer): Use the new helpers.

* test-suite/tests/signals.test: Add setitimer tests.
2014-02-28 10:31:12 +01:00

70 lines
2.8 KiB
Scheme

;;;; signals.test --- test suite for Guile's signal functions -*- scheme -*-
;;;;
;;;; Copyright (C) 2009, 2014 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
;;;; License as published by the Free Software Foundation; either
;;;; version 3 of the License, or (at your option) any later version.
;;;;
;;;; This library is distributed in the hope that it will be useful,
;;;; but WITHOUT ANY WARRANTY; without even the implied warranty of
;;;; MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
;;;; Lesser General Public License for more details.
;;;;
;;;; You should have received a copy of the GNU Lesser General Public
;;;; License along with this library; if not, write to the Free
;;;; Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
;;;; Boston, MA 02110-1301 USA
(define-module (test-suite test-signals)
#:use-module (ice-9 match)
#:use-module (test-suite lib))
(with-test-prefix "sigaction"
(pass-if-exception "handler arg is an invalid integer"
exception:out-of-range
(sigaction SIGINT 51))
)
(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))))
(pass-if "ITIMER_VIRTUAL"
(equal? (setitimer ITIMER_VIRTUAL 0 0 0 0)
'((0 . 0) (0 . 0))))
(pass-if "ITIMER_PROF"
(equal? (setitimer ITIMER_PROF 0 0 0 0)
'((0 . 0) (0 . 0)))))
(with-test-prefix "setting values correctly"
(pass-if "initial setting"
(equal? (setitimer ITIMER_PROF 1 0 3 0)
'((0 . 0) (0 . 0))))
(pass-if "reset to zero"
(match (setitimer ITIMER_PROF 0 0 0 0)
(((1 . 0) (val-secs . val-usecs))
;; We don't presume that the timer is strictly lower than the
;; value at which we set it, given its limited internal
;; precision. Assert instead that the timer is between 2 and
;; 3.5 seconds.
(<= #e2e6 (+ (* val-secs #e1e6) val-usecs) #e3.5e6)))))
(with-test-prefix "usecs > 1e6"
(pass-if "initial setting"
(equal? (setitimer ITIMER_PROF 1 0 0 #e3e6)
'((0 . 0) (0 . 0))))
(pass-if "reset to zero"
(match (setitimer ITIMER_PROF 0 0 0 0)
(((1 . 0) (val-secs . val-usecs))
;; We don't presume that the timer is strictly lower than the
;; value at which we set it, given its limited internal
;; precision. Assert instead that the timer is between 2 and
;; 3.5 seconds.
(and (<= #e2e6 (+ (* val-secs #e1e6) val-usecs) #e3.5e6)
(<= 0 val-usecs 999999))))))))