diff options
| author | Charles.Forsyth <devnull@localhost> | 2008-01-16 13:39:58 +0000 |
|---|---|---|
| committer | Charles.Forsyth <devnull@localhost> | 2008-01-16 13:39:58 +0000 |
| commit | 3f1f06c5d12b24c4061e5123acabf72348ff45a2 (patch) | |
| tree | d40487b0f5d3a46c5e1cefe288f9a74b8494d9a7 /appl/cmd/itest.b | |
| parent | ca1042d3d05e5e9b2b5094b04197c96ec3b34bfe (diff) | |
20080116-1340
Diffstat (limited to 'appl/cmd/itest.b')
| -rw-r--r-- | appl/cmd/itest.b | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/appl/cmd/itest.b b/appl/cmd/itest.b index aa24e4de..d96b0937 100644 --- a/appl/cmd/itest.b +++ b/appl/cmd/itest.b @@ -116,7 +116,7 @@ init(ctxt: ref Draw->Context, args: list of string) else rs = "s"; mreport(0, S_INFO, 2, sys->sprint("Starting tests - %s run%s of %d test%s", reps, rs, len testlist, ts)); run := big 1; - tlist := testlist; + if (recroot != nil) recn := highest(recroot) + 1; while (repcount == 0 || run <= big repcount) { @@ -259,7 +259,7 @@ runtest(t: ref Test) { if (t.failed) return; - path := t.fullspec; + if (cflag != -1) { mreport(0, S_INFO, 7, sys->sprint("Setting cflag to %d", cflag)); set_cflag(cflag); @@ -270,7 +270,7 @@ runtest(t: ref Test) display_file(readme); sync := chan of int; spawn monitor(t, sync); - pid := <-sync; + <-sync; } monitor(t: ref Test, sync: chan of int) @@ -299,7 +299,7 @@ monitor(t: ref Test, sync: chan of int) etime := -1; rsync := chan of int; spawn runit(t.fullspec, t.stdout, t.stderr, t.spec, pa[0], rsync); - rpid := <-rsync; + <-rsync; pa[0] = nil; (nwarns, nerrors, nfatals) := (0, 0, 0); while (1) { |