mirror of
git://git.code.sf.net/p/sbcl/sbcl
synced 2026-09-10 07:26:40 -04:00
eb1370a4c1
With the exception of a failing files that I haven't tested, each file completes in under 55 seconds. Given ~200 machines, the whole suite finishes in that time. And fwiw the passing files leave no temporary junk in the source tree.
9 lines
235 B
Common Lisp
9 lines
235 B
Common Lisp
(with-test (:name (:with-timeout :dead-thread) :skipped-on (not :sb-thread))
|
|
(make-join-thread
|
|
(lambda ()
|
|
(let ((timer (make-timer (lambda ()))))
|
|
(schedule-timer timer 3)
|
|
(assert t))))
|
|
(sleep 6)
|
|
(assert t))
|