[gnunet-scheme] 02/05: tests/mq-stream: Yield the current fiber, not the kernel-level thread.

[gnunet]

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.