common-lisp/sbcl.sbcl
1
0
Fork 0
mirror of git://git.code.sf.net/p/sbcl/sbcl synced 2026-09-10 07:26:40 -04:00
Code Issues Actions 8 Packages Projects Releases Wiki Activity

Add more with-timeout in :semaphore-multiple-waiters.

Browse source
This commit is contained in:
Stas Boukarev 2021-10-01 23:16:16 +03:00
parent 600f65ea3a
commit 4b60a459b1
1 changed files with 9 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
tests/threads.pure.lisp
View file

@ -120,9 +120,10 @@
collect
(make-thread
(lambda ()
(let ((sem semaphore))
(dotimes (s i)
(wait-on-semaphore sem))))
(sb-ext:with-timeout 10
(let ((sem semaphore))
(dotimes (s i)
(wait-on-semaphore sem)))))
:name "reader"))
(* n i)))
(make-writers (n readers i)
@ -134,9 +135,10 @@
collect
(make-thread
(lambda ()
(let ((sem semaphore))
(dotimes (s k)
(signal-semaphore sem))))
(sb-ext:with-timeout 10
(let ((sem semaphore))
(dotimes (s k)
(signal-semaphore sem)))))
:name "writer"))))
(assert (zerop rem))
writers)
@ -153,7 +155,7 @@
(values)))))
(assert
(eq :ok
(sb-ext:with-timeout 10
(sb-ext:with-timeout 20
(test 1 1 100)
(test 2 2 10000)
(test 4 2 10000)