test/timertest.lua

   1 local core = require("luaevent.core")
   2
   3 c = core.new()
   4 local f = 100
   5 local function createEvent()
   6         return c:addevent(nil, core.EV_TIMEOUT, function(ev)
   7                 io.write(".." .. f)
   8                 f = f - 1
   9                 if f < 0 then
  10                         return -1
  11                 end
  12                 collectgarbage()
  13         end, 0.01)
  14 end
  15 ev = createEvent()
  16 print("TESTING Garbage-collect-safe version")
  17 c:loop()
  18 assert(f < 0, "DID NOT FINISH LOOPING")
  19 io.write("\n")
  20 print("TESTING Garbage-collect unsafe version")
  21 f = 100
  22 createEvent()
  23 c:loop()
  24 assert(f >= 0, "Did not perform expected collection")
  25 io.write("\n")
  26 print("Completed both tests")