mirror/guile
mirror/guile
1
Fork 0
mirror of https://git.savannah.gnu.org/git/guile.git synced 2025-06-13 23:20:32 +02:00
Code Activity

add test for setsockopt

Browse source 
* test-suite/tests/00-socket.test (setsockopt AF_INET): new test
This commit is contained in:
Michael Gran 2021-01-22 10:05:26 -08:00 • committed by Mike Gran
parent 75b0db1a28
commit 54fe8e83d9
1 changed files with 11 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

11
test-suite/tests/00-socket.test
View file

@ -133,6 +133,17 @@
(and (= (sockaddr:fam sa) AF_UNIX) (and (= (sockaddr:fam sa) AF_UNIX)
(string=? (sockaddr:path sa) "/tmp/unix-socket")))))) (string=? (sockaddr:path sa) "/tmp/unix-socket"))))))
;;;
;;; setsockopt
;;;
(with-test-prefix "setsockopt AF_INET"
(if (and (defined? 'AF_INET) (defined? 'TCP_NODELAY))
(pass-if "IPPROTO_TCP TCP_NODELAY"
(let ((sock (socket AF_INET SOCK_STREAM 0)))
(setsockopt sock IPPROTO_TCP TCP_NODELAY 1)
(eqv? 1 (getsockopt sock IPPROTO_TCP TCP_NODELAY))))))
;;; ;;;
;;; AF_UNIX sockets and `make-socket-address' ;;; AF_UNIX sockets and `make-socket-address'