local bytes_last = 0

function testMemory()
     -- run the garbage collector
     collectgarbage()

     -- calculate & print memory growth
     local bytes_now = collectgarbage("count") * 1024
     local diff = bytes_now - bytes_last
     print(bytes_now, diff .. " new bytes")

     -- remember current memory usage
     bytes_last = bytes_now
end

function doNothing()
end

-- each hook call will leak 20 bytes.
addhook("always", "testMemory")
-- uncomment more lines to strengthen the effect
--addhook("always", "doNothing")
--addhook("always", "doNothing")
--addhook("always", "doNothing")

-- timers do not leak memory
--timer(100, "testMemory", "", 0)

-- uncomment this to have the same test duration each time
--timer(100 * 1000, "endTest", "exit")