From ad547a6b5986815fda458221149728d9d9ab1d87 Mon Sep 17 00:00:00 2001 From: Karl Berry Date: Thu, 25 Feb 2021 19:22:25 +0000 Subject: restore Build,TODO from r57911 git-svn-id: svn://tug.org/texlive/trunk@57915 c570f23f-e606-0410-a88d-b1316a301751 --- .../luatexdir/luasocket/test/test_socket_error.lua | 31 ++++++++++++++++++++++ 1 file changed, 31 insertions(+) create mode 100644 Build/source/texk/web2c/luatexdir/luasocket/test/test_socket_error.lua (limited to 'Build/source/texk/web2c/luatexdir/luasocket/test/test_socket_error.lua') 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) -- cgit v1.2.3