* tests/inetd.sh: Pass 'make-inetd-constructor' a list of endpoints. --- tests/inetd.sh | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-)
diff --git a/tests/inetd.sh b/tests/inetd.sh index ef18800..83037bf 100644 --- a/tests/inetd.sh +++ b/tests/inetd.sh @@ -42,15 +42,18 @@ cat > "$conf" <<EOF (make <service> #:provides '(test-inetd) #:start (make-inetd-constructor %command - (make-socket-address AF_INET - INADDR_LOOPBACK - $PORT)) + (list + (endpoint (make-socket-address + AF_INET + INADDR_LOOPBACK + $PORT)))) #:stop (make-inetd-destructor)) (make <service> #:provides '(test-inetd-unix) #:start (make-inetd-constructor %command - (make-socket-address AF_UNIX - "$service_socket") + (list + (endpoint (make-socket-address + AF_UNIX "$service_socket"))) #:max-connections 5) #:stop (make-inetd-destructor))) -- 2.36.0