diff options
Diffstat (limited to 'testes/gc.lua')
| -rw-r--r-- | testes/gc.lua | 11 |
1 files changed, 7 insertions, 4 deletions
diff --git a/testes/gc.lua b/testes/gc.lua index d7e0c4ff..61b5da9c 100644 --- a/testes/gc.lua +++ b/testes/gc.lua | |||
| @@ -27,17 +27,20 @@ end | |||
| 27 | 27 | ||
| 28 | -- test weird parameters to 'collectgarbage' | 28 | -- test weird parameters to 'collectgarbage' |
| 29 | do | 29 | do |
| 30 | collectgarbage("incremental") | ||
| 31 | local opause = collectgarbage("setparam", "pause", 100) | ||
| 32 | local ostepmul = collectgarbage("setparam", "stepmul", 100) | ||
| 30 | local t = {0, 2, 10, 90, 500, 5000, 30000, 0x7ffffffe} | 33 | local t = {0, 2, 10, 90, 500, 5000, 30000, 0x7ffffffe} |
| 31 | for i = 1, #t do | 34 | for i = 1, #t do |
| 32 | local p = t[i] | 35 | collectgarbage("setparam", "pause", t[i]) |
| 33 | for j = 1, #t do | 36 | for j = 1, #t do |
| 34 | local m = t[j] | 37 | collectgarbage("setparam", "stepmul", t[j]) |
| 35 | collectgarbage("incremental", p, m) | ||
| 36 | collectgarbage("step") | 38 | collectgarbage("step") |
| 37 | end | 39 | end |
| 38 | end | 40 | end |
| 39 | -- restore original parameters | 41 | -- restore original parameters |
| 40 | collectgarbage("incremental", 200, 300) | 42 | collectgarbage("setparam", "pause", opause) |
| 43 | collectgarbage("setparam", "stepmul", ostepmul) | ||
| 41 | collectgarbage() | 44 | collectgarbage() |
| 42 | end | 45 | end |
| 43 | 46 | ||
