1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
-- See Copyright Notice in the file LICENSE
local luatest = require "luatest"
local N = luatest.NT
local function norm(a) return a==nil and N or a end
local function get_gsub (lib)
return lib.gsub or
function (subj, pattern, repl, n)
return lib.new (pattern) : gsub (subj, repl, n)
end
end
local function set_f_gsub1 (lib, flg)
local subj, pat = "abcdef", "[abef]+"
return {
Name = "Function gsub, set1",
Func = get_gsub (lib),
--{ s, p, f, n, res1, res2, res3 },
{ {"a\0c", ".", "#" }, {"###", 3, 3} }, -- subj contains nuls
}
end
local function set_f_find (lib, flg)
return {
Name = "Function find",
Func = lib.find,
--{subj, patt, st,cf,ef}, { results }
{ {"a\0c", ".+"}, { 1,3 } }, -- subj contains nul
{ {"a\0c", "a\0c", N,flg.PEND}, { 1,3 } }, -- subj and patt contain nul
}
end
local function set_f_match (lib, flg)
return {
Name = "Function match",
Func = lib.match,
--{subj, patt, st,cf,ef}, { results }
{ {"a\0c", ".+"}, {"a\0c"} }, -- subj contains nul
{ {"a\0c", "a\0c", N,flg.PEND}, {"a\0c"} }, -- subj and patt contain nul
}
end
local function set_f_gmatch (lib, flg)
-- gmatch (s, p, [cf], [ef])
local function test_gmatch (subj, patt)
local out, guard = {}, 10
for a, b in lib.gmatch (subj, patt) do
table.insert (out, { norm(a), norm(b) })
guard = guard - 1
if guard == 0 then break end
end
return unpack (out)
end
return {
Name = "Function gmatch",
Func = test_gmatch,
--{ subj patt results }
{ {"a\0c", "." }, {{"a",N},{"\0",N},{"c",N}} },--nuls in subj
}
end
local function set_f_split (lib, flg)
-- split (s, p, [cf], [ef])
local function test_split (subj, patt)
local out, guard = {}, 10
for a, b, c in lib.split (subj, patt) do
table.insert (out, { norm(a), norm(b), norm(c) })
guard = guard - 1
if guard == 0 then break end
end
return unpack (out)
end
return {
Name = "Function split",
Func = test_split,
--{ subj patt results }
{ {"a,\0,c", ","}, {{"a",",",N},{"\0",",",N},{"c",N,N}, } },--nuls in subj
}
end
local function set_m_exec (lib, flg)
return {
Name = "Method exec",
Method = "exec",
-- {patt,cf}, {subj,st,ef} { results }
{ {".+"}, {"a\0c"}, {1,3,{}} }, -- subj contains nul
{ {"a\0c",flg.PEND}, {"a\0c"}, {1,3,{}} }, -- subj and patt contain nul
}
end
local function set_m_tfind (lib, flg)
return {
Name = "Method tfind",
Method = "tfind",
-- {patt,cf}, {subj,st,ef} { results }
{ {".+"}, {"a\0c"}, {1,3,{}} }, -- subj contains nul
{ {"a\0c",flg.PEND}, {"a\0c"}, {1,3,{}} }, -- subj and patt contain nul
}
end
return function (libname)
local lib = require (libname)
local flags = lib.flags ()
return {
set_f_match (lib, flags),
set_f_find (lib, flags),
set_f_gmatch (lib, flags),
set_f_gsub1 (lib, flags),
set_m_exec (lib, flags),
set_m_tfind (lib, flags),
}
end
|