b55300b729
* Start on lua scripting * Implement evalsha, script load, script exists, and script flush * Type conversions from lua to resp/json. Refactor to make luastate and luascripts persistent in the controller. * Change controller.command and all underlying commands to return resp.Value. Serialize only during the ouput. * First stab at tile38 call from lua * Change tile38 into tile38.call in Lua * Property return errors from scripts * Minor refactoring. No locking on script run * Cleanup/refactoring * Create a pool of 5 lua states, allow for more as needed. Refactor. * Use safe map for scripts. Add a limit for max number of lua states. Refactor. * Refactor * Refactor script commands into atomic, read-only, and non-atomic classes. Proper locking for all three classes. Add tests for scripts * More tests for scripts * Properly escape newlines in lua-produced errors * Better test for readonly failure * Correctly convert ok/err messages between lua and resp. Add pcall, sha1hex, error_reply, status_reply functions to tile38 namespace in lua. * Add pcall test. Change writeErr to work with string argument * Make sure eval/evalsha never attempt to write AOF * Add eval-set and eval-get to benchmarks * Fix eval benchmark tests, add more * Improve benchmarks * Optimizations and refactoring. * Add lua memtest * Typo * Add dependency * golint fixes * gofmt fixes * Add scripting commands to the core/commands.json * Use ARGV for args inside lua
138 lines
2.6 KiB
Lua
138 lines
2.6 KiB
Lua
#!../lua
|
|
|
|
math.randomseed(0)
|
|
|
|
collectgarbage("setstepmul", 180)
|
|
collectgarbage("setpause", 190)
|
|
|
|
|
|
--[=[
|
|
example of a long [comment],
|
|
[[spanning several [lines]]]
|
|
|
|
]=]
|
|
|
|
print("current path:\n " .. string.gsub(package.path, ";", "\n "))
|
|
|
|
|
|
local msgs = {}
|
|
function Message (m)
|
|
print(m)
|
|
msgs[#msgs+1] = string.sub(m, 3, -3)
|
|
end
|
|
|
|
|
|
local c = os.clock()
|
|
|
|
assert(os.setlocale"C")
|
|
|
|
local T,print,gcinfo,format,write,assert,type =
|
|
T,print,gcinfo,string.format,io.write,assert,type
|
|
|
|
local function formatmem (m)
|
|
if m < 1024 then return m
|
|
else
|
|
m = m/1024 - m/1024%1
|
|
if m < 1024 then return m.."K"
|
|
else
|
|
m = m/1024 - m/1024%1
|
|
return m.."M"
|
|
end
|
|
end
|
|
end
|
|
|
|
local showmem = function ()
|
|
if not T then
|
|
print(format(" ---- total memory: %s ----\n", formatmem(gcinfo())))
|
|
else
|
|
T.checkmemory()
|
|
local a,b,c = T.totalmem()
|
|
local d,e = gcinfo()
|
|
print(format(
|
|
"\n ---- total memory: %s (%dK), max use: %s, blocks: %d\n",
|
|
formatmem(a), d, formatmem(c), b))
|
|
end
|
|
end
|
|
|
|
|
|
--
|
|
-- redefine dofile to run files through dump/undump
|
|
--
|
|
dofile = function (n)
|
|
showmem()
|
|
local f = assert(loadfile(n))
|
|
local b = string.dump(f)
|
|
f = assert(loadstring(b))
|
|
return f()
|
|
end
|
|
|
|
dofile('main.lua')
|
|
|
|
do
|
|
local u = newproxy(true)
|
|
local newproxy, stderr = newproxy, io.stderr
|
|
getmetatable(u).__gc = function (o)
|
|
stderr:write'.'
|
|
newproxy(o)
|
|
end
|
|
end
|
|
|
|
local f = assert(loadfile('gc.lua'))
|
|
f()
|
|
dofile('db.lua')
|
|
assert(dofile('calls.lua') == deep and deep)
|
|
dofile('strings.lua')
|
|
dofile('literals.lua')
|
|
assert(dofile('attrib.lua') == 27)
|
|
assert(dofile('locals.lua') == 5)
|
|
dofile('constructs.lua')
|
|
dofile('code.lua')
|
|
do
|
|
local f = coroutine.wrap(assert(loadfile('big.lua')))
|
|
assert(f() == 'b')
|
|
assert(f() == 'a')
|
|
end
|
|
dofile('nextvar.lua')
|
|
dofile('pm.lua')
|
|
dofile('api.lua')
|
|
assert(dofile('events.lua') == 12)
|
|
dofile('vararg.lua')
|
|
dofile('closure.lua')
|
|
dofile('errors.lua')
|
|
dofile('math.lua')
|
|
dofile('sort.lua')
|
|
assert(dofile('verybig.lua') == 10); collectgarbage()
|
|
dofile('files.lua')
|
|
|
|
if #msgs > 0 then
|
|
print("\ntests not performed:")
|
|
for i=1,#msgs do
|
|
print(msgs[i])
|
|
end
|
|
print()
|
|
end
|
|
|
|
print("final OK !!!")
|
|
print('cleaning all!!!!')
|
|
|
|
debug.sethook(function (a) assert(type(a) == 'string') end, "cr")
|
|
|
|
local _G, collectgarbage, showmem, print, format, clock =
|
|
_G, collectgarbage, showmem, print, format, os.clock
|
|
|
|
local a={}
|
|
for n in pairs(_G) do a[n] = 1 end
|
|
a.tostring = nil
|
|
a.___Glob = nil
|
|
for n in pairs(a) do _G[n] = nil end
|
|
|
|
a = nil
|
|
collectgarbage()
|
|
collectgarbage()
|
|
collectgarbage()
|
|
collectgarbage()
|
|
collectgarbage()
|
|
collectgarbage();showmem()
|
|
|
|
print(format("\n\ntotal time: %.2f\n", clock()-c))
|