diff options
author | Michael Gran <spk121@yahoo.com> | 2021-01-22 10:05:26 -0800 |
---|---|---|
committer | Mike Gran <spk121@yahoo.com> | 2021-01-23 09:54:59 -0800 |
commit | 54fe8e83d9ff718127a44e21e25607abaa0f5b1d (patch) | |
tree | 6225752dfc128e4a42201a33dba69243a296c7cc | |
parent | 75b0db1a286f936a90683973efc2315a07c03b21 (diff) | |
download | guile-54fe8e83d9ff718127a44e21e25607abaa0f5b1d.tar.gz |
add test for setsockopt
* test-suite/tests/00-socket.test (setsockopt AF_INET): new test
-rw-r--r-- | test-suite/tests/00-socket.test | 11 |
1 files changed, 11 insertions, 0 deletions
diff --git a/test-suite/tests/00-socket.test b/test-suite/tests/00-socket.test index 9d4510924..f43f8332e 100644 --- a/test-suite/tests/00-socket.test +++ b/test-suite/tests/00-socket.test @@ -133,6 +133,17 @@ (and (= (sockaddr:fam sa) AF_UNIX) (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' |