From 243b236bc184743953e7ba3730c9dd86f869bb31 Mon Sep 17 00:00:00 2001 From: Juho Snellman Date: Thu, 12 Apr 2012 17:10:25 +0200 Subject: [PATCH] Add workaround to a flaky semaphore timeout test. --- tests/threads.pure.lisp | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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))) -- 1.7.10.4