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 c2453677..ea038e82 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 |
@@ -89,6 +89,7 @@ assert(r == "a" and s == "b") | |||
89 | 89 | ||
90 | 90 | ||
91 | -- testing closures with 'for' control variable x break | 91 | -- testing closures with 'for' control variable x break |
92 | local f | ||
92 | for i=1,3 do | 93 | for i=1,3 do |
93 | f = function () return i end | 94 | f = function () return i end |
94 | break | 95 | break |
@@ -139,7 +140,7 @@ assert(b('get') == 'xuxu') | |||
139 | b('set', 10); assert(b('get') == 14) | 140 | b('set', 10); assert(b('get') == 14) |
140 | 141 | ||
141 | 142 | ||
142 | local w | 143 | local y, w |
143 | -- testing multi-level closure | 144 | -- testing multi-level closure |
144 | function f(x) | 145 | function f(x) |
145 | return function (y) | 146 | return function (y) |
@@ -230,6 +231,7 @@ t() | |||
230 | -- test for debug manipulation of upvalues | 231 | -- test for debug manipulation of upvalues |
231 | local debug = require'debug' | 232 | local debug = require'debug' |
232 | 233 | ||
234 | local foo1, foo2, foo3 | ||
233 | do | 235 | do |
234 | local a , b, c = 3, 5, 7 | 236 | local a , b, c = 3, 5, 7 |
235 | foo1 = function () return a+b end; | 237 | foo1 = function () return a+b end; |