diff options
Diffstat (limited to 'testes')
| -rw-r--r-- | testes/nextvar.lua | 7 |
1 files changed, 6 insertions, 1 deletions
diff --git a/testes/nextvar.lua b/testes/nextvar.lua index 7e5bed56..098e7891 100644 --- a/testes/nextvar.lua +++ b/testes/nextvar.lua | |||
| @@ -905,13 +905,18 @@ local function foo1 (e,i) | |||
| 905 | if i <= e.n then return i,a[i] end | 905 | if i <= e.n then return i,a[i] end |
| 906 | end | 906 | end |
| 907 | 907 | ||
| 908 | setmetatable(a, {__pairs = function (x) return foo, x, 0 end}) | 908 | local closed = false |
| 909 | setmetatable(a, {__pairs = function (x) | ||
| 910 | local tbc = setmetatable({}, {__close = function () closed = true end}) | ||
| 911 | return foo, x, 0, tbc | ||
| 912 | end}) | ||
| 909 | 913 | ||
| 910 | local i = 0 | 914 | local i = 0 |
| 911 | for k,v in pairs(a) do | 915 | for k,v in pairs(a) do |
| 912 | i = i + 1 | 916 | i = i + 1 |
| 913 | assert(k == i and v == k+1) | 917 | assert(k == i and v == k+1) |
| 914 | end | 918 | end |
| 919 | assert(closed) -- 'tbc' has been closed | ||
| 915 | 920 | ||
| 916 | a.n = 5 | 921 | a.n = 5 |
| 917 | a[3] = 30 | 922 | a[3] = 30 |
