xxx

Author: ligurio

tests/lapi/lib.lua

@@ -38,6 +38,8 @@ local MIN_INT64 = math.mininteger or -0x8000000000000000
 local MAX_INT =  0x7fffffff
 local MIN_INT = -0x80000000
 
+local MAX_STR_LEN = 4096
+
 local function bitwise_op(op_name)
     return function(...)
         local n = select("#", ...)
@@ -87,6 +89,7 @@ return {
     MIN_INT64 = MIN_INT64,
     MAX_INT = MAX_INT,
     MIN_INT = MIN_INT,
+    MAX_STR_LEN = MAX_STR_LEN,
 
     -- FDP.
     random_locale = random_locale,

tests/lapi/string_byte_test.lua

@@ -17,8 +17,7 @@ local test_lib = require("lib")
 local function TestOneInput(buf, _size)
     local fdp = luzer.FuzzedDataProvider(buf)
     os.setlocale(test_lib.random_locale(fdp), "all")
-    local max_len = fdp:consume_integer(0, test_lib.MAX_INT)
-    local str = fdp:consume_string(max_len)
+    local str = fdp:consume_string(test_lib.MAX_STR_LEN)
     local i = fdp:consume_integer(0, test_lib.MAX_INT)
     local j = fdp:consume_integer(0, test_lib.MAX_INT)
     assert(string.byte(str, i, j) == str:byte(i, j))

tests/lapi/string_dump_test.lua

@@ -20,8 +20,7 @@ local test_lib = require("lib")
 local function TestOneInput(buf, _size)
     local fdp = luzer.FuzzedDataProvider(buf)
     os.setlocale(test_lib.random_locale(fdp), "all")
-    local max_len = fdp:consume_string(1, test_lib.MAX_INT)
-    local str = fdp:consume_string(1, max_len)
+    local str = fdp:consume_string(test_lib.MAX_STR_LEN)
     local strip = fdp:consume_boolean()
     local ok, func = pcall(loadstring, str)
     if not ok or func == nil then

tests/lapi/string_find_test.lua

@@ -23,9 +23,8 @@ local test_lib = require("lib")
 local function TestOneInput(buf, _size)
     local fdp = luzer.FuzzedDataProvider(buf)
     os.setlocale(test_lib.random_locale(fdp), "all")
-    local max_len = fdp:consume_integer(0, test_lib.MAX_INT)
-    local str = fdp:consume_string(max_len)
-    local pattern = fdp:consume_string(max_len)
+    local str = 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)
     local plain = fdp:consume_boolean()
     -- Avoid errors like "malformed pattern (missing ']')".

tests/lapi/string_format_test.lua

@@ -67,8 +67,7 @@ local function TestOneInput(buf, _size)
     local fdp = luzer.FuzzedDataProvider(buf)
     local spec = fdp:oneof(specifiers)
     local format_string = ("%%%s"):format(spec)
-    local max_len = fdp:consume_integer(1, 10000)
-    local str = fdp:consume_string(1, max_len)
+    local str = fdp:consume_string(test_lib.MAX_STR_LEN)
 
     os.setlocale(test_lib.random_locale(fdp), "all")
     local ok, res = pcall(string.format, format_string, str)

tests/lapi/string_gmatch_test.lua

@@ -21,9 +21,8 @@ local test_lib = require("lib")
 local function TestOneInput(buf, _size)
     local fdp = luzer.FuzzedDataProvider(buf)
     os.setlocale(test_lib.random_locale(fdp), "all")
-    local len = fdp:consume_integer(0, test_lib.MAX_INT)
-    local s = fdp:consume_string(len)
-    local pattern = fdp:consume_string(len)
+    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)
     string.gmatch(s, pattern, init)
 end

tests/lapi/string_gsub_test.lua

@@ -23,10 +23,9 @@ local test_lib = require("lib")
 
 local function TestOneInput(buf, _size)
     local fdp = luzer.FuzzedDataProvider(buf)
-    local max_len = fdp:consume_string(0, test_lib.MAX_INT)
-    local str = fdp:consume_string(0, max_len)
-    local pattern = fdp:consume_string(0, max_len)
-    local repl = fdp:consume_string(0, max_len)
+    local str = fdp:consume_string(test_lib.MAX_STR_LEN)
+    local pattern = fdp:consume_string(test_lib.MAX_STR_LEN)
+    local repl = fdp:consume_string(test_lib.MAX_STR_LEN)
     local n = fdp:consume_integer(0, test_lib.MAX_INT)
 
     os.setlocale(test_lib.random_locale(fdp), "all")

tests/lapi/string_len_test.lua

@@ -14,8 +14,7 @@ local test_lib = require("lib")
 local function TestOneInput(buf, _size)
     local fdp = luzer.FuzzedDataProvider(buf)
     os.setlocale(test_lib.random_locale(fdp), "all")
-    local str_len = fdp:consume_integer(0, test_lib.MAX_INT)
-    local str = fdp:consume_string(str_len)
+    local str = fdp:consume_string(test_lib.MAX_STR_LEN)
     assert(string.len(str) == #str)
 end
 

tests/lapi/string_match_test.lua

@@ -14,9 +14,8 @@ local test_lib = require("lib")
 local function TestOneInput(buf, _size)
     local fdp = luzer.FuzzedDataProvider(buf)
     os.setlocale(test_lib.random_locale(fdp), "all")
-    local max_len = fdp:consume_integer(0, test_lib.MAX_INT)
-    local str = fdp:consume_string(max_len)
-    local pattern = fdp:consume_string(max_len)
+    local str = 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)
     -- Avoid errors like "malformed pattern (ends with '%')".
     local ok, res = pcall(string.match, str, pattern, init)

tests/lapi/string_pack_test.lua

@@ -11,8 +11,10 @@ Synopsis: string.pack(fmt, v1, v2, ...)
 local luzer = require("luzer")
 local test_lib = require("lib")
 
--- PUC Rio Lua only.
-if test_lib.lua_version() == "LuaJIT" then
+-- The function `string.pack()` is available since Lua 5.3.
+local _, version_major, version_minor = test_lib.lua_version()
+if version_major <= 5 and version_minor < 3 then
+    print("Unsupported version.")
     os.exit(0)
 end
 
@@ -24,7 +26,7 @@ local function TestOneInput(buf, _size)
         return -1
     end
     local n = fdp:consume_integer(1, test_lib.MAX_INT)
-    local values = fdp:consume_strings(test_lib.MAX_INT,  n)
+    local values = fdp:consume_strings(test_lib.MAX_STR_LEN,  n)
     string.pack(fmt_str, table.unpack(values))
 end