Try to make test :deferrables-unblocked-by-lock more robust

[sbcl.git] / tests / threads.impure.lisp

diff --git a/tests/threads.impure.lisp b/tests/threads.impure.lisp
index 196261d..cf9c676 100644 (file)
--- a/tests/threads.impure.lisp
+++ b/tests/threads.impure.lisp
@@ -86,7 +86,7 @@
 
 (with-test (:name (:interrupt-thread :deferrables-unblocked-by-lock))
   (let ((lock (sb-thread::make-mutex))
-        (thread (make-kill-thread (lambda ()
+        (thread (make-join-thread (lambda ()
                                     (loop (sleep 1))))))
     (sb-thread::grab-mutex lock)
     (sb-thread:interrupt-thread thread
@@ -95,7 +95,7 @@
                                   (sb-thread::grab-mutex lock)
                                   (check-deferrables-unblocked-or-lose 0)
                                   (sb-thread:abort-thread)))
-    (sleep 1)
+    (sleep 3)
     (sb-thread::release-mutex lock)))
 
 ;;; compare-and-swap