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
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
181
182
183
184
185
186
187
188
|
local _anon_func_0 = function(assert, select, _arg_0, ...)
local ok = _arg_0
local count = select('#', ...)
assert.same(count, 5)
return assert.same(ok, true)
end
local _anon_func_1 = function(assert, select, ...)
local first = select(1, ...)
local second = select(2, ...)
local third = select(3, ...)
assert.same(first, 10)
assert.same(second, 20)
return assert.same(third, 30)
end
local _anon_func_2 = function(assert, select, _arg_0, ...)
local success = _arg_0
assert.is_true(success)
return assert.same(select('#', ...), 3)
end
local _anon_func_3 = function(assert, select, ...)
local count = select('#', ...)
return assert.same(count, 0)
end
local _anon_func_4 = function(assert, select, _arg_0, ...)
local a = _arg_0
assert.same(a, "first")
return assert.same(select('#', ...), 3)
end
local _anon_func_5 = function(assert, select, ...)
local count = select('#', ...)
assert.same(count, 5)
assert.same(select(1, ...), 1)
assert.same(select(2, ...), nil)
return assert.same(select(3, ...), 2)
end
local _anon_func_6 = function(assert, select, ...)
local count = select('#', ...)
return assert.same(count, 3)
end
local _anon_func_7 = function(a, assert, select, _arg_1, ...)
local b = _arg_1
assert.same(a, 1)
assert.same(b, 4)
return assert.same(select('#', ...), 2)
end
local _anon_func_8 = function(assert, sum, ...)
local result = sum(...)
return assert.same(result, 15)
end
local _anon_func_9 = function(assert, string, ...)
local result = string.format("str: %s, num: %d, bool: %s", ...)
return assert.same(result, "str: hello, num: 123, bool: true")
end
local _anon_func_10 = function(assert, select, ...)
local count = select('#', ...)
assert.same(count, 1)
return assert.same(select(1, ...), 42)
end
local _anon_func_11 = function(assert, inner, _arg_0, _arg_1, ...)
local a, b = _arg_0, _arg_1
local c, d = inner()
assert.same(a, 1)
assert.same(b, 2)
assert.same(c, 4)
return assert.same(d, 5)
end
return describe("varargs assignment", function()
it("should assign varargs from function", function()
local list = {
1,
2,
3,
4,
5
}
local fn
fn = function(ok)
return ok, table.unpack(list)
end
return _anon_func_0(assert, select, fn(true))
end)
it("should access varargs elements", function()
local list = {
10,
20,
30
}
local fn
fn = function()
return table.unpack(list)
end
return _anon_func_1(assert, select, fn())
end)
it("should work with pcall", function()
local fn
fn = function()
return 1, 2, 3
end
return _anon_func_2(assert, select, pcall(fn))
end)
it("should handle empty varargs", function()
local fn
fn = function() end
return _anon_func_3(assert, select, fn())
end)
it("should work with mixed return values", function()
local fn
fn = function()
return "first", nil, "third", false
end
return _anon_func_4(assert, select, fn())
end)
it("should preserve nil values in varargs", function()
local fn
fn = function()
return 1, nil, 2, nil, 3
end
return _anon_func_5(assert, select, fn())
end)
it("should work with table.unpack", function()
local tb = {
a = 1,
b = 2,
c = 3
}
local fn
fn = function()
return table.unpack(tb)
end
return _anon_func_6(assert, select, fn())
end)
it("should chain varargs assignment", function()
local fn1
fn1 = function()
return 1, 2, 3
end
local fn2
fn2 = function()
return table.unpack({
4,
5,
6
})
end
return (function(_arg_0, ...)
local a = _arg_0
return _anon_func_7(a, assert, select, fn2())
end)(fn1())
end)
it("should work in expressions", function()
local sum
sum = function(...)
local total = 0
for i = 1, select('#', ...) do
if type(select(i, ...)) == "number" then
total = total + select(i, ...)
end
end
return total
end
local fn
fn = function()
return 1, 2, 3, 4, 5
end
return _anon_func_8(assert, sum, fn())
end)
it("should work with string.format", function()
return _anon_func_9(assert, string, "hello", 123, true)
end)
it("should handle single return value", function()
local fn
fn = function()
return 42
end
return _anon_func_10(assert, select, fn())
end)
return it("should work with nested functions", function()
local outer
outer = function()
return 1, 2, 3
end
local inner
inner = function()
return 4, 5
end
return _anon_func_11(assert, inner, outer())
end)
end)
|
