X-Git-Url: http://repo.macrolet.net/gitweb/?a=blobdiff_plain;f=tests%2Fthreads.pure.lisp;h=2623216c488fe8ab340317bac1901969cd4320bb;hb=ecfd159f29d31d2cc08d4e5598346c04c9387636;hp=ce0df2d9261d33c92f3d80e8242f609c978fe4f5;hpb=0a3d799b59df15a7fcd680182f88feda8704f261;p=sbcl.git

diff --git a/tests/threads.pure.lisp b/tests/threads.pure.lisp
index ce0df2d..2623216 100644
--- a/tests/threads.pure.lisp
+++ b/tests/threads.pure.lisp
@@ -506,3 +506,22 @@
       (join-thread value))
     (assert (and (null value)
                  error))))
+
+(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))))))
+
+(with-test (:name (:wait-for :deadline))
+  (assert (eq :ok
+              (sb-sys:with-deadline (:seconds 10)
+                (assert (not (sb-ext:wait-for nil :timeout 0.1)))
+                :ok)))
+  (assert (eq :deadline
+              (handler-case
+                  (sb-sys:with-deadline (:seconds 0.1)
+                    (sb-ext:wait-for nil :timeout 10)
+                    (error "oops"))
+                (sb-sys:deadline-timeout () :deadline)))))