summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/luatexdir/luasocket/test/test_socket_error.lua
diff options
context:
space:
mode:
authorKarl Berry <karl@freefriends.org>2021-02-25 19:22:25 +0000
committerKarl Berry <karl@freefriends.org>2021-02-25 19:22:25 +0000
commitad547a6b5986815fda458221149728d9d9ab1d87 (patch)
tree16296910eb3eca724371474ea9aea3994dc69614 /Build/source/texk/web2c/luatexdir/luasocket/test/test_socket_error.lua
parent947b43de3dd21d58ccc2ffadefc4441ea1c2a813 (diff)
restore Build,TODO from r57911
git-svn-id: svn://tug.org/texlive/trunk@57915 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/web2c/luatexdir/luasocket/test/test_socket_error.lua')
-rw-r--r--Build/source/texk/web2c/luatexdir/luasocket/test/test_socket_error.lua31
1 files changed, 31 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/luatexdir/luasocket/test/test_socket_error.lua b/Build/source/texk/web2c/luatexdir/luasocket/test/test_socket_error.lua
new file mode 100644
index 00000000000..bda64081d07
--- /dev/null
+++ b/Build/source/texk/web2c/luatexdir/luasocket/test/test_socket_error.lua
@@ -0,0 +1,31 @@
+local socket = require "socket"
+
+local host, port = "127.0.0.1", "5462"
+
+assert(socket.bind(host, port)):close()
+
+local sock = socket.tcp()
+sock:settimeout(0)
+
+local ok, err = sock:connect(host, port)
+assert(not ok)
+assert('timeout' == err)
+
+for i = 1, 10 do
+ -- select pass even if socket has error
+ local _, rec, err = socket.select(nil, {sock}, 1)
+ local _, ss = next(rec)
+ if ss then
+ assert(ss == sock)
+ else
+ assert('timeout' == err, 'unexpected error :' .. tostring(err))
+ end
+ err = sock:getoption("error") -- i get 'connection refused' on WinXP
+ if err then
+ print("Passed! Error is '" .. err .. "'.")
+ os.exit(0)
+ end
+end
+
+print("Fail! No error detected!")
+os.exit(1)