summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/luatexdir/luasocket/test/udpconnectclnt.lua
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/luatexdir/luasocket/test/udpconnectclnt.lua')
-rw-r--r--Build/source/texk/web2c/luatexdir/luasocket/test/udpconnectclnt.lua19
1 files changed, 19 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/luatexdir/luasocket/test/udpconnectclnt.lua b/Build/source/texk/web2c/luatexdir/luasocket/test/udpconnectclnt.lua
new file mode 100644
index 00000000000..ad6ab6a459d
--- /dev/null
+++ b/Build/source/texk/web2c/luatexdir/luasocket/test/udpconnectclnt.lua
@@ -0,0 +1,19 @@
+local socket = require"socket"
+local udp = socket.udp
+local localhost = "127.0.0.1"
+local port = assert(arg[1], "missing port argument")
+
+se = udp(); se:setoption("reuseaddr", true)
+se:setsockname(localhost, 5062)
+print("se", se:getsockname())
+sc = udp(); sc:setoption("reuseaddr", true)
+sc:setsockname(localhost, 5061)
+print("sc", sc:getsockname())
+
+se:sendto("this is a test from se", localhost, port)
+socket.sleep(1)
+sc:sendto("this is a test from sc", localhost, port)
+socket.sleep(1)
+se:sendto("this is a test from se", localhost, port)
+socket.sleep(1)
+sc:sendto("this is a test from sc", localhost, port)