Bring all interesting fixes from the C++ implementation back into the C implementation

1 files changed, 58 insertions, 5 deletions

diff --git a/tests/keeper.lua b/tests/keeper.lua
index f8c915d..3333938 100644
--- a/tests/keeper.lua
+++ b/tests/keeper.lua
@@ -4,7 +4,34 @@
 -- Test program for Lua Lanes
 --
 
-local lanes = require "lanes".configure{ with_timers = false, nb_keepers = 200}
+local lanes = require "lanes".configure{ with_timers = false, nb_keepers = 1, keepers_gc_threshold = 500}
+
+do
+    print "Linda names test:"
+    local unnamedLinda = lanes.linda()
+    local unnamedLinda2 = lanes.linda("")
+    local veeeerrrryyyylooongNamedLinda= lanes.linda( "veeeerrrryyyylooongNamedLinda", 1)
+    print(unnamedLinda, unnamedLinda2, veeeerrrryyyylooongNamedLinda)
+    print "GC deadlock test start"
+    -- store a linda in another linda (-> in a keeper)
+    unnamedLinda:set("here", lanes.linda("temporary linda"))
+    -- repeatedly add and remove stuff in the linda so that a GC happens during the keeper operation
+    for i = 1, 1000 do
+        for j = 1, 1000 do -- send 1000 tables
+            unnamedLinda:send("here", {"a", "table", "with", "some", "stuff"})
+        end
+        unnamedLinda:set("here") -- clear everything
+    end
+end
+print "collecting garbage"
+collectgarbage()
+print "GC deadlock test done"
+
+local print_id = 0
+local PRINT = function(...)
+    print_id = print_id + 1
+    print("main", print_id .. ".", ...)
+end
 
 local function keeper(linda)
     local mt= {
@@ -25,23 +52,49 @@ local A= keeper( lindaA )
 local lindaB= lanes.linda( "B", 2)
 local B= keeper( lindaB )
 
+local lindaC= lanes.linda( "C", 3)
+local C= keeper( lindaC )
+print("Created", lindaA, lindaB, lindaC)
+
 A.some= 1
-print( A.some )
+PRINT("A.some == " .. A.some )
 assert( A.some==1 )
 
 B.some= "hoo"
+PRINT("B.some == " .. B.some )
 assert( B.some=="hoo" )
 assert( A.some==1 )
+assert( C.some==nil )
 
 function lane()
+    local print_id = 0
+    local PRINT = function(...)
+        print_id = print_id + 1
+        print("lane", print_id .. ".", ...)
+    end
+    
     local a= keeper(lindaA)
-    print( a.some )
+    PRINT("a.some == " .. a.some )
     assert( a.some==1 )
     a.some= 2
+    assert( a.some==2 )
+    PRINT("a.some == " .. a.some )
+
+    local c = keeper(lindaC)
+    assert( c.some==nil )
+    PRINT("c.some == " .. tostring(c.some))
+    c.some= 3
+    assert( c.some==3 )
+    PRINT("c.some == " .. c.some)
 end
 
+PRINT("lane started")
 local h= lanes.gen( "io", lane )()
-h:join()
+PRINT("lane joined:", h:join())
 
-print( A.some )     -- 2
+PRINT("A.some = " .. A.some )
 assert( A.some==2 )
+PRINT("C.some = " .. C.some )
+assert( C.some==3 )
+lindaC:set("some")
+assert( C.some==nil )
\ No newline at end of file