diff options
Diffstat (limited to '')
-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; |