aboutsummaryrefslogtreecommitdiff
path: root/testes/locals.lua
diff options
context:
space:
mode:
Diffstat (limited to '')
-rw-r--r--testes/locals.lua8
1 files changed, 7 insertions, 1 deletions
diff --git a/testes/locals.lua b/testes/locals.lua
index 869ac1ff..28f88e54 100644
--- a/testes/locals.lua
+++ b/testes/locals.lua
@@ -371,6 +371,8 @@ do
371 x = x - 1 371 x = x - 1
372 if x > 0 then return x end 372 if x > 0 then return x end
373 end, 373 end,
374 nil, -- state
375 nil, -- control variable
374 function () -- closing function 376 function () -- closing function
375 numopen = numopen - 1 377 numopen = numopen - 1
376 end 378 end
@@ -392,12 +394,16 @@ do
392 -- repeat test with '__open' metamethod instead of a function 394 -- repeat test with '__open' metamethod instead of a function
393 local function open (x) 395 local function open (x)
394 numopen = numopen + 1 396 numopen = numopen + 1
397 local state = setmetatable({x},
398 {__close = function () numopen = numopen - 1 end})
395 return 399 return
396 function (t) -- iteraction function 400 function (t) -- iteraction function
397 t[1] = t[1] - 1 401 t[1] = t[1] - 1
398 if t[1] > 0 then return t[1] end 402 if t[1] > 0 then return t[1] end
399 end, 403 end,
400 setmetatable({x}, {__close = function () numopen = numopen - 1 end}) 404 state,
405 nil,
406 state -- to-be-closed
401 end 407 end
402 408
403 local s = 0 409 local s = 0