diff options
Diffstat (limited to 'testes')
| -rw-r--r-- | testes/locals.lua | 20 |
1 files changed, 20 insertions, 0 deletions
diff --git a/testes/locals.lua b/testes/locals.lua index ddb75054..d50beaa5 100644 --- a/testes/locals.lua +++ b/testes/locals.lua | |||
| @@ -360,6 +360,26 @@ do | |||
| 360 | end | 360 | end |
| 361 | 361 | ||
| 362 | 362 | ||
| 363 | do | ||
| 364 | -- bug in 5.4.4: 'break' may generate wrong 'close' instruction when | ||
| 365 | -- leaving a loop block. | ||
| 366 | |||
| 367 | local closed = false | ||
| 368 | |||
| 369 | local o1 = setmetatable({}, {__close=function() closed = true end}) | ||
| 370 | |||
| 371 | local function test() | ||
| 372 | for k, v in next, {}, nil, o1 do | ||
| 373 | local function f() return k end -- create an upvalue | ||
| 374 | break | ||
| 375 | end | ||
| 376 | assert(closed) | ||
| 377 | end | ||
| 378 | |||
| 379 | test() | ||
| 380 | end | ||
| 381 | |||
| 382 | |||
| 363 | do print("testing errors in __close") | 383 | do print("testing errors in __close") |
| 364 | 384 | ||
| 365 | -- original error is in __close | 385 | -- original error is in __close |