/usr/share/scheme48-1.9/big/os-time-check.scm is in scheme48 1.9-5.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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)))))
|