aboutsummaryrefslogtreecommitdiff
path: root/spec/outputs/codes_from_doc_de.lua
diff options
context:
space:
mode:
Diffstat (limited to 'spec/outputs/codes_from_doc_de.lua')
-rw-r--r--spec/outputs/codes_from_doc_de.lua110
1 files changed, 110 insertions, 0 deletions
diff --git a/spec/outputs/codes_from_doc_de.lua b/spec/outputs/codes_from_doc_de.lua
index 2530977..e1346db 100644
--- a/spec/outputs/codes_from_doc_de.lua
+++ b/spec/outputs/codes_from_doc_de.lua
@@ -143,6 +143,61 @@ end
143do 143do
144 print(123, "hallo") 144 print(123, "hallo")
145end 145end
146local myFunc
147myFunc = function() end
148do
149 print("myFunc")
150end
151return
152-- before:tableA
153local tableA = { }
154local tableB = { }
155-- after:tableB
156return
157local registry = { }
158local Worker
159do
160 local _class_0
161 local _base_0 = {
162 run = function(self)
163 return "ok"
164 end
165 }
166 if _base_0.__index == nil then
167 _base_0.__index = _base_0
168 end
169 _class_0 = setmetatable({
170 __init = function() end,
171 __base = _base_0,
172 __name = "Worker"
173 }, {
174 __index = _base_0,
175 __call = function(cls, ...)
176 local _self_0 = setmetatable({ }, _base_0)
177 cls.__init(_self_0, ...)
178 return _self_0
179 end
180 })
181 _base_0.__class = _class_0
182 Worker = _class_0
183end
184do
185 registry["Worker"] = Worker
186end
187return
188local add
189add = function(a, b)
190 return a + b
191end
192do
193 local __orig_add = add
194 add = function(...)
195 for i = 1, select("#", ...) do
196 assert(type(select(i, ...)) == "number", "expected number for arg " .. tostring(i))
197 end
198 return __orig_add(...)
199 end
200end
146local area = 6.2831853071796 * 5 201local area = 6.2831853071796 * 5
147print('Hallo Welt') 202print('Hallo Welt')
148do 203do
@@ -194,6 +249,61 @@ end
194do 249do
195 print(123, "hallo") 250 print(123, "hallo")
196end 251end
252local myFunc
253myFunc = function() end
254do
255 print("myFunc")
256end
257return
258-- before:tableA
259local tableA = { }
260local tableB = { }
261-- after:tableB
262return
263local registry = { }
264local Worker
265do
266 local _class_0
267 local _base_0 = {
268 run = function(self)
269 return "ok"
270 end
271 }
272 if _base_0.__index == nil then
273 _base_0.__index = _base_0
274 end
275 _class_0 = setmetatable({
276 __init = function() end,
277 __base = _base_0,
278 __name = "Worker"
279 }, {
280 __index = _base_0,
281 __call = function(cls, ...)
282 local _self_0 = setmetatable({ }, _base_0)
283 cls.__init(_self_0, ...)
284 return _self_0
285 end
286 })
287 _base_0.__class = _class_0
288 Worker = _class_0
289end
290do
291 registry["Worker"] = Worker
292end
293return
294local add
295add = function(a, b)
296 return a + b
297end
298do
299 local __orig_add = add
300 add = function(...)
301 for i = 1, select("#", ...) do
302 assert(type(select(i, ...)) == "number", "expected number for arg " .. tostring(i))
303 end
304 return __orig_add(...)
305 end
306end
197xpcall(function() 307xpcall(function()
198 return func(1, 2, 3) 308 return func(1, 2, 3)
199end, function(err) 309end, function(err)