4 files changed, 136 insertions, 1 deletions

diff --git a/LuaSL/testLua/luaprocTest0.lua b/LuaSL/testLua/luaprocTest0.lua
index 5868d6f..94a1d20 100644
--- a/LuaSL/testLua/luaprocTest0.lua
+++ b/LuaSL/testLua/luaprocTest0.lua
@@ -33,7 +33,12 @@ luaproc.createworker()
 luaproc.newproc( [=[
         luaproc.newchannel( "testchannel" )
         luaproc.newproc( "luaproc.send( 'testchannel', 'luaproc is working fine!' )" )
-        luaproc.newproc( "print( luaproc.receive( 'testchannel' ))" )
+        luaproc.newproc( "print(luaproc.receive( 'testchannel'))" )
+    print("End of parent proc")
 ]=] )
 
+print("About to luaproc.exit()!");
 luaproc.exit()
+print("Should have exited after the luaproc.exit()!");
+
+
diff --git a/LuaSL/testLua/luaprocTest0_C.lua b/LuaSL/testLua/luaprocTest0_C.lua
new file mode 100644
index 0000000..0dd6078
--- /dev/null
+++ b/LuaSL/testLua/luaprocTest0_C.lua
@@ -0,0 +1,37 @@
+----------------------------------------------------
+--
+-- Copyright 2008 Alexandre Skyrme, Noemi Rodriguez, Roberto Ierusalimschy
+-- 
+-- Permission is hereby granted, free of charge, to any person obtaining a copy
+-- of this software and associated documentation files (the "Software"), to deal
+-- in the Software without restriction, including without limitation the rights
+-- to use, copy, modify, merge, publish, distribute, sublicense, and/or sell
+-- copies of the Software, and to permit persons to whom the Software is
+-- furnished to do so, subject to the following conditions:
+-- 
+-- The above copyright notice and this permission notice shall be included in
+-- all copies or substantial portions of the Software.
+-- 
+-- THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+-- IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+-- FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT.  IN NO EVENT SHALL THE
+-- AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER
+-- LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM,
+-- OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN
+-- THE SOFTWARE.
+-- 
+-----------------------------------------------------
+--
+-- test.lua
+--
+-----------------------------------------------------
+
+luaproc.newproc( [=[
+        luaproc.newchannel( "testchannel" )
+        luaproc.newproc( "luaproc.send( 'testchannel', 'luaproc is working fine!' )" )
+        luaproc.newproc( "print(luaproc.receive( 'testchannel'))" )
+    print("End of parent proc")
+]=] )
+
+print("About to exit.");
+
diff --git a/LuaSL/testLua/luaprocTest1_C.lua b/LuaSL/testLua/luaprocTest1_C.lua
new file mode 100644
index 0000000..61cb461
--- /dev/null
+++ b/LuaSL/testLua/luaprocTest1_C.lua
@@ -0,0 +1,28 @@
+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
+
diff --git a/LuaSL/testLua/luaprocTest2_C.lua b/LuaSL/testLua/luaprocTest2_C.lua
new file mode 100644
index 0000000..e1a5a83
--- /dev/null
+++ b/LuaSL/testLua/luaprocTest2_C.lua
@@ -0,0 +1,65 @@
+count = 0
+
+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
+]=]
+
+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.")
+]=]
+
+for i = 1, 10 do
+    result, error_msg = luaproc.newproc(string.format(proc, i))
+    if not result then print(error_msg) else count = count + 1 end
+end
+
+print("Started " .. count .. " Lua threads.")
+
+result, error_msg = luaproc.newproc(string.format(mainProc, count))
+if not result then print(error_msg) end
+
+