tests/lapi: package tests

Author: ligurio

tests/lapi/package_require_test.lua

@@ -0,0 +1,55 @@
+--[[
+SPDX-License-Identifier: ISC
+Copyright (c) 2023-2025, Sergey Bronnikov.
+
+5.3 – Modules
+https://www.lua.org/manual/5.1/manual.html#5.3
+
+PIL: 15 – Packages
+https://www.lua.org/pil/15.html
+
+Synopsis: require(modname)
+]]
+
+local luzer = require("luzer")
+local test_lib = require("lib")
+local MAX_INT = test_lib.MAX_INT
+
+local function setenv(key, value)
+    local env = ("export %s=%s"):format(key, value)
+    os.execute(env)
+end
+
+local function build_path(fdp)
+    local max_len = fdp:consume_number(0, 100)
+    local count = fdp:consume_number(0, 5)
+    local paths = fdp:consume_strings(max_len, count)
+    local path_str = table.concat(paths, ";")
+    local def_path = fdp:consume_boolean()
+    return def_path and path_str or path_str .. ";;"
+end
+
+local function TestOneInput(buf)
+    local fdp = luzer.FuzzedDataProvider(buf)
+
+    local lua_path = build_path(fdp)
+    setenv("LUA_PATH", lua_path)
+    package.path = lua_path
+
+    local lua_cpath = build_path(fdp)
+    setenv("LUA_CPATH", lua_cpath)
+    package.cpath = lua_cpath
+
+    local max_len = fdp:consume_number(0, MAX_INT)
+    local module_name = fdp:consume_string(max_len)
+    pcall(require, module_name)
+
+    -- Teardown.
+    setenv("LUA_PATH", "")
+    setenv("LUA_CPATH", "")
+end
+
+local args = {
+    artifact_prefix = "package_require_",
+}
+luzer.Fuzz(TestOneInput, nil, args)