diff options
Diffstat (limited to '')
-rw-r--r-- | testes/locals.lua | 8 |
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 |