GC tests now finally part of testsuite

This commit is contained in:
Araq 2011-11-10 02:13:02 +01:00
commit 2bd14f4ba8
11 changed files with 79 additions and 672 deletions

View file

@ -357,6 +357,19 @@ proc runDLLTests(r: var TResults, options: string) =
runBasicDLLTest c, r, options & " --gc:boehm"
runBasicDLLTest c, r, options & " -d:release --gc:boehm"
# ------------------------------ GC tests -------------------------------------
proc runGcTests(r: var TResults, options: string) =
template test(filename: expr): stmt =
runSingleTest(r, "tests/gc" / filename, options)
runSingleTest(r, "tests/gc" / filename, options & " -d:release")
test "gcbench"
test "gcleak"
test "gcleak2"
test "gctest"
# disabled for now as it somehow runs very slowly ('delete' bug?) but works:
test "gcleak3"
# -----------------------------------------------------------------------------
@ -410,6 +423,7 @@ proc main() =
run(runRes, "tests/accept/run", p.cmdLineRest.string)
runRodFiles(runRes, p.cmdLineRest.string)
runDLLTests(runRes, p.cmdLineRest.string)
runGCTests(runRes, p.cmdLineRest.string)
writeResults(runJson, runRes)
of "merge":
var rejectRes = readResults(rejectJson)
@ -421,6 +435,10 @@ proc main() =
var r = initResults()
runDLLTests r, p.cmdLineRest.string
echo r.data, r
of "gc":
var r = initResults()
runGCTests(r, p.cmdLineRest.string)
echo r.data, r
of "test":
var r = initResults()
if p.kind != cmdArgument: quit usage