/usr/share/scsh-0.6/scsh/time-procedure-calls.scm is in scsh-common-0.6 0.6.7-8.
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 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 | ;;; "Test" for the functions in section 3.10 of the scsh manual "time"
;;; "Test", because these are no real test - they just call the prozedures to check if they are implemented
;;; Author: Christoph Hetz
;; ,open define-record-types handle
;; ,config ,load C:/cygwin/home/mephisto/cvs_scsh/scsh/scsh/test/test-packages.scm
;; ,load C:/cygwin/home/mephisto/cvs_scsh/scsh/scsh/test/test-base.scm
;; load this file
;; (test-all)
;; *** tests ***
(add-test! 'time-ticks 'time
(lambda ()
(call-with-values
(lambda ()
(time+ticks))
(lambda (tme tcks)
(and (number? tme)
(number? tcks))))))
(add-test! 'ticks/sec 'time
(lambda ()
(real? (ticks/sec))))
(add-test! 'date 'time
(lambda ()
(date? (date))))
(add-test! 'time 'time
(lambda ()
(integer? (time))))
(add-test! 'date->string 'time
(lambda ()
(string? (date->string (date)))))
(add-test! 'format-date 'time
(lambda ()
(string? (format-date "~a ~A ~b ~B ~c ~d ~H ~I ~j ~m ~M ~p ~S ~U ~w ~W ~x ~X ~y ~Y ~Z"
(date)))))
;;; fill-in-date! is not implemented yet.
;(add-test! 'fill-in-date! 'time
; (lambda ()
; (date? (fill-in-date! (date)))))
|