diff options
Diffstat (limited to 'testes/closure.lua')
| -rw-r--r-- | testes/closure.lua | 6 |
1 files changed, 4 insertions, 2 deletions
diff --git a/testes/closure.lua b/testes/closure.lua index 27ec5596..de1b54ec 100644 --- a/testes/closure.lua +++ b/testes/closure.lua | |||
| @@ -4,7 +4,7 @@ | |||
| 4 | print "testing closures" | 4 | print "testing closures" |
| 5 | 5 | ||
| 6 | local A,B = 0,{g=10} | 6 | local A,B = 0,{g=10} |
| 7 | function f(x) | 7 | local function f(x) |
| 8 | local a = {} | 8 | local a = {} |
| 9 | for i=1,1000 do | 9 | for i=1,1000 do |
| 10 | local y = 0 | 10 | local y = 0 |
| @@ -86,6 +86,7 @@ assert(r == 2 and s == "a") | |||
| 86 | 86 | ||
| 87 | 87 | ||
| 88 | -- testing closures with 'for' control variable x break | 88 | -- testing closures with 'for' control variable x break |
| 89 | local f | ||
| 89 | for i=1,3 do | 90 | for i=1,3 do |
| 90 | f = function () return i end | 91 | f = function () return i end |
| 91 | break | 92 | break |
| @@ -136,7 +137,7 @@ assert(b('get') == 'xuxu') | |||
| 136 | b('set', 10); assert(b('get') == 14) | 137 | b('set', 10); assert(b('get') == 14) |
| 137 | 138 | ||
| 138 | 139 | ||
| 139 | local w | 140 | local y, w |
| 140 | -- testing multi-level closure | 141 | -- testing multi-level closure |
| 141 | function f(x) | 142 | function f(x) |
| 142 | return function (y) | 143 | return function (y) |
| @@ -227,6 +228,7 @@ t() | |||
| 227 | -- test for debug manipulation of upvalues | 228 | -- test for debug manipulation of upvalues |
| 228 | local debug = require'debug' | 229 | local debug = require'debug' |
| 229 | 230 | ||
| 231 | local foo1, foo2, foo3 | ||
| 230 | do | 232 | do |
| 231 | local a , b, c = 3, 5, 7 | 233 | local a , b, c = 3, 5, 7 |
| 232 | foo1 = function () return a+b end; | 234 | foo1 = function () return a+b end; |
