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.
7 lines
256 B
Common Lisp
7 lines
256 B
Common Lisp
(with-test (:name (:wait-for :basics))
|
|
(assert (not (sb-ext:wait-for nil :timeout 0.1)))
|
|
(assert (eql 42 (sb-ext:wait-for 42)))
|
|
(let ((n 0))
|
|
(assert (eql 100 (sb-ext:wait-for (when (= 100 (incf n))
|
|
n))))))
|