[gnunet-scheme] 277/324: tests/network-size: Make ‘reconnects’ test reproducible.

[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 d0a98f08615ddba3a0583d41f38afdd4b76789a0
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Sun Sep 12 17:50:54 2021 +0200

    tests/network-size: Make ‘reconnects’ test reproducible.
    
    * tests/network-size.scm
      ("reconnects")[connected-again]: New variable.
      ("reconnects")[connected]: Signal new variable.
      ("reconnects"): Wait for new variable instead of sleeping.
---
 tests/network-size.scm | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/tests/network-size.scm b/tests/network-size.scm
index c7ce3f8..e3defd0 100644
--- a/tests/network-size.scm
+++ b/tests/network-size.scm
@@ -225,12 +225,15 @@
      (lambda (config spawn-fiber)
        (define disconnected? #f)
        (define connected? #f)
+       (define connected-again (make-condition))
        (define disconnect-count 0)
        (define (connected)
         (match (cons disconnected? connected?)
           ((#t . #f)
            (set! disconnected? #f)
            (set! connected? #t)
+           (when (= disconnect-count 9)
+             (signal-condition! connected-again))
            (values))
           ((#t . #t) (error "impossible"))
           ((#f . #f)
@@ -259,8 +262,10 @@
         (nse:connect config #:spawn spawn-fiber #:connected connected
                      #:disconnected disconnected))
        (wait done)
-       (sleep 0.01)
        (assert (not too-many?))
+       ;; We used to do (sleep 0.01) here but this was
+       ;; (rarely) insufficient.
+       (wait connected-again)
        (assert connected?)
        #t))))
 

-- 
To stop receiving notification emails like this one, please contact
gnunet@gnunet.org.