[Guile-commits] 01/04: add test for setsockopt

[Mike Gran]

mike121 pushed a commit to branch master
in repository guile.

commit 54fe8e83d9ff718127a44e21e25607abaa0f5b1d
Author: Michael Gran <spk121@yahoo.com>
AuthorDate: Fri Jan 22 10:05:26 2021 -0800

    add test for setsockopt
    
    * test-suite/tests/00-socket.test (setsockopt AF_INET): new test
---
 test-suite/tests/00-socket.test | 11 +++++++++++
 1 file changed, 11 insertions(+)

diff --git a/test-suite/tests/00-socket.test b/test-suite/tests/00-socket.test
index 9d45109..f43f833 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'