From: Ludovic Courtès Date: Fri, 22 Apr 2011 14:18:14 +0000 (+0200) Subject: Increase the timeout of timing-sensitive thread tests. X-Git-Url: http://git.hcoop.net/bpt/guile.git/commitdiff_plain/ed756f7817005317eba674cd9b4bb3153e2d5e2e Increase the timeout of timing-sensitive thread tests. * test-suite/tests/threads.test ("timed locking succeeds if mutex unlocked within timeout", "timed unlocking returns #t if condition signaled", "timed joining succeeds if thread exits within timeout"): Increase the timeout. Reported by Dale P. Smith . --- diff --git a/test-suite/tests/threads.test b/test-suite/tests/threads.test index 2ffffb59b..1166247c4 100644 --- a/test-suite/tests/threads.test +++ b/test-suite/tests/threads.test @@ -1,6 +1,6 @@ ;;;; threads.test --- Tests for Guile threading. -*- scheme -*- ;;;; -;;;; Copyright 2003, 2006, 2007, 2009, 2010 Free Software Foundation, Inc. +;;;; Copyright 2003, 2006, 2007, 2009, 2010, 2011 Free Software Foundation, Inc. ;;;; ;;;; This library is free software; you can redistribute it and/or ;;;; modify it under the terms of the GNU Lesser General Public @@ -213,7 +213,7 @@ (signal-condition-variable c) (unlock-mutex cm) (lock-mutex m - (+ (current-time) 2)))))) + (+ (current-time) 5)))))) (lock-mutex m) (wait-condition-variable c cm) (unlock-mutex cm) @@ -257,7 +257,7 @@ (unlock-mutex m2 c2 (+ (current-time) - 2)))))) + 5)))))) (wait-condition-variable c1 m1) (unlock-mutex m1) (lock-mutex m2) @@ -292,7 +292,7 @@ (pass-if "timed joining succeeds if thread exits within timeout" (let ((t (begin-thread (begin (sleep 1) #t)))) - (join-thread t (+ (current-time) 2)))) + (join-thread t (+ (current-time) 5)))) (pass-if "asyncs are still working 1" (asyncs-still-working?))