mirror of https://github.com/tidwall/tile38.git
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))
|