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.

1 files 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