[gnunet-scheme] 14/16: cadet/client: Handle 'reconnect!!'.

[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 05f59de615be4b028e523d69c7f18099643827c8
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Sun Jul 24 12:02:54 2022 +0200

    cadet/client: Handle 'reconnect!!'.
    
    * gnu/gnunet/cadet/client.scm (reconnect)[control*]{reconnect!}:
      New case.
    * tests/cadet.scm ("(CADET) reconnects"): Unskip now passing test.
---
 gnu/gnunet/cadet/client.scm | 4 ++++
 tests/cadet.scm             | 1 -
 2 files changed, 4 insertions(+), 1 deletion(-)

diff --git a/gnu/gnunet/cadet/client.scm b/gnu/gnunet/cadet/client.scm
index 9b95aab..f5c9df0 100644
--- a/gnu/gnunet/cadet/client.scm
+++ b/gnu/gnunet/cadet/client.scm
@@ -162,6 +162,10 @@
           (close-queue! mq)
           ;; And the fibers of the <server> object are now done!
           (values))
+         (('reconnect!)
+          ;; Restart the loop with a new message queue.
+          ;; TODO: deduplicate with (gnu gnunet dht client)
+          (reconnect config terminal-condition control-channel connected 
disconnected spawn lost-and-found))
          (('open-channel! channel)
           (let* ((channel-number next-free-channel-number)
                  ;; TODO: handle overflow, and respect bounds
diff --git a/tests/cadet.scm b/tests/cadet.scm
index bf26514..046f52b 100644
--- a/tests/cadet.scm
+++ b/tests/cadet.scm
@@ -43,7 +43,6 @@
 (test-assert "(CADET) notify disconnected after end-of-file, after 'connected'"
             (disconnect-after-eof-after-connected "cadet" connect))
 
-(test-skip 1) ; TODO: handle resend-old-operations!
 (test-assert "(CADET) reconnects"
             (reconnects "cadet" connect))
 

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