summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/luatexdir/luasocket/test/tcp-getoptions
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/luatexdir/luasocket/test/tcp-getoptions')
-rwxr-xr-xBuild/source/texk/web2c/luatexdir/luasocket/test/tcp-getoptions41
1 files changed, 41 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/luatexdir/luasocket/test/tcp-getoptions b/Build/source/texk/web2c/luatexdir/luasocket/test/tcp-getoptions
new file mode 100755
index 00000000000..f9b3d1bb8a4
--- /dev/null
+++ b/Build/source/texk/web2c/luatexdir/luasocket/test/tcp-getoptions
@@ -0,0 +1,41 @@
+#!/usr/bin/env lua
+
+require"socket"
+
+port = 8765
+
+function options(o)
+ print("options for", o)
+
+ for _, opt in ipairs{"keepalive", "reuseaddr", "tcp-nodelay"} do
+ print("getoption", opt, o:getoption(opt))
+ end
+
+ print("getoption", "linger",
+ "on", o:getoption("linger").on,
+ "timeout", o:getoption("linger").timeout)
+end
+
+local m = socket.tcp()
+
+options(m)
+
+assert(m:bind("*", port))
+assert(m:listen())
+
+options(m)
+
+m:close()
+
+local m = socket.bind("*", port)
+
+options(m)
+
+local c = socket.connect("localhost", port)
+
+options(c)
+
+local s = m:accept()
+
+options(s)
+