summaryrefslogtreecommitdiff
path: root/Build/source/texk/web2c/luatexdir/luasocket/test/utestsrvr.lua
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/texk/web2c/luatexdir/luasocket/test/utestsrvr.lua')
-rw-r--r--Build/source/texk/web2c/luatexdir/luasocket/test/utestsrvr.lua17
1 files changed, 17 insertions, 0 deletions
diff --git a/Build/source/texk/web2c/luatexdir/luasocket/test/utestsrvr.lua b/Build/source/texk/web2c/luatexdir/luasocket/test/utestsrvr.lua
new file mode 100644
index 00000000000..a96b570e1b9
--- /dev/null
+++ b/Build/source/texk/web2c/luatexdir/luasocket/test/utestsrvr.lua
@@ -0,0 +1,17 @@
+socket=require("socket");
+os.remove("/tmp/luasocket")
+socket.unix = require("socket.unix");
+host = host or "luasocket";
+server = assert(socket.unix())
+assert(server:bind(host))
+assert(server:listen(5))
+ack = "\n";
+while 1 do
+ print("server: waiting for client connection...");
+ control = assert(server:accept());
+ while 1 do
+ command = assert(control:receive());
+ assert(control:send(ack));
+ ((loadstring or load)(command))();
+ end
+end