[no subject]

[Ludovic Courtès]

branch: master
commit cfa4516619bb5ded4b713ca409a5c21b3909331b
Author: Ludovic Courtès <ludo@gnu.org>
AuthorDate: Sun Jul 9 23:38:51 2023 +0200

    tests: 'retry' uses (@ (fibers) sleep) when appropriate.
    
    * tests/common.scm (retry): Use (@ (fibers) sleep)
    when (current-scheduler) is true.
---
 tests/common.scm | 5 ++++-
 1 file changed, 4 insertions(+), 1 deletion(-)

diff --git a/tests/common.scm b/tests/common.scm
index 3d1e5df..0599320 100644
--- a/tests/common.scm
+++ b/tests/common.scm
@@ -20,6 +20,7 @@
   #:use-module (cuirass database)
   #:use-module (cuirass parameters)
   #:use-module (cuirass utils)
+  #:use-module ((fibers scheduler) #:select (current-scheduler))
   #:use-module (ice-9 popen)
   #:use-module (ice-9 rdelim)
   #:export (%db
@@ -46,7 +47,9 @@
         (if (>= attempt times)
             #f
             (begin
-              (sleep delay)
+              (if (current-scheduler)
+                  ((@ (fibers) sleep) delay)
+                  (sleep delay))
               (loop (+ 1 attempt)))))))))
 
 (define (test-init-db!)