aboutsummaryrefslogtreecommitdiff
path: root/testes
diff options
context:
space:
mode:
Diffstat (limited to 'testes')
-rw-r--r--testes/gc.lua14
-rw-r--r--testes/gengc.lua6
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'
29do 29do
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()
45end 47end
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
165do print"testing stop-the-world collection" 165do 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)
175end 177end
176 178
177collectgarbage(oldmode) 179collectgarbage(oldmode)