tests/lapi: add debug tests

Author: ligurio

tests/lapi/debug_getinfo_test.lua

@@ -0,0 +1,32 @@
+--[[
+SPDX-License-Identifier: ISC
+Copyright (c) 2023-2025, Sergey Bronnikov.
+
+Parameter 'what' of 'debug.getinfo' cannot start with '>',
+https://www.lua.org/bugs.html#5.4.2-2
+
+Access to debug information in line hook of stripped function,
+https://github.com/lua/lua/commit/ae5b5ba529753c7a653901ffc29b5ea24c3fdf3a
+
+Return hook may not see correct values for active local variables when function returns,
+https://www.lua.org/bugs.html#5.3.0-4
+
+Synopsis: debug.getinfo([thread,] function [, what])
+]]
+
+local luzer = require("luzer")
+
+local function debug_hook()
+    -- TODO: getinfo
+end
+
+local function TestOneInput(buf)
+    debug.sethook(debug_hook, "crl")
+    assert(loadstring(buf))()
+    debug.sethook(debug_hook)
+end
+
+local args = {
+    artifact_prefix = "debug_getinfo_",
+}
+luzer.Fuzz(TestOneInput, nil, args)

tests/lapi/debug_getlocal_test.lua

@@ -0,0 +1,29 @@
+--[[
+SPDX-License-Identifier: ISC
+Copyright (c) 2023-2025, Sergey Bronnikov.
+
+Negation overflow in getlocal/setlocal,
+https://github.com/lua/lua/commit/a585eae6e7ada1ca9271607a4f48dfb17868ab7b
+
+debug.getlocal on a coroutine suspended in a hook can crash the interpreter,
+https://www.lua.org/bugs.html#5.3.0-2
+
+Synopsis: debug.getlocal([thread,] level, local)
+]]
+
+local luzer = require("luzer")
+
+local function debug_hook()
+    -- TODO: getlocal
+end
+
+local function TestOneInput(buf)
+    debug.sethook(debug_hook, "crl")
+    assert(loadstring(buf))()
+    debug.sethook(debug_hook)
+end
+
+local args = {
+    artifact_prefix = "debug_getlocal_",
+}
+luzer.Fuzz(TestOneInput, nil, args)

tests/lapi/debug_getupvalue_test.lua

@@ -0,0 +1,26 @@
+--[[
+SPDX-License-Identifier: ISC
+Copyright (c) 2023-2025, Sergey Bronnikov.
+
+lua_getupvalue and lua_setupvalue do not check for index too small,
+https://www.lua.org/bugs.html#5.0.2-2
+
+Synopsis: debug.getupvalue (f, up)
+]]
+
+local luzer = require("luzer")
+
+local function debug_hook()
+    -- TODO: getupvalue
+end
+
+local function TestOneInput(buf)
+    debug.sethook(debug_hook, "crl")
+    assert(loadstring(buf))()
+    debug.sethook(debug_hook)
+end
+
+local args = {
+    artifact_prefix = "debug_getupvalue_",
+}
+luzer.Fuzz(TestOneInput, nil, args)