From: Juho Snellman <jsnell@iki.fi>
Date: Thu, 12 Apr 2012 15:10:25 +0000 (+0200)
Subject: Add workaround to a flaky semaphore timeout test.
X-Git-Url: http://repo.macrolet.net/gitweb/?a=commitdiff_plain;h=243b236bc184743953e7ba3730c9dd86f869bb31;p=sbcl.git

Add workaround to a flaky semaphore timeout test.
---

diff --git a/tests/threads.pure.lisp b/tests/threads.pure.lisp
index 5d72bd9..717fb36 100644
--- a/tests/threads.pure.lisp
+++ b/tests/threads.pure.lisp
@@ -471,7 +471,7 @@
                    collect (make-thread
                             (lambda ()
                               (sleep (random 0.02))
-                              (wait-on-semaphore sem :timeout 0.01)))))))
+                              (wait-on-semaphore sem :timeout 0.5)))))))
     (loop repeat 5
           do (signal-semaphore sem 2))
     (let ((ok (count-if #'join-thread threads)))