56 lines
1.2 KiB
Plaintext
56 lines
1.2 KiB
Plaintext
;; Function To Be Tested: sleep
|
|
;;
|
|
;; Source: Guy L Steele's CLTL Chapter 24: Miscellaneous Features
|
|
;; Section: 25.4.1 Time Functions
|
|
;; Page: 447
|
|
;;
|
|
;; Created By: John Park
|
|
;;
|
|
;; Creation Date: Aug 20,1986
|
|
;;
|
|
;; Last Update: April 24, 1987
|
|
;;
|
|
;; Filed As: {ERIS}<LISPCORE>CML>TEST>25-4-sleep.test
|
|
;;
|
|
;;
|
|
;; Syntax: (sleep n)
|
|
;;
|
|
;; Function Description: (sleep n) causes execution to cease and become dormant for
|
|
;; approximately n seconds of real time, whenupon execution is resumed. The argument
|
|
;; may be any non-negative non-complex number.
|
|
;;
|
|
;; Argument(s): none
|
|
;;
|
|
;; Returns: nil
|
|
;;
|
|
;; Constraints/Limitations: none
|
|
|
|
(do-test-group ("sleep-test-setup"
|
|
:before (progn
|
|
(setq before-internal-time (get-internal-real-time))
|
|
(sleep 7)
|
|
(setq after-internal-time (get-internal-real-time))
|
|
;; For AR #8543
|
|
(setq before-internal-time2 (get-internal-real-time))
|
|
(sleep 0.10)
|
|
(setq after-internal-time2 (get-internal-real-time))
|
|
)
|
|
)
|
|
(do-test "sleep-test"
|
|
(and(eq (sleep 1) nil)
|
|
(>= (abs(- after-internal-time before-internal-time)) 7000)
|
|
)
|
|
)
|
|
(do-test "AR8543-test"
|
|
(and(eq (sleep 0.10) nil)
|
|
(>= (abs(- after-internal-time2 before-internal-time2)) 100)
|
|
)
|
|
)
|
|
|
|
)
|
|
|
|
|
|
STOP
|
|
|
|
|