guile: Test 'set-session-transport-fd!'.

* guile/tests/session-record-port.scm: Use 'set-session-transport-fd!'
on the server side.

diff --git a/guile/tests/session-record-port.scm b/guile/tests/session-record-port.scm
index 0eafefafa7261f717a41fb911bc00e6798fbd6ce..8764d436553bdf0e6473906780bcad1d12d49957 100644 (file)
--- a/guile/tests/session-record-port.scm
+++ b/guile/tests/session-record-port.scm
@@ -83,7 +83,7 @@
        (let ((server (make-session connection-end/server)))
          (set-session-priorities! server priorities)
 
-         (set-session-transport-port! server (cdr socket-pair))
+         (set-session-transport-fd! server (fileno (cdr socket-pair)))
          (let ((cred (make-anonymous-server-credentials))
                (dh-params (import-dh-params "dh-parameters.pem")))
            ;; Note: DH parameter generation can take some time.