diff options
Diffstat (limited to 'testes')
-rw-r--r-- | testes/gc.lua | 14 | ||||
-rw-r--r-- | testes/gengc.lua | 6 |
2 files changed, 12 insertions, 8 deletions
diff --git a/testes/gc.lua b/testes/gc.lua index c26de406..5b39bac1 100644 --- a/testes/gc.lua +++ b/testes/gc.lua | |||
@@ -28,19 +28,21 @@ end | |||
28 | -- test weird parameters to 'collectgarbage' | 28 | -- test weird parameters to 'collectgarbage' |
29 | do | 29 | do |
30 | collectgarbage("incremental") | 30 | collectgarbage("incremental") |
31 | local opause = collectgarbage("setparam", "pause", 100) | 31 | local opause = collectgarbage("param", "pause", 100) |
32 | local ostepmul = collectgarbage("setparam", "stepmul", 100) | 32 | local ostepmul = collectgarbage("param", "stepmul", 100) |
33 | assert(collectgarbage("param", "pause") == 100) | ||
34 | assert(collectgarbage("param", "stepmul") == 100) | ||
33 | local t = {0, 2, 10, 90, 500, 5000, 30000, 0x7ffffffe} | 35 | local t = {0, 2, 10, 90, 500, 5000, 30000, 0x7ffffffe} |
34 | for i = 1, #t do | 36 | for i = 1, #t do |
35 | collectgarbage("setparam", "pause", t[i]) | 37 | collectgarbage("param", "pause", t[i]) |
36 | for j = 1, #t do | 38 | for j = 1, #t do |
37 | collectgarbage("setparam", "stepmul", t[j]) | 39 | collectgarbage("param", "stepmul", t[j]) |
38 | collectgarbage("step", t[j]) | 40 | collectgarbage("step", t[j]) |
39 | end | 41 | end |
40 | end | 42 | end |
41 | -- restore original parameters | 43 | -- restore original parameters |
42 | collectgarbage("setparam", "pause", opause) | 44 | collectgarbage("param", "pause", opause) |
43 | collectgarbage("setparam", "stepmul", ostepmul) | 45 | collectgarbage("param", "stepmul", ostepmul) |
44 | collectgarbage() | 46 | collectgarbage() |
45 | end | 47 | end |
46 | 48 | ||
diff --git a/testes/gengc.lua b/testes/gengc.lua index 51872cc1..c4f6ca1b 100644 --- a/testes/gengc.lua +++ b/testes/gengc.lua | |||
@@ -163,15 +163,17 @@ assert(collectgarbage'isrunning') | |||
163 | 163 | ||
164 | 164 | ||
165 | do print"testing stop-the-world collection" | 165 | do print"testing stop-the-world collection" |
166 | local step = collectgarbage("setparam", "stepsize", 0); | 166 | local step = collectgarbage("param", "stepsize", 0); |
167 | collectgarbage("incremental") | 167 | collectgarbage("incremental") |
168 | assert(collectgarbage("param", "stepsize") == 0) | ||
168 | 169 | ||
169 | -- each step does a complete cycle | 170 | -- each step does a complete cycle |
170 | assert(collectgarbage("step")) | 171 | assert(collectgarbage("step")) |
171 | assert(collectgarbage("step")) | 172 | assert(collectgarbage("step")) |
172 | 173 | ||
173 | -- back to default value | 174 | -- back to default value |
174 | collectgarbage("setparam", "stepsize", step); | 175 | collectgarbage("param", "stepsize", step); |
176 | assert(collectgarbage("param", "stepsize") == step) | ||
175 | end | 177 | end |
176 | 178 | ||
177 | collectgarbage(oldmode) | 179 | collectgarbage(oldmode) |