[gnunet-scheme] 272/324: tests/network-size: Abstract configuration creation.

[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 86f4af5e150da4683d66900a95071f74ad4ca06d
Author: Maxime Devos <maximedevos@telenet.be>
AuthorDate: Sun Sep 12 16:06:56 2021 +0200

    tests/network-size: Abstract configuration creation.
    
    * tests/network-size.scm (make-nse-config): New procedure.
      ("close, not connected --> all fibers stop, no callbacks called"):
      Use new procedure.
---
 tests/network-size.scm | 12 +++++++++---
 1 file changed, 9 insertions(+), 3 deletions(-)

diff --git a/tests/network-size.scm b/tests/network-size.scm
index b24af10..1dafbc8 100644
--- a/tests/network-size.scm
+++ b/tests/network-size.scm
@@ -262,15 +262,21 @@
        (assert connected?)
        #t))))
 
+(define (make-nse-config where)
+  "Make a configuration where the socket location of the NSE service
+is @var{where}."
+  (define config (hash->configuration
+                 (rnrs:make-hashtable hash-key key=?)))
+  (set-value! identity config "nse" "UNIXPATH" where)
+  config)
+
 (test-assert "close, not connected --> all fibers stop, no callbacks called"
   (call-with-spawner/wait
    (lambda (spawn)
      (call-with-temporary-directory
       (lambda (somewhere)
        (define where (in-vicinity somewhere "sock.et"))
-       (define config (hash->configuration
-                       (rnrs:make-hashtable hash-key key=?)))
-       (set-value! identity config "nse" "UNIXPATH" where)
+       (define config (make-nse-config where))
        (define (#{don't-call-me}# . rest)
          (error "oops ~a" rest))
        (define server (nse:connect config #:spawn spawn

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