mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
10 lines
421 B
Common Lisp
10 lines
421 B
Common Lisp
#-sb-thread (invoke-restart 'run-tests::skip-file)
|
|
|
|
;; test that SLEEP actually sleeps for at least the given time, even
|
|
;; if interrupted by another thread exiting/a gc/anything
|
|
(with-test (:name (sleep :continue-sleeping-after-interrupt))
|
|
(let ((start-time (get-universal-time)))
|
|
(make-join-thread (lambda () (sleep 1) (sb-ext:gc :full t)))
|
|
(sleep 5)
|
|
(assert (>= (get-universal-time) (+ 5 start-time)))))
|