diff options
Diffstat (limited to 'tests/test-suite')
| -rw-r--r-- | tests/test-suite/inprogress/db.js | 72 |
1 files changed, 20 insertions, 52 deletions
diff --git a/tests/test-suite/inprogress/db.js b/tests/test-suite/inprogress/db.js index 2481096..85dd5c0 100644 --- a/tests/test-suite/inprogress/db.js +++ b/tests/test-suite/inprogress/db.js @@ -12,9 +12,9 @@ const lualib = require('../../../src/lualib.js'); const prefix = ` local function dostring(s) return assert(load(s))() end - local testline = 4 -- line where 'test' is defined - function test (s, l, p) -- this must be line 4 - -- collectgarbage() -- avoid gc during trace + 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) @@ -27,54 +27,22 @@ const prefix = ` `; test("[test-suite] db: getinfo, ...line...", function (t) { - let luaCode = `-- $Id: db.lua,v 1.79 2016/11/07 13:02:34 roberto Exp $ - -- See Copyright Notice in file all.lua - - -- testing debug library - - local debug = require "debug" - - local function dostring(s) return assert(load(s))() end - - print"testing debug library and debug information" - - do - local a=1 - end - - assert(not debug.gethook()) - - local testline = 19 -- line where 'test' is defined - function test (s, l, p) -- this must be line 19 - collectgarbage() -- avoid gc during trace - 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 - - - do - 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]) - end + 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); @@ -85,7 +53,7 @@ test("[test-suite] db: getinfo, ...line...", function (t) { lualib.luaL_openlibs(L); - lauxlib.luaL_loadstring(L, lua.to_luastring(luaCode)); + lauxlib.luaL_loadstring(L, lua.to_luastring(prefix + luaCode)); }, "Lua program loaded without error"); |