emmylua_check: fix warnings

Author: ligurio

tests/lapi/lib.lua

@@ -63,6 +63,7 @@ local function bitwise_op(op_name)
     return function(...)
         local n = select("#", ...)
         assert(n > 0)
+        ---@type string
         local chunk
         -- Bitwise exclusive OR and bitwise NOT have the same
         -- operator.
@@ -76,6 +77,9 @@ local function bitwise_op(op_name)
             local op_name_ws = (" %s "):format(op_name)
             chunk = "return " .. table.concat({...}, op_name_ws)
         end
+        -- `load` accepts a reader function or a Lua literal chunk
+        -- type, not a dynamically built string; the call is valid.
+        ---@diagnostic disable-next-line: param-type-mismatch
         return assert(load(chunk))()
     end
 end

tests/lapi/math_log_test.lua

@@ -22,6 +22,7 @@ local test_lib = require("lib")
 -- Libraries.
 --
 -- 1. https://www.lua.org/manual/5.3/manual.html
+---@type fun(x: number, y: number): number
 local pow
 if test_lib.lua_current_version_ge_than(5, 3) then
     pow = test_lib.math_pow

tests/lapi/string_gmatch_test.lua

@@ -25,6 +25,9 @@ local function TestOneInput(buf, _size)
     local s = fdp:consume_string(test_lib.MAX_STR_LEN)
     local pattern = fdp:consume_string(test_lib.MAX_STR_LEN)
     local init = fdp:consume_integer(0, test_lib.MAX_INT)
+    -- The `init` parameter is a Lua 5.4 extension; the emmylua stdlib
+    -- model is configured for LuaJIT, which knows only two parameters.
+    ---@diagnostic disable-next-line: redundant-parameter
     string.gmatch(s, pattern, init)
 end
 

tests/lapi/table_sort_test.lua

@@ -17,6 +17,7 @@ local test_lib = require("lib")
 local MIN_INT = test_lib.MIN_INT64
 local MAX_INT = test_lib.MAX_INT64
 
+---@return (integer | string)[]
 local function random_table(fdp, n)
     local count = fdp:consume_integer(0, n)
     local item_type = fdp:oneof({ "number", "string" })

tests/lapi/utf8_codepoint_test.lua

@@ -27,6 +27,9 @@ local function TestOneInput(buf)
     local j = fdp:consume_integer(0, MAX_INT)
     local lax = fdp:consume_boolean()
     os.setlocale(test_lib.random_locale(fdp), "all")
+    -- The `lax` parameter is a Lua 5.4 extension; the emmylua stdlib
+    -- model is configured for LuaJIT and counts arguments loosely.
+    ---@diagnostic disable-next-line: redundant-parameter
     pcall(utf8.codepoint, s, i, j, lax)
 end
 

tests/lapi/utf8_codes_test.lua

@@ -28,6 +28,9 @@ local function TestOneInput(buf)
     local s = fdp:consume_string(max_len)
     local lax = fdp:consume_boolean()
     os.setlocale(test_lib.random_locale(fdp), "all")
+    -- The `lax` parameter is a Lua 5.4 extension; the emmylua stdlib
+    -- model is configured for LuaJIT and counts arguments loosely.
+    ---@diagnostic disable-next-line: redundant-parameter
     pcall(utf8.codes, s, lax)
 end
 

tests/lapi/utf8_len_test.lua

@@ -27,6 +27,9 @@ local function TestOneInput(buf)
     local j = fdp:consume_integer(0, MAX_INT)
     local lax = fdp:consume_boolean()
     os.setlocale(test_lib.random_locale(fdp), "all")
+    -- The `lax` parameter is a Lua 5.4 extension; the emmylua stdlib
+    -- model is configured for LuaJIT and counts arguments loosely.
+    ---@diagnostic disable-next-line: redundant-parameter
     pcall(utf8.len, s, i, j, lax)
 end