diff options
author | Ludovic Courtès <ludo@gnu.org> | 2013-06-28 00:39:35 +0200 |
---|---|---|
committer | Ludovic Courtès <ludo@gnu.org> | 2013-06-28 00:43:35 +0200 |
commit | b6a71a3194a76dfd5e335e46e602048a1e9b1b5c (patch) | |
tree | ce14c5b8f25735c2e2e053412fea1d1c8049431d /guile | |
parent | 014a0fe142a4d0def694e9e6184962eda4034a4d (diff) | |
download | gnutls-b6a71a3194a76dfd5e335e46e602048a1e9b1b5c.tar.gz |
guile: tests: Use `port->fdes' rather than `fileno'.
This has no practical impact, but it's a better way to express that we
don't want the file descriptors closed behind our back.
Diffstat (limited to 'guile')
-rw-r--r-- | guile/tests/anonymous-auth.scm | 6 | ||||
-rw-r--r-- | guile/tests/openpgp-auth.scm | 6 | ||||
-rw-r--r-- | guile/tests/x509-auth.scm | 6 |
3 files changed, 9 insertions, 9 deletions
diff --git a/guile/tests/anonymous-auth.scm b/guile/tests/anonymous-auth.scm index 53c8ce0cbb..ded0c63c0b 100644 --- a/guile/tests/anonymous-auth.scm +++ b/guile/tests/anonymous-auth.scm @@ -1,5 +1,5 @@ ;;; GnuTLS --- Guile bindings for GnuTLS. -;;; Copyright (C) 2007-2012 Free Software Foundation, Inc. +;;; Copyright (C) 2007-2013 Free Software Foundation, Inc. ;;; ;;; GnuTLS is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU Lesser General Public @@ -61,7 +61,7 @@ ;; client-side (child process) (set-session-priorities! client priorities) - (set-session-transport-fd! client (fileno (car socket-pair))) + (set-session-transport-fd! client (port->fdes (car socket-pair))) (set-session-credentials! client (make-anonymous-client-credentials)) (set-session-dh-prime-bits! client 1024) @@ -75,7 +75,7 @@ ;; server-side (set-session-priorities! server priorities) - (set-session-transport-fd! server (fileno (cdr socket-pair))) + (set-session-transport-fd! server (port->fdes (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. diff --git a/guile/tests/openpgp-auth.scm b/guile/tests/openpgp-auth.scm index d4f242efb2..286a0e3873 100644 --- a/guile/tests/openpgp-auth.scm +++ b/guile/tests/openpgp-auth.scm @@ -1,5 +1,5 @@ ;;; GnuTLS-extra --- Guile bindings for GnuTLS-EXTRA. -;;; Copyright (C) 2007-2012 Free Software Foundation, Inc. +;;; Copyright (C) 2007-2013 Free Software Foundation, Inc. ;;; ;;; GnuTLS-extra is free software; you can redistribute it and/or modify ;;; it under the terms of the GNU General Public License as published by @@ -78,7 +78,7 @@ (set-session-credentials! client cred) (set-session-dh-prime-bits! client 1024) - (set-session-transport-fd! client (fileno (car socket-pair))) + (set-session-transport-fd! client (port->fdes (car socket-pair))) (handshake client) (write %message (session-record-port client)) @@ -94,7 +94,7 @@ (set-server-session-certificate-request! server certificate-request/require) - (set-session-transport-fd! server (fileno (cdr socket-pair))) + (set-session-transport-fd! server (port->fdes (cdr socket-pair))) (let ((cred (make-certificate-credentials))) (set-certificate-credentials-dh-parameters! cred dh) (set-certificate-credentials-rsa-export-parameters! cred rsa) diff --git a/guile/tests/x509-auth.scm b/guile/tests/x509-auth.scm index 52fd6592ce..1a00790bc6 100644 --- a/guile/tests/x509-auth.scm +++ b/guile/tests/x509-auth.scm @@ -1,5 +1,5 @@ ;;; GnuTLS --- Guile bindings for GnuTLS. -;;; Copyright (C) 2007-2012 Free Software Foundation, Inc. +;;; Copyright (C) 2007-2013 Free Software Foundation, Inc. ;;; ;;; GnuTLS is free software; you can redistribute it and/or ;;; modify it under the terms of the GNU Lesser General Public @@ -87,7 +87,7 @@ (set-session-credentials! client cred) (set-session-dh-prime-bits! client 1024) - (set-session-transport-fd! client (fileno (car socket-pair))) + (set-session-transport-fd! client (port->fdes (car socket-pair))) (handshake client) (write %message (session-record-port client)) @@ -108,7 +108,7 @@ (set-server-session-certificate-request! server certificate-request/require) - (set-session-transport-fd! server (fileno (cdr socket-pair))) + (set-session-transport-fd! server (port->fdes (cdr socket-pair))) (let ((cred (make-certificate-credentials)) (trust-file (search-path %load-path "x509-certificate.pem")) |