1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
|
; Part of Scheme 48 1.9. See file COPYING for notices and license.
; Authors: Michael Zabka
; ,config ,load scheme/big/os-time-check.scm
; (define-test-suite all-tests (os-time-tests))
; (run-test-suite all-tests)
(define-test-suite os-time-tests)
(define-test-case time/1 os-time-tests
(let ((current-time (current-utc-time)))
(check (and (time? current-time)
(number? (time-seconds current-time))
(number? (time-microseconds current-time))
(<= 0 (time-microseconds current-time) (expt 10 6))))))
(define-test-case timezone-offset os-time-tests
(let ((current-offset (timezone-offset)))
(check (and (number? current-offset)
(<= -43200 current-offset 50400)))))
|
