[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[gnunet-scheme] 02/05: tests/mq-stream: Yield the current fiber, not the
From: |
gnunet |
Subject: |
[gnunet-scheme] 02/05: tests/mq-stream: Yield the current fiber, not the kernel-level thread. |
Date: |
Mon, 22 Aug 2022 22:17:53 +0200 |
This is an automated email from the git hooks/post-receive script.
maxime-devos pushed a commit to branch master
in repository gnunet-scheme.
commit b674d12cf6ca649948b4761e33f4bbd781cf54e2
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Mon Aug 22 21:36:30 2022 +0200
tests/mq-stream: Yield the current fiber, not the kernel-level thread.
This should increase the sensitivity of the tests a little.
* tests/mq-stream.scm (yield-many): Replace 'yield' by
'yield-current-task'.
---
tests/mq-stream.scm | 3 ++-
1 file changed, 2 insertions(+), 1 deletion(-)
diff --git a/tests/mq-stream.scm b/tests/mq-stream.scm
index c15443e..50b257a 100644
--- a/tests/mq-stream.scm
+++ b/tests/mq-stream.scm
@@ -26,6 +26,7 @@
(fibers conditions)
(fibers operations)
(fibers)
+ ((fibers scheduler) #:select (yield-current-task))
((rnrs arithmetic bitwise) #:select (bitwise-ior))
(rnrs bytevectors)
((rnrs io ports) #:select (open-bytevector-input-port))
@@ -307,7 +308,7 @@
;; This allowed a bug in the use of 'connect' to be detected.
(let loop ((n (* 8 (+ 1 (length (all-threads))))))
(when (> n 0)
- (yield)
+ (yield-current-task)
(loop (- n 1)))))
(test-assert "connect-unix, can connect when socket is already listening"
--
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.
- [gnunet-scheme] branch master updated (d5c2c78 -> 5d04749), gnunet, 2022/08/22
- [gnunet-scheme] 02/05: tests/mq-stream: Yield the current fiber, not the kernel-level thread.,
gnunet <=
- [gnunet-scheme] 03/05: mq/envelope: Allow testing if the envelope has been sent., gnunet, 2022/08/22
- [gnunet-scheme] 05/05: tests/utils: Allow changing fibers defaults in call-with-services/fibers., gnunet, 2022/08/22
- [gnunet-scheme] 01/05: cadet: Document open-channel!., gnunet, 2022/08/22
- [gnunet-scheme] 04/05: tests/cadet: Test the use of the 'allow-send' counter a bit., gnunet, 2022/08/22