From 17890ef46286773c95106fca1894f72905d3fe06 Mon Sep 17 00:00:00 2001 From: daurnimator Date: Mon, 19 Jun 2017 00:27:41 +1000 Subject: db.js now passes --- README.md | 2 +- tests/test-suite/db.js | 1442 +++++++++++++++++++++++++++++++++++++ tests/test-suite/inprogress/db.js | 1442 ------------------------------------- 3 files changed, 1443 insertions(+), 1443 deletions(-) create mode 100644 tests/test-suite/db.js delete mode 100644 tests/test-suite/inprogress/db.js diff --git a/README.md b/README.md index 501843c..949132b 100644 --- a/README.md +++ b/README.md @@ -61,6 +61,7 @@ - [x] `code.lua` (28/28) - [x] `constructs.lua` (`_soft`) (10/10) - [x] `coroutine.lua` (70/70) + - [x] `db.lua` (54/54) - [x] `errors.lua` (64/64) - [x] `events.lua` (26/26) - [x] `goto.lua` (18/18) @@ -74,7 +75,6 @@ - [x] `tpack.lua` (32/32) - [x] `utf8.lua` (18/18) - [x] `vararg.lua` (8/8) - - [ ] `db.lua` (46/54) - [ ] `big.lua` - [ ] `verybig.lua` - [x] Full JS interoperability: [https://github.com/fengari-lua/fengari-interop](https://github.com/fengari-lua/fengari-interop) diff --git a/tests/test-suite/db.js b/tests/test-suite/db.js new file mode 100644 index 0000000..dcb57da --- /dev/null +++ b/tests/test-suite/db.js @@ -0,0 +1,1442 @@ +"use strict"; + +const test = require('tape'); + +global.WEB = false; + +const lua = require('../../src/lua.js'); +const lauxlib = require('../../src/lauxlib.js'); +const lualib = require('../../src/lualib.js'); + + +const prefix = ` + local function dostring(s) return assert(load(s))() end + + local testline = 5 -- line where 'test' is defined + function test (s, l, p) -- this must be line 5 + local a = 1 -- do something that's active instead of collectgarbage() + local function f (event, line) + assert(event == 'line') + local l = table.remove(l, 1) + if p then print(l, line) end + assert(l == line, "wrong trace!!") + end + debug.sethook(f,"l"); load(s)(); debug.sethook() + assert(#l == 0) + end +`; + +test("[test-suite] db: getinfo, ...line...", function (t) { + let luaCode = ` + assert(not pcall(debug.getinfo, print, "X")) -- invalid option + assert(not debug.getinfo(1000)) -- out of range level + assert(not debug.getinfo(-1)) -- out of range level + local a = debug.getinfo(print) + assert(a.what == "J" and a.short_src == "[JS]") + a = debug.getinfo(print, "L") + assert(a.activelines == nil) + local b = debug.getinfo(test, "SfL") + assert(b.name == nil and b.what == "Lua" and b.linedefined == testline and + b.lastlinedefined == b.linedefined + 10 and + b.func == test and string.find(b.short_src, "%[")) + assert(b.activelines[b.linedefined + 1] and + b.activelines[b.lastlinedefined]) + assert(not b.activelines[b.linedefined] and + not b.activelines[b.lastlinedefined + 1]) + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(prefix + luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); + + +test("[test-suite] db: test file ad string names truncation", function (t) { + let luaCode = ` + a = "function f () end" + local function dostring (s, x) return load(s, x)() end + dostring(a) + assert(debug.getinfo(f).short_src == string.format('[string "%s"]', a)) + dostring(a..string.format("; %s\\n=1", string.rep('p', 400))) + assert(string.find(debug.getinfo(f).short_src, '^%[string [^\\n]*%.%.%."%]$')) + dostring(a..string.format("; %s=1", string.rep('p', 400))) + assert(string.find(debug.getinfo(f).short_src, '^%[string [^\\n]*%.%.%."%]$')) + dostring("\\n"..a) + assert(debug.getinfo(f).short_src == '[string "..."]') + dostring(a, "") + assert(debug.getinfo(f).short_src == '[string ""]') + dostring(a, "@xuxu") + assert(debug.getinfo(f).short_src == "xuxu") + dostring(a, "@"..string.rep('p', 1000)..'t') + assert(string.find(debug.getinfo(f).short_src, "^%.%.%.p*t$")) + dostring(a, "=xuxu") + assert(debug.getinfo(f).short_src == "xuxu") + dostring(a, string.format("=%s", string.rep('x', 500))) + assert(string.find(debug.getinfo(f).short_src, "^x*$")) + dostring(a, "=") + assert(debug.getinfo(f).short_src == "") + a = nil; f = nil; + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); + +test("[test-suite] db: local", function (t) { + let luaCode = ` + repeat + local g = {x = function () + local a = debug.getinfo(2) + assert(a.name == 'f' and a.namewhat == 'local') + a = debug.getinfo(1) + assert(a.name == 'x' and a.namewhat == 'field') + return 'xixi' + end} + local f = function () return 1+1 and (not 1 or g.x()) end + assert(f() == 'xixi') + g = debug.getinfo(f) + assert(g.what == "Lua" and g.func == f and g.namewhat == "" and not g.name) + + function f (x, name) -- local! + name = name or 'f' + local a = debug.getinfo(1) + assert(a.name == name and a.namewhat == 'local') + return x + end + + -- breaks in different conditions + if 3>4 then break end; f() + if 3<4 then a=1 else break end; f() + while 1 do local x=10; break end; f() + local b = 1 + if 3>4 then return math.sin(1) end; f() + a = 3<4; f() + a = 3<4 or 1; f() + repeat local x=20; if 4>3 then f() else break end; f() until 1 + g = {} + f(g).x = f(2) and f(10)+f(9) + assert(g.x == f(19)) + function g(x) if not x then return 3 end return (x('a', 'x')) end + assert(g(f) == 'a') + until 1 + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); + + +test("[test-suite] db: line hook", function (t) { + let luaCode = ` + test([[if + math.sin(1) + then + a=1 + else + a=2 + end + ]], {2,3,4,7}) + + test([[-- + if nil then + a=1 + else + a=2 + end + ]], {2,5,6}) + + test([[a=1 + repeat + a=a+1 + until a==3 + ]], {1,3,4,3,4}) + + test([[ do + return + end + ]], {2}) + + test([[local a + a=1 + while a<=3 do + a=a+1 + end + ]], {1,2,3,4,3,4,3,4,3,5}) + + test([[while math.sin(1) do + if math.sin(1) + then break + end + end + a=1]], {1,2,3,6}) + + test([[for i=1,3 do + a=i + end + ]], {1,2,1,2,1,2,1,3}) + + test([[for i,v in pairs{'a','b'} do + a=tostring(i) .. v + end + ]], {1,2,1,2,1,3}) + + test([[for i=1,4 do a=1 end]], {1,1,1,1,1}) + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(prefix + luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); + + +test("[test-suite] db: invalid levels in [gs]etlocal", function (t) { + let luaCode = ` + assert(not pcall(debug.getlocal, 20, 1)) + assert(not pcall(debug.setlocal, -1, 1, 10)) + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); + + +test("[test-suite] db: parameter names", function (t) { + let luaCode = ` + local function foo (a,b,...) local d, e end + local co = coroutine.create(foo) + + assert(debug.getlocal(foo, 1) == 'a') + assert(debug.getlocal(foo, 2) == 'b') + assert(not debug.getlocal(foo, 3)) + assert(debug.getlocal(co, foo, 1) == 'a') + assert(debug.getlocal(co, foo, 2) == 'b') + assert(not debug.getlocal(co, foo, 3)) + + assert(not debug.getlocal(print, 1)) + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); + + +test("[test-suite] db: vararg", function (t) { + let luaCode = ` + local function foo (a, ...) + local t = table.pack(...) + for i = 1, t.n do + local n, v = debug.getlocal(1, -i) + assert(n == "(*vararg)" and v == t[i]) + end + assert(not debug.getlocal(1, -(t.n + 1))) + assert(not debug.setlocal(1, -(t.n + 1), 30)) + if t.n > 0 then + (function (x) + assert(debug.setlocal(2, -1, x) == "(*vararg)") + assert(debug.setlocal(2, -t.n, x) == "(*vararg)") + end)(430) + assert(... == 430) + end + end + + foo() + foo(print) + foo(200, 3, 4) + local a = {} + for i = 1, (_soft and 100 or 1000) do a[i] = i end + foo(table.unpack(a)) + a = nil + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); + + +test("[test-suite] db: access to vararg in non-vararg function", function (t) { + let luaCode = ` + local function foo () return debug.getlocal(1, -1) end + assert(not foo(10)) + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); + + +test("[test-suite] db: test hook presence in debug info", function (t) { + let luaCode = ` + do -- test hook presence in debug info + assert(not debug.gethook()) + local count = 0 + local function f () + assert(debug.getinfo(1).namewhat == "hook") + local sndline = string.match(debug.traceback(), "\\n(.-)\\n") + assert(string.find(sndline, "hook")) + count = count + 1 + end + debug.sethook(f, "l") + local a = 0 + _ENV.a = a + a = 1 + debug.sethook() + assert(count == 4) + end + + a = {}; L = nil + local glob = 1 + local oldglob = glob + debug.sethook(function (e,l) + -- collectgarbage() -- force GC during a hook + local f, m, c = debug.gethook() + assert(m == 'crl' and c == 0) + if e == "line" then + if glob ~= oldglob then + L = l-1 -- get the first line where "glob" has changed + oldglob = glob + end + elseif e == "call" then + local f = debug.getinfo(2, "f").func + a[f] = 1 + else assert(e == "return") + end + end, "crl") + + + function f(a,b) + -- collectgarbage() + local _, x = debug.getlocal(1, 1) + local _, y = debug.getlocal(1, 2) + assert(x == a and y == b) + assert(debug.setlocal(2, 3, "pera") == "AA".."AA") + assert(debug.setlocal(2, 4, "maçã") == "B") + x = debug.getinfo(2) + assert(x.func == g and x.what == "Lua" and x.name == 'g' and x.nups == 1) + glob = glob+1 + assert(debug.getinfo(1, "l").currentline == L+1) + assert(debug.getinfo(1, "l").currentline == L+2) + end + + function foo() + glob = glob+1 + assert(debug.getinfo(1, "l").currentline == L+1) + end; foo() -- set L + -- check line counting inside strings and empty lines + + _ = 'alo\\ + alo' .. [[ + + ]] + --[[ + ]] + assert(debug.getinfo(1, "l").currentline == L+11) -- check count of lines + + + function g(...) + local arg = {...} + do local a,b,c; a=math.sin(40); end + local feijao + local AAAA,B = "xuxu", "mamão" + f(AAAA,B) + assert(AAAA == "pera" and B == "maçã") + do + local B = 13 + local x,y = debug.getlocal(1,5) + assert(x == 'B' and y == 13) + end + end + + g() + + assert(a[f] and a[g] and a[assert] and a[debug.getlocal] and not a[print]) + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); + + +test("[test-suite] db: tests for manipulating non-registered locals (C and Lua temporaries)", function (t) { + let luaCode = ` + local n, v = debug.getlocal(0, 1) + assert(v == 0 and n == "(*temporary)") + local n, v = debug.getlocal(0, 2) + assert(v == 2 and n == "(*temporary)") + assert(not debug.getlocal(0, 3)) + assert(not debug.getlocal(0, 0)) + + function f() + assert(select(2, debug.getlocal(2,3)) == 1) + assert(not debug.getlocal(2,4)) + debug.setlocal(2, 3, 10) + return 20 + end + + function g(a,b) return (a+1) + f() end + + assert(g(0,0) == 30) + + + debug.sethook(nil); + assert(debug.gethook() == nil) + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); + + +test("[test-suite] db: testing access to function arguments", function (t) { + let luaCode = ` + local function collectlocals (level) + local tab = {} + for i = 1, math.huge do + local n, v = debug.getlocal(level + 1, i) + if not (n and string.find(n, "^[a-zA-Z0-9_]+$")) then + break -- consider only real variables + end + tab[n] = v + end + return tab + end + + + X = nil + a = {} + function a:f (a, b, ...) local arg = {...}; local c = 13 end + debug.sethook(function (e) + assert(e == "call") + dostring("XX = 12") -- test dostring inside hooks + -- testing errors inside hooks + assert(not pcall(load("a='joao'+1"))) + debug.sethook(function (e, l) + assert(debug.getinfo(2, "l").currentline == l) + local f,m,c = debug.gethook() + assert(e == "line") + assert(m == 'l' and c == 0) + debug.sethook(nil) -- hook is called only once + assert(not X) -- check that + X = collectlocals(2) + end, "l") + end, "c") + + a:f(1,2,3,4,5) + assert(X.self == a and X.a == 1 and X.b == 2 and X.c == nil) + assert(XX == 12) + assert(debug.gethook() == nil) + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(prefix + luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); + + +test("[test-suite] db: testing access to local variables in return hook (bug in 5.2)", function (t) { + let luaCode = ` + local function collectlocals (level) + local tab = {} + for i = 1, math.huge do + local n, v = debug.getlocal(level + 1, i) + if not (n and string.find(n, "^[a-zA-Z0-9_]+$")) then + break -- consider only real variables + end + tab[n] = v + end + return tab + end + + do + local function foo (a, b) + do local x,y,z end + local c, d = 10, 20 + return + end + + local function aux () + if debug.getinfo(2).name == "foo" then + foo = nil -- to signal that it found 'foo' + local tab = {a = 100, b = 200, c = 10, d = 20} + for n, v in pairs(collectlocals(2)) do + assert(tab[n] == v) + tab[n] = nil + end + assert(next(tab) == nil) -- 'tab' must be empty + end + end + + debug.sethook(aux, "r"); foo(100, 200); debug.sethook() + assert(foo == nil) + end + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); + + +test("[test-suite] db: testing upvalue access", function (t) { + let luaCode = ` + local function getupvalues (f) + local t = {} + local i = 1 + while true do + local name, value = debug.getupvalue(f, i) + if not name then break end + assert(not t[name]) + t[name] = value + i = i + 1 + end + return t + end + + local a,b,c = 1,2,3 + local function foo1 (a) b = a; return c end + local function foo2 (x) a = x; return c+b end + assert(not debug.getupvalue(foo1, 3)) + assert(not debug.getupvalue(foo1, 0)) + assert(not debug.setupvalue(foo1, 3, "xuxu")) + local t = getupvalues(foo1) + assert(t.a == nil and t.b == 2 and t.c == 3) + t = getupvalues(foo2) + assert(t.a == 1 and t.b == 2 and t.c == 3) + assert(debug.setupvalue(foo1, 1, "xuxu") == "b") + assert(({debug.getupvalue(foo2, 3)})[2] == "xuxu") + -- upvalues of C functions are allways "called" "" (the empty string) + assert(debug.getupvalue(string.gmatch("x", "x"), 1) == "") + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); + + +test("[test-suite] db: testing count hooks", function (t) { + let luaCode = ` + local a=0 + debug.sethook(function (e) a=a+1 end, "", 1) + a=0; for i=1,1000 do end; assert(1000 < a and a < 1012) + debug.sethook(function (e) a=a+1 end, "", 4) + a=0; for i=1,1000 do end; assert(250 < a and a < 255) + local f,m,c = debug.gethook() + assert(m == "" and c == 4) + debug.sethook(function (e) a=a+1 end, "", 4000) + a=0; for i=1,1000 do end; assert(a == 0) + + do + debug.sethook(print, "", 2^24 - 1) -- count upperbound + local f,m,c = debug.gethook() + assert(({debug.gethook()})[3] == 2^24 - 1) + end + + debug.sethook() + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); + + +test("[test-suite] db: tests for tail calls", function (t) { + let luaCode = ` + local function f (x) + if x then + assert(debug.getinfo(1, "S").what == "Lua") + assert(debug.getinfo(1, "t").istailcall == true) + local tail = debug.getinfo(2) + assert(tail.func == g1 and tail.istailcall == true) + assert(debug.getinfo(3, "S").what == "main") + print"+" + end + end + + function g(x) return f(x) end + + function g1(x) g(x) end + + local function h (x) local f=g1; return f(x) end + + h(true) + + local b = {} + debug.sethook(function (e) table.insert(b, e) end, "cr") + h(false) + debug.sethook() + local res = {"return", -- first return (from sethook) + "call", "tail call", "call", "tail call", + "return", "return", + "call", -- last call (to sethook) + } + for i = 1, #res do assert(res[i] == table.remove(b, 1)) end + + b = 0 + debug.sethook(function (e) + if e == "tail call" then + b = b + 1 + assert(debug.getinfo(2, "t").istailcall == true) + else + assert(debug.getinfo(2, "t").istailcall == false) + end + end, "c") + h(false) + debug.sethook() + assert(b == 2) -- two tail calls + + lim = _soft and 3000 or 30000 + local function foo (x) + if x==0 then + assert(debug.getinfo(2).what == "main") + local info = debug.getinfo(1) + assert(info.istailcall == true and info.func == foo) + else return foo(x-1) + end + end + + foo(lim) + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); + + +test("[test-suite] db: testing local function information", function (t) { + let luaCode = ` + co = load[[ + local A = function () + return x + end + return + ]] + + local a = 0 + -- 'A' should be visible to debugger only after its complete definition + debug.sethook(function (e, l) + if l == 3 then a = a + 1; assert(debug.getlocal(2, 1) == "(*temporary)") + elseif l == 4 then a = a + 1; assert(debug.getlocal(2, 1) == "A") + end + end, "l") + co() -- run local function definition + debug.sethook() -- turn off hook + assert(a == 2) -- ensure all two lines where hooked + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); + + +test("[test-suite] db: testing traceback", function (t) { + let luaCode = ` + assert(debug.traceback(print) == print) + assert(debug.traceback(print, 4) == print) + assert(string.find(debug.traceback("hi", 4), "^hi\\n")) + assert(string.find(debug.traceback("hi"), "^hi\\n")) + assert(not string.find(debug.traceback("hi"), "'debug.traceback'")) + assert(string.find(debug.traceback("hi", 0), "'debug.traceback'")) + assert(string.find(debug.traceback(), "^stack traceback:\\n")) + + do -- C-function names in traceback + local st, msg = (function () return pcall end)()(debug.traceback) + assert(st == true and string.find(msg, "pcall")) + end + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); + + +test("[test-suite] db: testing nparams, nups e isvararg", function (t) { + let luaCode = ` + local t = debug.getinfo(print, "u") + assert(t.isvararg == true and t.nparams == 0 and t.nups == 0) + + t = debug.getinfo(function (a,b,c) end, "u") + assert(t.isvararg == false and t.nparams == 3 and t.nups == 0) + + t = debug.getinfo(function (a,b,...) return t[a] end, "u") + assert(t.isvararg == true and t.nparams == 2 and t.nups == 1) + + t = debug.getinfo(1) -- main + assert(t.isvararg == true and t.nparams == 0 and t.nups == 1 and + debug.getupvalue(t.func, 1) == "_ENV") + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); + + +test("[test-suite] db: testing debugging of coroutines", function (t) { + let luaCode = ` + local function checktraceback (co, p, level) + local tb = debug.traceback(co, nil, level) + local i = 0 + for l in string.gmatch(tb, "[^\\n]+\\n?") do + assert(i == 0 or string.find(l, p[i])) + i = i+1 + end + assert(p[i] == nil) + end + + + local function f (n) + if n > 0 then f(n-1) + else coroutine.yield() end + end + + local co = coroutine.create(f) + coroutine.resume(co, 3) + checktraceback(co, {"yield", "db.lua", "db.lua", "db.lua", "db.lua"}) + checktraceback(co, {"db.lua", "db.lua", "db.lua", "db.lua"}, 1) + checktraceback(co, {"db.lua", "db.lua", "db.lua"}, 2) + checktraceback(co, {"db.lua"}, 4) + checktraceback(co, {}, 40) + + + co = coroutine.create(function (x) + local a = 1 + coroutine.yield(debug.getinfo(1, "l")) + coroutine.yield(debug.getinfo(1, "l").currentline) + return a + end) + + local tr = {} + local foo = function (e, l) if l then table.insert(tr, l) end end + debug.sethook(co, foo, "lcr") + + local _, l = coroutine.resume(co, 10) + local x = debug.getinfo(co, 1, "lfLS") + assert(x.currentline == l.currentline and x.activelines[x.currentline]) + assert(type(x.func) == "function") + for i=x.linedefined + 1, x.lastlinedefined do + assert(x.activelines[i]) + x.activelines[i] = nil + end + assert(next(x.activelines) == nil) -- no 'extra' elements + assert(not debug.getinfo(co, 2)) + local a,b = debug.getlocal(co, 1, 1) + assert(a == "x" and b == 10) + a,b = debug.getlocal(co, 1, 2) + assert(a == "a" and b == 1) + debug.setlocal(co, 1, 2, "hi") + assert(debug.gethook(co) == foo) + assert(#tr == 2 and + tr[1] == l.currentline-1 and tr[2] == l.currentline) + + a,b,c = pcall(coroutine.resume, co) + assert(a and b and c == l.currentline+1) + checktraceback(co, {"yield", "in function <"}) + + a,b = coroutine.resume(co) + assert(a and b == "hi") + assert(#tr == 4 and tr[4] == l.currentline+2) + assert(debug.gethook(co) == foo) + assert(not debug.gethook()) + checktraceback(co, {}) + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + let b = lua.to_luastring(luaCode); + if (lauxlib.luaL_loadbuffer(L, b, b.length, lua.to_luastring("@db.lua")) !== lua.LUA_OK) + throw Error(lua.lua_tojsstring(L, -1)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); + + +test("[test-suite] db: check get/setlocal in coroutines", function (t) { + let luaCode = ` + co = coroutine.create(function (x) + local a, b = coroutine.yield(x) + assert(a == 100 and b == nil) + return x + end) + a, b = coroutine.resume(co, 10) + assert(a and b == 10) + a, b = debug.getlocal(co, 1, 1) + assert(a == "x" and b == 10) + assert(not debug.getlocal(co, 1, 5)) + assert(debug.setlocal(co, 1, 1, 30) == "x") + assert(not debug.setlocal(co, 1, 5, 40)) + a, b = coroutine.resume(co, 100) + assert(a and b == 30) + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); + + +test("[test-suite] db: check traceback of suspended (or dead with error) coroutines", function (t) { + let luaCode = ` + local function checktraceback (co, p, level) + local tb = debug.traceback(co, nil, level) + local i = 0 + for l in string.gmatch(tb, "[^\\n]+\\n?") do + assert(i == 0 or string.find(l, p[i])) + i = i+1 + end + assert(p[i] == nil) + end + + function f(i) if i==0 then error(i) else coroutine.yield(); f(i-1) end end + + co = coroutine.create(function (x) f(x) end) + a, b = coroutine.resume(co, 3) + t = {"'coroutine.yield'", "'f'", "in function <"} + while coroutine.status(co) == "suspended" do + checktraceback(co, t) + a, b = coroutine.resume(co) + table.insert(t, 2, "'f'") -- one more recursive call to 'f' + end + t[1] = "'error'" + checktraceback(co, t) + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); + + +test("[test-suite] db: check test acessing line numbers of a coroutine from a resume inside a C function", function (t) { + let luaCode = ` + local function g(x) + coroutine.yield(x) + end + + local function f (i) + debug.sethook(function () end, "l") + for j=1,1000 do + g(i+j) + end + end + + local co = coroutine.wrap(f) + co(10) + pcall(co) + pcall(co) + + + assert(type(debug.getregistry()) == "table") + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); + + +test("[test-suite] db: test tagmethod information", function (t) { + let luaCode = ` + local a = {} + local function f (t) + local info = debug.getinfo(1); + assert(info.namewhat == "metamethod") + a.op = info.name + return info.name + end + setmetatable(a, { + __index = f; __add = f; __div = f; __mod = f; __concat = f; __pow = f; + __mul = f; __idiv = f; __unm = f; __len = f; __sub = f; + __shl = f; __shr = f; __bor = f; __bxor = f; + __eq = f; __le = f; __lt = f; __unm = f; __len = f; __band = f; + __bnot = f; + }) + + local b = setmetatable({}, getmetatable(a)) + + assert(a[3] == "__index" and a^3 == "__pow" and a..a == "__concat") + assert(a/3 == "__div" and 3%a == "__mod") + assert(a+3 == "__add" and 3-a == "__sub" and a*3 == "__mul" and + -a == "__unm" and #a == "__len" and a&3 == "__band") + assert(a|3 == "__bor" and 3~a == "__bxor" and a<<3 == "__shl" and + a>>1 == "__shr") + assert (a==b and a.op == "__eq") + assert (a>=b and a.op == "__le") + assert (a>b and a.op == "__lt") + assert(~a == "__bnot") + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); + + +test("[test-suite] db: testing for-iterator name", function (t) { + let luaCode = ` + do + local function f() + assert(debug.getinfo(1).name == "for iterator") + end + + for i in f do end + end + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); + + +test("[test-suite] db: testing traceback sizes", function (t) { + let luaCode = ` + local function countlines (s) + return select(2, string.gsub(s, "\\n", "")) + end + + local function deep (lvl, n) + if lvl == 0 then + return (debug.traceback("message", n)) + else + return (deep(lvl-1, n)) + end + end + + local function checkdeep (total, start) + local s = deep(total, start) + local rest = string.match(s, "^message\\nstack traceback:\\n(.*)$") + local cl = countlines(rest) + -- at most 10 lines in first part, 11 in second, plus '...' + assert(cl <= 10 + 11 + 1) + local brk = string.find(rest, "%.%.%.") + if brk then -- does message have '...'? + local rest1 = string.sub(rest, 1, brk) + local rest2 = string.sub(rest, brk, #rest) + assert(countlines(rest1) == 10 and countlines(rest2) == 11) + else + assert(cl == total - start + 2) + end + end + + for d = 1, 51, 10 do + for l = 1, d do + -- use coroutines to ensure complete control of the stack + coroutine.wrap(checkdeep)(d, l) + end + end + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + let b = lua.to_luastring(luaCode); + if (lauxlib.luaL_loadbuffer(L, b, b.length, lua.to_luastring("@db.lua")) !== lua.LUA_OK) + throw Error(lua.lua_tojsstring(L, -1)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); + + +test("[test-suite] db: testing debug functions on chunk without debug info", function (t) { + let luaCode = ` + prog = [[-- program to be loaded without debug information + local debug = require'debug' + local a = 12 -- a local variable + + local n, v = debug.getlocal(1, 1) + assert(n == "(*temporary)" and v == debug) -- unkown name but known value + n, v = debug.getlocal(1, 2) + assert(n == "(*temporary)" and v == 12) -- unkown name but known value + + -- a function with an upvalue + local f = function () local x; return a end + n, v = debug.getupvalue(f, 1) + assert(n == "(*no name)" and v == 12) + assert(debug.setupvalue(f, 1, 13) == "(*no name)") + assert(a == 13) + + local t = debug.getinfo(f) + assert(t.name == nil and t.linedefined > 0 and + t.lastlinedefined == t.linedefined and + t.short_src == "?") + assert(debug.getinfo(1).currentline == -1) + + t = debug.getinfo(f, "L").activelines + assert(next(t) == nil) -- active lines are empty + + -- dump/load a function without debug info + f = load(string.dump(f)) + + t = debug.getinfo(f) + assert(t.name == nil and t.linedefined > 0 and + t.lastlinedefined == t.linedefined and + t.short_src == "?") + assert(debug.getinfo(1).currentline == -1) + + return a + ]] + + + -- load 'prog' without debug info + local f = assert(load(string.dump(load(prog), true))) + + assert(f() == 13) + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); + + +test("[test-suite] db: tests for 'source' in binary dumps", function (t) { + let luaCode = ` + do + local prog = [[ + return function (x) + return function (y) + return x + y + end + end + ]] + local name = string.rep("x", 1000) + local p = assert(load(prog, name)) + -- load 'p' as a binary chunk with debug information + local c = string.dump(p) + assert(#c > 1000 and #c < 2000) -- no repetition of 'source' in dump + local f = assert(load(c)) + local g = f() + local h = g(3) + assert(h(5) == 8) + assert(debug.getinfo(f).source == name and -- all functions have 'source' + debug.getinfo(g).source == name and + debug.getinfo(h).source == name) + -- again, without debug info + local c = string.dump(p, true) + assert(#c < 500) -- no 'source' in dump + local f = assert(load(c)) + local g = f() + local h = g(30) + assert(h(50) == 80) + assert(debug.getinfo(f).source == '=?' and -- no function has 'source' + debug.getinfo(g).source == '=?' and + debug.getinfo(h).source == '=?') + end + `, L; + + t.plan(2); + + t.doesNotThrow(function () { + + L = lauxlib.luaL_newstate(); + + lualib.luaL_openlibs(L); + + lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); + + }, "Lua program loaded without error"); + + t.doesNotThrow(function () { + + lua.lua_call(L, 0, -1); + + }, "Lua program ran without error"); + +}); diff --git a/tests/test-suite/inprogress/db.js b/tests/test-suite/inprogress/db.js deleted file mode 100644 index 961014b..0000000 --- a/tests/test-suite/inprogress/db.js +++ /dev/null @@ -1,1442 +0,0 @@ -"use strict"; - -const test = require('tape'); - -global.WEB = false; - -const lua = require('../../../src/lua.js'); -const lauxlib = require('../../../src/lauxlib.js'); -const lualib = require('../../../src/lualib.js'); - - -const prefix = ` - local function dostring(s) return assert(load(s))() end - - local testline = 5 -- line where 'test' is defined - function test (s, l, p) -- this must be line 5 - local a = 1 -- do something that's active instead of collectgarbage() - local function f (event, line) - assert(event == 'line') - local l = table.remove(l, 1) - if p then print(l, line) end - assert(l == line, "wrong trace!!") - end - debug.sethook(f,"l"); load(s)(); debug.sethook() - assert(#l == 0) - end -`; - -test("[test-suite] db: getinfo, ...line...", function (t) { - let luaCode = ` - assert(not pcall(debug.getinfo, print, "X")) -- invalid option - assert(not debug.getinfo(1000)) -- out of range level - assert(not debug.getinfo(-1)) -- out of range level - local a = debug.getinfo(print) - assert(a.what == "J" and a.short_src == "[JS]") - a = debug.getinfo(print, "L") - assert(a.activelines == nil) - local b = debug.getinfo(test, "SfL") - assert(b.name == nil and b.what == "Lua" and b.linedefined == testline and - b.lastlinedefined == b.linedefined + 10 and - b.func == test and string.find(b.short_src, "%[")) - assert(b.activelines[b.linedefined + 1] and - b.activelines[b.lastlinedefined]) - assert(not b.activelines[b.linedefined] and - not b.activelines[b.lastlinedefined + 1]) - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, lua.to_luastring(prefix + luaCode)); - - }, "Lua program loaded without error"); - - t.doesNotThrow(function () { - - lua.lua_call(L, 0, -1); - - }, "Lua program ran without error"); - -}); - - -test("[test-suite] db: test file ad string names truncation", function (t) { - let luaCode = ` - a = "function f () end" - local function dostring (s, x) return load(s, x)() end - dostring(a) - assert(debug.getinfo(f).short_src == string.format('[string "%s"]', a)) - dostring(a..string.format("; %s\\n=1", string.rep('p', 400))) - assert(string.find(debug.getinfo(f).short_src, '^%[string [^\\n]*%.%.%."%]$')) - dostring(a..string.format("; %s=1", string.rep('p', 400))) - assert(string.find(debug.getinfo(f).short_src, '^%[string [^\\n]*%.%.%."%]$')) - dostring("\\n"..a) - assert(debug.getinfo(f).short_src == '[string "..."]') - dostring(a, "") - assert(debug.getinfo(f).short_src == '[string ""]') - dostring(a, "@xuxu") - assert(debug.getinfo(f).short_src == "xuxu") - dostring(a, "@"..string.rep('p', 1000)..'t') - assert(string.find(debug.getinfo(f).short_src, "^%.%.%.p*t$")) - dostring(a, "=xuxu") - assert(debug.getinfo(f).short_src == "xuxu") - dostring(a, string.format("=%s", string.rep('x', 500))) - assert(string.find(debug.getinfo(f).short_src, "^x*$")) - dostring(a, "=") - assert(debug.getinfo(f).short_src == "") - a = nil; f = nil; - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); - - }, "Lua program loaded without error"); - - t.doesNotThrow(function () { - - lua.lua_call(L, 0, -1); - - }, "Lua program ran without error"); - -}); - -test("[test-suite] db: local", function (t) { - let luaCode = ` - repeat - local g = {x = function () - local a = debug.getinfo(2) - assert(a.name == 'f' and a.namewhat == 'local') - a = debug.getinfo(1) - assert(a.name == 'x' and a.namewhat == 'field') - return 'xixi' - end} - local f = function () return 1+1 and (not 1 or g.x()) end - assert(f() == 'xixi') - g = debug.getinfo(f) - assert(g.what == "Lua" and g.func == f and g.namewhat == "" and not g.name) - - function f (x, name) -- local! - name = name or 'f' - local a = debug.getinfo(1) - assert(a.name == name and a.namewhat == 'local') - return x - end - - -- breaks in different conditions - if 3>4 then break end; f() - if 3<4 then a=1 else break end; f() - while 1 do local x=10; break end; f() - local b = 1 - if 3>4 then return math.sin(1) end; f() - a = 3<4; f() - a = 3<4 or 1; f() - repeat local x=20; if 4>3 then f() else break end; f() until 1 - g = {} - f(g).x = f(2) and f(10)+f(9) - assert(g.x == f(19)) - function g(x) if not x then return 3 end return (x('a', 'x')) end - assert(g(f) == 'a') - until 1 - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); - - }, "Lua program loaded without error"); - - t.doesNotThrow(function () { - - lua.lua_call(L, 0, -1); - - }, "Lua program ran without error"); - -}); - - -test("[test-suite] db: line hook", function (t) { - let luaCode = ` - test([[if - math.sin(1) - then - a=1 - else - a=2 - end - ]], {2,3,4,7}) - - test([[-- - if nil then - a=1 - else - a=2 - end - ]], {2,5,6}) - - test([[a=1 - repeat - a=a+1 - until a==3 - ]], {1,3,4,3,4}) - - test([[ do - return - end - ]], {2}) - - test([[local a - a=1 - while a<=3 do - a=a+1 - end - ]], {1,2,3,4,3,4,3,4,3,5}) - - test([[while math.sin(1) do - if math.sin(1) - then break - end - end - a=1]], {1,2,3,6}) - - test([[for i=1,3 do - a=i - end - ]], {1,2,1,2,1,2,1,3}) - - test([[for i,v in pairs{'a','b'} do - a=tostring(i) .. v - end - ]], {1,2,1,2,1,3}) - - test([[for i=1,4 do a=1 end]], {1,1,1,1,1}) - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, lua.to_luastring(prefix + luaCode)); - - }, "Lua program loaded without error"); - - t.doesNotThrow(function () { - - lua.lua_call(L, 0, -1); - - }, "Lua program ran without error"); - -}); - - -test("[test-suite] db: invalid levels in [gs]etlocal", function (t) { - let luaCode = ` - assert(not pcall(debug.getlocal, 20, 1)) - assert(not pcall(debug.setlocal, -1, 1, 10)) - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); - - }, "Lua program loaded without error"); - - t.doesNotThrow(function () { - - lua.lua_call(L, 0, -1); - - }, "Lua program ran without error"); - -}); - - -test("[test-suite] db: parameter names", function (t) { - let luaCode = ` - local function foo (a,b,...) local d, e end - local co = coroutine.create(foo) - - assert(debug.getlocal(foo, 1) == 'a') - assert(debug.getlocal(foo, 2) == 'b') - assert(not debug.getlocal(foo, 3)) - assert(debug.getlocal(co, foo, 1) == 'a') - assert(debug.getlocal(co, foo, 2) == 'b') - assert(not debug.getlocal(co, foo, 3)) - - assert(not debug.getlocal(print, 1)) - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); - - }, "Lua program loaded without error"); - - t.doesNotThrow(function () { - - lua.lua_call(L, 0, -1); - - }, "Lua program ran without error"); - -}); - - -test("[test-suite] db: vararg", function (t) { - let luaCode = ` - local function foo (a, ...) - local t = table.pack(...) - for i = 1, t.n do - local n, v = debug.getlocal(1, -i) - assert(n == "(*vararg)" and v == t[i]) - end - assert(not debug.getlocal(1, -(t.n + 1))) - assert(not debug.setlocal(1, -(t.n + 1), 30)) - if t.n > 0 then - (function (x) - assert(debug.setlocal(2, -1, x) == "(*vararg)") - assert(debug.setlocal(2, -t.n, x) == "(*vararg)") - end)(430) - assert(... == 430) - end - end - - foo() - foo(print) - foo(200, 3, 4) - local a = {} - for i = 1, (_soft and 100 or 1000) do a[i] = i end - foo(table.unpack(a)) - a = nil - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); - - }, "Lua program loaded without error"); - - t.doesNotThrow(function () { - - lua.lua_call(L, 0, -1); - - }, "Lua program ran without error"); - -}); - - -test("[test-suite] db: access to vararg in non-vararg function", function (t) { - let luaCode = ` - local function foo () return debug.getlocal(1, -1) end - assert(not foo(10)) - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); - - }, "Lua program loaded without error"); - - t.doesNotThrow(function () { - - lua.lua_call(L, 0, -1); - - }, "Lua program ran without error"); - -}); - - -test("[test-suite] db: test hook presence in debug info", function (t) { - let luaCode = ` - do -- test hook presence in debug info - assert(not debug.gethook()) - local count = 0 - local function f () - assert(debug.getinfo(1).namewhat == "hook") - local sndline = string.match(debug.traceback(), "\\n(.-)\\n") - assert(string.find(sndline, "hook")) - count = count + 1 - end - debug.sethook(f, "l") - local a = 0 - _ENV.a = a - a = 1 - debug.sethook() - assert(count == 4) - end - - a = {}; L = nil - local glob = 1 - local oldglob = glob - debug.sethook(function (e,l) - -- collectgarbage() -- force GC during a hook - local f, m, c = debug.gethook() - assert(m == 'crl' and c == 0) - if e == "line" then - if glob ~= oldglob then - L = l-1 -- get the first line where "glob" has changed - oldglob = glob - end - elseif e == "call" then - local f = debug.getinfo(2, "f").func - a[f] = 1 - else assert(e == "return") - end - end, "crl") - - - function f(a,b) - -- collectgarbage() - local _, x = debug.getlocal(1, 1) - local _, y = debug.getlocal(1, 2) - assert(x == a and y == b) - assert(debug.setlocal(2, 3, "pera") == "AA".."AA") - assert(debug.setlocal(2, 4, "maçã") == "B") - x = debug.getinfo(2) - assert(x.func == g and x.what == "Lua" and x.name == 'g' and x.nups == 1) - glob = glob+1 - assert(debug.getinfo(1, "l").currentline == L+1) - assert(debug.getinfo(1, "l").currentline == L+2) - end - - function foo() - glob = glob+1 - assert(debug.getinfo(1, "l").currentline == L+1) - end; foo() -- set L - -- check line counting inside strings and empty lines - - _ = 'alo\\ - alo' .. [[ - - ]] - --[[ - ]] - assert(debug.getinfo(1, "l").currentline == L+11) -- check count of lines - - - function g(...) - local arg = {...} - do local a,b,c; a=math.sin(40); end - local feijao - local AAAA,B = "xuxu", "mamão" - f(AAAA,B) - assert(AAAA == "pera" and B == "maçã") - do - local B = 13 - local x,y = debug.getlocal(1,5) - assert(x == 'B' and y == 13) - end - end - - g() - - assert(a[f] and a[g] and a[assert] and a[debug.getlocal] and not a[print]) - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); - - }, "Lua program loaded without error"); - - t.doesNotThrow(function () { - - lua.lua_call(L, 0, -1); - - }, "Lua program ran without error"); - -}); - - -test("[test-suite] db: tests for manipulating non-registered locals (C and Lua temporaries)", function (t) { - let luaCode = ` - local n, v = debug.getlocal(0, 1) - assert(v == 0 and n == "(*temporary)") - local n, v = debug.getlocal(0, 2) - assert(v == 2 and n == "(*temporary)") - assert(not debug.getlocal(0, 3)) - assert(not debug.getlocal(0, 0)) - - function f() - assert(select(2, debug.getlocal(2,3)) == 1) - assert(not debug.getlocal(2,4)) - debug.setlocal(2, 3, 10) - return 20 - end - - function g(a,b) return (a+1) + f() end - - assert(g(0,0) == 30) - - - debug.sethook(nil); - assert(debug.gethook() == nil) - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); - - }, "Lua program loaded without error"); - - t.doesNotThrow(function () { - - lua.lua_call(L, 0, -1); - - }, "Lua program ran without error"); - -}); - - -test("[test-suite] db: testing access to function arguments", function (t) { - let luaCode = ` - local function collectlocals (level) - local tab = {} - for i = 1, math.huge do - local n, v = debug.getlocal(level + 1, i) - if not (n and string.find(n, "^[a-zA-Z0-9_]+$")) then - break -- consider only real variables - end - tab[n] = v - end - return tab - end - - - X = nil - a = {} - function a:f (a, b, ...) local arg = {...}; local c = 13 end - debug.sethook(function (e) - assert(e == "call") - dostring("XX = 12") -- test dostring inside hooks - -- testing errors inside hooks - assert(not pcall(load("a='joao'+1"))) - debug.sethook(function (e, l) - assert(debug.getinfo(2, "l").currentline == l) - local f,m,c = debug.gethook() - assert(e == "line") - assert(m == 'l' and c == 0) - debug.sethook(nil) -- hook is called only once - assert(not X) -- check that - X = collectlocals(2) - end, "l") - end, "c") - - a:f(1,2,3,4,5) - assert(X.self == a and X.a == 1 and X.b == 2 and X.c == nil) - assert(XX == 12) - assert(debug.gethook() == nil) - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, lua.to_luastring(prefix + luaCode)); - - }, "Lua program loaded without error"); - - t.doesNotThrow(function () { - - lua.lua_call(L, 0, -1); - - }, "Lua program ran without error"); - -}); - - -test("[test-suite] db: testing access to local variables in return hook (bug in 5.2)", function (t) { - let luaCode = ` - local function collectlocals (level) - local tab = {} - for i = 1, math.huge do - local n, v = debug.getlocal(level + 1, i) - if not (n and string.find(n, "^[a-zA-Z0-9_]+$")) then - break -- consider only real variables - end - tab[n] = v - end - return tab - end - - do - local function foo (a, b) - do local x,y,z end - local c, d = 10, 20 - return - end - - local function aux () - if debug.getinfo(2).name == "foo" then - foo = nil -- to signal that it found 'foo' - local tab = {a = 100, b = 200, c = 10, d = 20} - for n, v in pairs(collectlocals(2)) do - assert(tab[n] == v) - tab[n] = nil - end - assert(next(tab) == nil) -- 'tab' must be empty - end - end - - debug.sethook(aux, "r"); foo(100, 200); debug.sethook() - assert(foo == nil) - end - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); - - }, "Lua program loaded without error"); - - t.doesNotThrow(function () { - - lua.lua_call(L, 0, -1); - - }, "Lua program ran without error"); - -}); - - -test("[test-suite] db: testing upvalue access", function (t) { - let luaCode = ` - local function getupvalues (f) - local t = {} - local i = 1 - while true do - local name, value = debug.getupvalue(f, i) - if not name then break end - assert(not t[name]) - t[name] = value - i = i + 1 - end - return t - end - - local a,b,c = 1,2,3 - local function foo1 (a) b = a; return c end - local function foo2 (x) a = x; return c+b end - assert(not debug.getupvalue(foo1, 3)) - assert(not debug.getupvalue(foo1, 0)) - assert(not debug.setupvalue(foo1, 3, "xuxu")) - local t = getupvalues(foo1) - assert(t.a == nil and t.b == 2 and t.c == 3) - t = getupvalues(foo2) - assert(t.a == 1 and t.b == 2 and t.c == 3) - assert(debug.setupvalue(foo1, 1, "xuxu") == "b") - assert(({debug.getupvalue(foo2, 3)})[2] == "xuxu") - -- upvalues of C functions are allways "called" "" (the empty string) - assert(debug.getupvalue(string.gmatch("x", "x"), 1) == "") - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); - - }, "Lua program loaded without error"); - - t.doesNotThrow(function () { - - lua.lua_call(L, 0, -1); - - }, "Lua program ran without error"); - -}); - - -test("[test-suite] db: testing count hooks", function (t) { - let luaCode = ` - local a=0 - debug.sethook(function (e) a=a+1 end, "", 1) - a=0; for i=1,1000 do end; assert(1000 < a and a < 1012) - debug.sethook(function (e) a=a+1 end, "", 4) - a=0; for i=1,1000 do end; assert(250 < a and a < 255) - local f,m,c = debug.gethook() - assert(m == "" and c == 4) - debug.sethook(function (e) a=a+1 end, "", 4000) - a=0; for i=1,1000 do end; assert(a == 0) - - do - debug.sethook(print, "", 2^24 - 1) -- count upperbound - local f,m,c = debug.gethook() - assert(({debug.gethook()})[3] == 2^24 - 1) - end - - debug.sethook() - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); - - }, "Lua program loaded without error"); - - t.doesNotThrow(function () { - - lua.lua_call(L, 0, -1); - - }, "Lua program ran without error"); - -}); - - -test("[test-suite] db: tests for tail calls", function (t) { - let luaCode = ` - local function f (x) - if x then - assert(debug.getinfo(1, "S").what == "Lua") - assert(debug.getinfo(1, "t").istailcall == true) - local tail = debug.getinfo(2) - assert(tail.func == g1 and tail.istailcall == true) - assert(debug.getinfo(3, "S").what == "main") - print"+" - end - end - - function g(x) return f(x) end - - function g1(x) g(x) end - - local function h (x) local f=g1; return f(x) end - - h(true) - - local b = {} - debug.sethook(function (e) table.insert(b, e) end, "cr") - h(false) - debug.sethook() - local res = {"return", -- first return (from sethook) - "call", "tail call", "call", "tail call", - "return", "return", - "call", -- last call (to sethook) - } - for i = 1, #res do assert(res[i] == table.remove(b, 1)) end - - b = 0 - debug.sethook(function (e) - if e == "tail call" then - b = b + 1 - assert(debug.getinfo(2, "t").istailcall == true) - else - assert(debug.getinfo(2, "t").istailcall == false) - end - end, "c") - h(false) - debug.sethook() - assert(b == 2) -- two tail calls - - lim = _soft and 3000 or 30000 - local function foo (x) - if x==0 then - assert(debug.getinfo(2).what == "main") - local info = debug.getinfo(1) - assert(info.istailcall == true and info.func == foo) - else return foo(x-1) - end - end - - foo(lim) - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); - - }, "Lua program loaded without error"); - - t.doesNotThrow(function () { - - lua.lua_call(L, 0, -1); - - }, "Lua program ran without error"); - -}); - - -test("[test-suite] db: testing local function information", function (t) { - let luaCode = ` - co = load[[ - local A = function () - return x - end - return - ]] - - local a = 0 - -- 'A' should be visible to debugger only after its complete definition - debug.sethook(function (e, l) - if l == 3 then a = a + 1; assert(debug.getlocal(2, 1) == "(*temporary)") - elseif l == 4 then a = a + 1; assert(debug.getlocal(2, 1) == "A") - end - end, "l") - co() -- run local function definition - debug.sethook() -- turn off hook - assert(a == 2) -- ensure all two lines where hooked - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); - - }, "Lua program loaded without error"); - - t.doesNotThrow(function () { - - lua.lua_call(L, 0, -1); - - }, "Lua program ran without error"); - -}); - - -test("[test-suite] db: testing traceback", function (t) { - let luaCode = ` - assert(debug.traceback(print) == print) - assert(debug.traceback(print, 4) == print) - assert(string.find(debug.traceback("hi", 4), "^hi\\n")) - assert(string.find(debug.traceback("hi"), "^hi\\n")) - assert(not string.find(debug.traceback("hi"), "'debug.traceback'")) - assert(string.find(debug.traceback("hi", 0), "'debug.traceback'")) - assert(string.find(debug.traceback(), "^stack traceback:\\n")) - - do -- C-function names in traceback - local st, msg = (function () return pcall end)()(debug.traceback) - assert(st == true and string.find(msg, "pcall")) - end - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); - - }, "Lua program loaded without error"); - - t.doesNotThrow(function () { - - lua.lua_call(L, 0, -1); - - }, "Lua program ran without error"); - -}); - - -test("[test-suite] db: testing nparams, nups e isvararg", function (t) { - let luaCode = ` - local t = debug.getinfo(print, "u") - assert(t.isvararg == true and t.nparams == 0 and t.nups == 0) - - t = debug.getinfo(function (a,b,c) end, "u") - assert(t.isvararg == false and t.nparams == 3 and t.nups == 0) - - t = debug.getinfo(function (a,b,...) return t[a] end, "u") - assert(t.isvararg == true and t.nparams == 2 and t.nups == 1) - - t = debug.getinfo(1) -- main - assert(t.isvararg == true and t.nparams == 0 and t.nups == 1 and - debug.getupvalue(t.func, 1) == "_ENV") - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); - - }, "Lua program loaded without error"); - - t.doesNotThrow(function () { - - lua.lua_call(L, 0, -1); - - }, "Lua program ran without error"); - -}); - - -test("[test-suite] db: testing debugging of coroutines", function (t) { - let luaCode = ` - local function checktraceback (co, p, level) - local tb = debug.traceback(co, nil, level) - local i = 0 - for l in string.gmatch(tb, "[^\\n]+\\n?") do - assert(i == 0 or string.find(l, p[i])) - i = i+1 - end - assert(p[i] == nil) - end - - - local function f (n) - if n > 0 then f(n-1) - else coroutine.yield() end - end - - local co = coroutine.create(f) - coroutine.resume(co, 3) - checktraceback(co, {"yield", "db.lua", "db.lua", "db.lua", "db.lua"}) - checktraceback(co, {"db.lua", "db.lua", "db.lua", "db.lua"}, 1) - checktraceback(co, {"db.lua", "db.lua", "db.lua"}, 2) - checktraceback(co, {"db.lua"}, 4) - checktraceback(co, {}, 40) - - - co = coroutine.create(function (x) - local a = 1 - coroutine.yield(debug.getinfo(1, "l")) - coroutine.yield(debug.getinfo(1, "l").currentline) - return a - end) - - local tr = {} - local foo = function (e, l) if l then table.insert(tr, l) end end - debug.sethook(co, foo, "lcr") - - local _, l = coroutine.resume(co, 10) - local x = debug.getinfo(co, 1, "lfLS") - assert(x.currentline == l.currentline and x.activelines[x.currentline]) - assert(type(x.func) == "function") - for i=x.linedefined + 1, x.lastlinedefined do - assert(x.activelines[i]) - x.activelines[i] = nil - end - assert(next(x.activelines) == nil) -- no 'extra' elements - assert(not debug.getinfo(co, 2)) - local a,b = debug.getlocal(co, 1, 1) - assert(a == "x" and b == 10) - a,b = debug.getlocal(co, 1, 2) - assert(a == "a" and b == 1) - debug.setlocal(co, 1, 2, "hi") - assert(debug.gethook(co) == foo) - assert(#tr == 2 and - tr[1] == l.currentline-1 and tr[2] == l.currentline) - - a,b,c = pcall(coroutine.resume, co) - assert(a and b and c == l.currentline+1) - checktraceback(co, {"yield", "in function <"}) - - a,b = coroutine.resume(co) - assert(a and b == "hi") - assert(#tr == 4 and tr[4] == l.currentline+2) - assert(debug.gethook(co) == foo) - assert(not debug.gethook()) - checktraceback(co, {}) - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - let b = lua.to_luastring(luaCode); - if (lauxlib.luaL_loadbuffer(L, b, b.length, lua.to_luastring("@db.lua")) !== lua.LUA_OK) - throw Error(lua.lua_tojsstring(L, -1)); - - }, "Lua program loaded without error"); - - t.doesNotThrow(function () { - - lua.lua_call(L, 0, -1); - - }, "Lua program ran without error"); - -}); - - -test("[test-suite] db: check get/setlocal in coroutines", function (t) { - let luaCode = ` - co = coroutine.create(function (x) - local a, b = coroutine.yield(x) - assert(a == 100 and b == nil) - return x - end) - a, b = coroutine.resume(co, 10) - assert(a and b == 10) - a, b = debug.getlocal(co, 1, 1) - assert(a == "x" and b == 10) - assert(not debug.getlocal(co, 1, 5)) - assert(debug.setlocal(co, 1, 1, 30) == "x") - assert(not debug.setlocal(co, 1, 5, 40)) - a, b = coroutine.resume(co, 100) - assert(a and b == 30) - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); - - }, "Lua program loaded without error"); - - t.doesNotThrow(function () { - - lua.lua_call(L, 0, -1); - - }, "Lua program ran without error"); - -}); - - -test("[test-suite] db: check traceback of suspended (or dead with error) coroutines", function (t) { - let luaCode = ` - local function checktraceback (co, p, level) - local tb = debug.traceback(co, nil, level) - local i = 0 - for l in string.gmatch(tb, "[^\\n]+\\n?") do - assert(i == 0 or string.find(l, p[i])) - i = i+1 - end - assert(p[i] == nil) - end - - function f(i) if i==0 then error(i) else coroutine.yield(); f(i-1) end end - - co = coroutine.create(function (x) f(x) end) - a, b = coroutine.resume(co, 3) - t = {"'coroutine.yield'", "'f'", "in function <"} - while coroutine.status(co) == "suspended" do - checktraceback(co, t) - a, b = coroutine.resume(co) - table.insert(t, 2, "'f'") -- one more recursive call to 'f' - end - t[1] = "'error'" - checktraceback(co, t) - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); - - }, "Lua program loaded without error"); - - t.doesNotThrow(function () { - - lua.lua_call(L, 0, -1); - - }, "Lua program ran without error"); - -}); - - -test("[test-suite] db: check test acessing line numbers of a coroutine from a resume inside a C function", function (t) { - let luaCode = ` - local function g(x) - coroutine.yield(x) - end - - local function f (i) - debug.sethook(function () end, "l") - for j=1,1000 do - g(i+j) - end - end - - local co = coroutine.wrap(f) - co(10) - pcall(co) - pcall(co) - - - assert(type(debug.getregistry()) == "table") - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); - - }, "Lua program loaded without error"); - - t.doesNotThrow(function () { - - lua.lua_call(L, 0, -1); - - }, "Lua program ran without error"); - -}); - - -test("[test-suite] db: test tagmethod information", function (t) { - let luaCode = ` - local a = {} - local function f (t) - local info = debug.getinfo(1); - assert(info.namewhat == "metamethod") - a.op = info.name - return info.name - end - setmetatable(a, { - __index = f; __add = f; __div = f; __mod = f; __concat = f; __pow = f; - __mul = f; __idiv = f; __unm = f; __len = f; __sub = f; - __shl = f; __shr = f; __bor = f; __bxor = f; - __eq = f; __le = f; __lt = f; __unm = f; __len = f; __band = f; - __bnot = f; - }) - - local b = setmetatable({}, getmetatable(a)) - - assert(a[3] == "__index" and a^3 == "__pow" and a..a == "__concat") - assert(a/3 == "__div" and 3%a == "__mod") - assert(a+3 == "__add" and 3-a == "__sub" and a*3 == "__mul" and - -a == "__unm" and #a == "__len" and a&3 == "__band") - assert(a|3 == "__bor" and 3~a == "__bxor" and a<<3 == "__shl" and - a>>1 == "__shr") - assert (a==b and a.op == "__eq") - assert (a>=b and a.op == "__le") - assert (a>b and a.op == "__lt") - assert(~a == "__bnot") - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); - - }, "Lua program loaded without error"); - - t.doesNotThrow(function () { - - lua.lua_call(L, 0, -1); - - }, "Lua program ran without error"); - -}); - - -test("[test-suite] db: testing for-iterator name", function (t) { - let luaCode = ` - do - local function f() - assert(debug.getinfo(1).name == "for iterator") - end - - for i in f do end - end - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); - - }, "Lua program loaded without error"); - - t.doesNotThrow(function () { - - lua.lua_call(L, 0, -1); - - }, "Lua program ran without error"); - -}); - - -test("[test-suite] db: testing traceback sizes", function (t) { - let luaCode = ` - local function countlines (s) - return select(2, string.gsub(s, "\\n", "")) - end - - local function deep (lvl, n) - if lvl == 0 then - return (debug.traceback("message", n)) - else - return (deep(lvl-1, n)) - end - end - - local function checkdeep (total, start) - local s = deep(total, start) - local rest = string.match(s, "^message\\nstack traceback:\\n(.*)$") - local cl = countlines(rest) - -- at most 10 lines in first part, 11 in second, plus '...' - assert(cl <= 10 + 11 + 1) - local brk = string.find(rest, "%.%.%.") - if brk then -- does message have '...'? - local rest1 = string.sub(rest, 1, brk) - local rest2 = string.sub(rest, brk, #rest) - assert(countlines(rest1) == 10 and countlines(rest2) == 11) - else - assert(cl == total - start + 2) - end - end - - for d = 1, 51, 10 do - for l = 1, d do - -- use coroutines to ensure complete control of the stack - coroutine.wrap(checkdeep)(d, l) - end - end - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - let b = lua.to_luastring(luaCode); - if (lauxlib.luaL_loadbuffer(L, b, b.length, lua.to_luastring("@db.lua")) !== lua.LUA_OK) - throw Error(lua.lua_tojsstring(L, -1)); - - }, "Lua program loaded without error"); - - t.doesNotThrow(function () { - - lua.lua_call(L, 0, -1); - - }, "Lua program ran without error"); - -}); - - -test("[test-suite] db: testing debug functions on chunk without debug info", function (t) { - let luaCode = ` - prog = [[-- program to be loaded without debug information - local debug = require'debug' - local a = 12 -- a local variable - - local n, v = debug.getlocal(1, 1) - assert(n == "(*temporary)" and v == debug) -- unkown name but known value - n, v = debug.getlocal(1, 2) - assert(n == "(*temporary)" and v == 12) -- unkown name but known value - - -- a function with an upvalue - local f = function () local x; return a end - n, v = debug.getupvalue(f, 1) - assert(n == "(*no name)" and v == 12) - assert(debug.setupvalue(f, 1, 13) == "(*no name)") - assert(a == 13) - - local t = debug.getinfo(f) - assert(t.name == nil and t.linedefined > 0 and - t.lastlinedefined == t.linedefined and - t.short_src == "?") - assert(debug.getinfo(1).currentline == -1) - - t = debug.getinfo(f, "L").activelines - assert(next(t) == nil) -- active lines are empty - - -- dump/load a function without debug info - f = load(string.dump(f)) - - t = debug.getinfo(f) - assert(t.name == nil and t.linedefined > 0 and - t.lastlinedefined == t.linedefined and - t.short_src == "?") - assert(debug.getinfo(1).currentline == -1) - - return a - ]] - - - -- load 'prog' without debug info - local f = assert(load(string.dump(load(prog), true))) - - assert(f() == 13) - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); - - }, "Lua program loaded without error"); - - t.doesNotThrow(function () { - - lua.lua_call(L, 0, -1); - - }, "Lua program ran without error"); - -}); - - -test("[test-suite] db: tests for 'source' in binary dumps", function (t) { - let luaCode = ` - do - local prog = [[ - return function (x) - return function (y) - return x + y - end - end - ]] - local name = string.rep("x", 1000) - local p = assert(load(prog, name)) - -- load 'p' as a binary chunk with debug information - local c = string.dump(p) - assert(#c > 1000 and #c < 2000) -- no repetition of 'source' in dump - local f = assert(load(c)) - local g = f() - local h = g(3) - assert(h(5) == 8) - assert(debug.getinfo(f).source == name and -- all functions have 'source' - debug.getinfo(g).source == name and - debug.getinfo(h).source == name) - -- again, without debug info - local c = string.dump(p, true) - assert(#c < 500) -- no 'source' in dump - local f = assert(load(c)) - local g = f() - local h = g(30) - assert(h(50) == 80) - assert(debug.getinfo(f).source == '=?' and -- no function has 'source' - debug.getinfo(g).source == '=?' and - debug.getinfo(h).source == '=?') - end - `, L; - - t.plan(2); - - t.doesNotThrow(function () { - - L = lauxlib.luaL_newstate(); - - lualib.luaL_openlibs(L); - - lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); - - }, "Lua program loaded without error"); - - t.doesNotThrow(function () { - - lua.lua_call(L, 0, -1); - - }, "Lua program ran without error"); - -}); -- cgit v1.2.3-70-g09d2