[gnunet-scheme] 02/04: tests/cadet: Fix book-keeping of the number of acknowledgements.

[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 64607ac34b331305abd7f448b37ecc7463957fd5
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Thu Aug 25 19:41:52 2022 +0200

    tests/cadet: Fix book-keeping of the number of acknowledgements.
    
    This avoids a false positive in later revisions of the test.
    
    * tests/cadet.scm
    ("data is properly sent in response to acknowledgements, in-order"):
    Increment total-acknowledgements according to n-new-acknowledgements
    instead of n-new-messages.
---
 tests/cadet.scm | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/tests/cadet.scm b/tests/cadet.scm
index fc614f1..1878f14 100644
--- a/tests/cadet.scm
+++ b/tests/cadet.scm
@@ -332,14 +332,14 @@
           (match remaining
             ((#(n-new-messages n-new-acknowledgements) . remaining)
              (put-message server-channel n-new-acknowledgements)
+             (set! total-acknowledgements/non-atomic
+                   (+ n-new-acknowledgements 
total-acknowledgements/non-atomic))
+             ;; Memory order: release
+             (atomic-box-set! total-acknowledgements 
total-acknowledgements/non-atomic)
              (let loop2 ((k 0))
                (cond ((< k n-new-messages)
-                      (set! total-acknowledgements/non-atomic
-                            (+ 1 total-acknowledgements/non-atomic))
                       (set! n-added/non-atomic (+ 1 n-added/non-atomic))
                       ;; Memory order: release
-                      (atomic-box-set! total-acknowledgements 
total-acknowledgements/non-atomic)
-                      ;; Memory order: release
                       (atomic-box-set! n-added n-added/non-atomic)
                       (send-message! message-queue message
                                      #:notify-sent!

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