1 files changed, 41 insertions, 0 deletions

diff --git a/LuaSL/testLua/luaprocTest1.lua b/LuaSL/testLua/luaprocTest1.lua
new file mode 100644
index 0000000..3fe4811
--- /dev/null
+++ b/LuaSL/testLua/luaprocTest1.lua
@@ -0,0 +1,41 @@
+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
+
+result, error_msg = luaproc.newproc( [=[
+
+    local count = 0
+
+-- Hmm, luajit 2 beta 9 crashes at about 8140, lua can go up to 50000 at least.
+    for i = 1, 8000 do
+        local channel = "channel" .. i
+--      local proc = 'print(luaproc.receive("channel' .. i .. '") .. " " .. ' .. i ..')'
+        local proc = 'luaproc.receive("' .. channel .. '")'
+
+--      print(channel .. "\n" .. proc)
+        result, error_msg = luaproc.newchannel(channel)
+        if not result then print(error_msg) end
+        result, error_msg = luaproc.newproc(proc)
+        if not result then print(error_msg) else count = count + 1 end
+    end
+
+    print("Started " .. count .. " Lua threads")
+
+    if 0 ~= count then
+        for i = 1, count do
+            result, error_msg = luaproc.send("channel" .. i, 'luaproc is working fine! ' .. i)
+            if not result then print(error_msg .. " " .. i) end
+        end
+    end
+]=] )
+if not result then print(error_msg .. " for main proc") end
+
+luaproc.exit()
+