[gnunet-scheme] 192/324: tests/mq-stream: Recognise the 'input:regular-end-of-file' error.

[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 02ae2bd534927ddefc9cd0af86d25fed19ce6415
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Sat Aug 21 13:09:38 2021 +0200

    tests/mq-stream: Recognise the 'input:regular-end-of-file' error.
    
    This caused some backtraces, but no test failures.
    
    * tests/mq-stream.scm
      (connect/test): Ignore input:regular-end-of-file.
      (test-connection): Close the port to make the backtraces happen
      more consistently.
---
 tests/mq-stream.scm | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/tests/mq-stream.scm b/tests/mq-stream.scm
index 9d8e56e..dc1e015 100644
--- a/tests/mq-stream.scm
+++ b/tests/mq-stream.scm
@@ -265,6 +265,11 @@
 (define (connect/test config connected?)
   (define (error-handler . error)
     (match error
+      ;; The connection is closed by 'test-connection'.
+      ;; If 'test-connection' doesn't close the connection,
+      ;; then the GC would.  In both cases, this error would
+      ;; happen.
+      (('input:regular-end-of-file) (values))
       (('connection:connected) (signal-condition! connected?))))
   (connect/fibers config "service" no-handlers error-handler
                  #:spawn call-with-new-thread))
@@ -280,6 +285,7 @@
   (send-message! mq (bv-slice/read-write #vu8(0 4 0 0)))
   (let ((client (car (accept server-sock))))
     (assert (equal? #vu8(0 4 0 0) (get-bytevector-n client 4)))
+    (close-port client)
     #t))
 
 (define (yield-many)

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