1 files changed, 47 insertions, 0 deletions

diff --git a/tests/keeper.lua b/tests/keeper.lua
new file mode 100644
index 0000000..5c8c23a
--- /dev/null
+++ b/tests/keeper.lua
@@ -0,0 +1,47 @@
+--
+-- KEEPER.LUA
+--
+-- Test program for Lua Lanes
+--
+
+require "lanes"
+
+local function keeper(linda)
+    local mt= {
+        __index= function( _, key )
+            return linda:get( key )
+        end,
+        __newindex= function( _, key, val ) 
+            linda:set( key, val )
+        end
+    }
+    return setmetatable( {}, mt )
+end
+
+--
+local lindaA= lanes.linda()
+local A= keeper( lindaA )
+
+local lindaB= lanes.linda()
+local B= keeper( lindaB )
+
+A.some= 1
+print( A.some )
+assert( A.some==1 )
+
+B.some= "hoo"
+assert( B.some=="hoo" )
+assert( A.some==1 )
+
+function lane()
+    local a= keeper(lindaA)
+    print( a.some )
+    assert( a.some==1 )
+    a.some= 2
+end
+
+local h= lanes.gen( "io", lane )()
+h:join()
+
+print( A.some )     -- 2
+assert( A.some==2 )