Some test Lua scripts for luaproc and LuaJIT.

1 files changed, 80 insertions, 0 deletions

diff --git a/LuaSL/testLua/luaprocTest2.lua b/LuaSL/testLua/luaprocTest2.lua
new file mode 100644
index 0000000..7814e42
--- /dev/null
+++ b/LuaSL/testLua/luaprocTest2.lua
@@ -0,0 +1,80 @@
+require "luaproc"
+
+result, error_msg = luaproc.createworker()
+if not result then print(error_msg) end
+result, error_msg = luaproc.createworker()
+if not result then print(error_msg) end
+result, error_msg = luaproc.createworker()
+if not result then print(error_msg) end
+result, error_msg = luaproc.createworker()
+if not result then print(error_msg) end
+
+count = 0
+
+for i = 1, 10 do
+    local proc = [=[
+        require "string"
+        local channel = "channel%d"
+        local message
+
+        result, error_msg = luaproc.newchannel(channel)
+        if not result then print(error_msg) end
+        repeat
+            message = luaproc.receive(channel)
+            local x, y = string.find(message, "@")
+            if not x then
+            x, y = string.find(message, "@")
+            x, y = string.find(message, "@")
+            x, y = string.find(message, "@")
+            x, y = string.find(message, "@")
+            x, y = string.find(message, "@")
+            x, y = string.find(message, "@")
+            x, y = string.find(message, "@")
+            x, y = string.find(message, "@")
+            end
+        until "quit" == message
+    ]=]
+
+    proc = string.format(proc, i)
+--    print(proc)
+    result, error_msg = luaproc.newproc(proc)
+    if not result then print(error_msg) else count = count + 1 end
+end
+
+print("Started " .. count .. " Lua threads.")
+
+mainProc = [=[
+    local count = %d
+    local messages = 0
+    local length = 0
+    local message = "This is a test message. 56789 12"
+
+    if 0 ~= count then
+        for k = 0, 16 do
+            for j = 0, 199 do
+                for i = 1, count do
+                    result, error_msg = luaproc.send("channel" .. i, message)
+                    if not result then print(error_msg .. " " .. i) else
+                        messages = messages + 1
+                        length = length + #message
+                    end
+                end
+            end
+        message = message .. message
+    end
+
+    for i = 1, count do
+        result, error_msg = luaproc.send("channel" .. i, "quit")
+        if not result then print(error_msg .. " " .. i) end
+        end
+    end
+
+    print("Sent " .. messages .. " messages totalling " .. length .. " bytes.  The largest message was " .. #message .. " bytes.")
+]=]
+
+mainProc = string.format(mainProc, count)
+result, error_msg = luaproc.newproc(mainProc)
+if not result then print(error_msg) end
+
+luaproc.exit()
+