1 #-sb-thread
(invoke-restart 'run-tests
::skip-file
)
3 ;; test that SLEEP actually sleeps for at least the given time, even
4 ;; if interrupted by another thread exiting/a gc/anything
5 (with-test (:name
(sleep :continue-sleeping-after-interrupt
))
6 (let ((start-time (get-universal-time)))
7 (make-join-thread (lambda () (sleep 1) (sb-ext:gc
:full t
)))
9 (assert (>= (get-universal-time) (+ 5 start-time
)))))
