summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorLudovic Courtès <ludo@gnu.org>2016-10-05 14:30:32 +0200
committerNikos Mavrogiannopoulos <nmav@redhat.com>2016-10-06 08:49:54 +0200
commit404933526011ac5587b54c194195e1babce65dee (patch)
tree4ced81018e08c1727bbde536047dc8b748ac3e86
parent704351a31e68efc6aec5ac3c5e5b01be2ea8e5a4 (diff)
downloadgnutls-404933526011ac5587b54c194195e1babce65dee.tar.gz
guile: Test 'set-session-transport-fd!'.
* guile/tests/session-record-port.scm: Use 'set-session-transport-fd!' on the server side.
-rw-r--r--guile/tests/session-record-port.scm2
1 files changed, 1 insertions, 1 deletions
diff --git a/guile/tests/session-record-port.scm b/guile/tests/session-record-port.scm
index 0eafefafa7..8764d43655 100644
--- 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.