Index: dashboard.scm ================================================================== --- dashboard.scm +++ dashboard.scm Index: megatest.scm ================================================================== --- megatest.scm +++ megatest.scm @@ -77,11 +77,11 @@ -runall : run all tests or as specified by -testpatt -remove-runs : remove the data for a run, requires -runname and -testpatt Optionally use :state and :status -set-state-status X,Y : set state to X and status to Y, requires controls per -remove-runs -rerun FAIL,WARN... : force re-run for tests with specificed status(s) - -clean-rerun : set all tests not COMPLETED+PASS,WARN,WAIVED to NOT_STARTED,n/a + -rerun-clean : set all tests not COMPLETED+PASS,WARN,WAIVED to NOT_STARTED,n/a and then run the specified testpatt with -preclean -lock : lock run specified by target and runname -unlock : unlock run specified by target and runname -set-run-status status : sets status for run to status, requires -target and -runname -get-run-status : gets status for run specified by target and runname @@ -265,11 +265,11 @@ "-load-test-data" "-summarize-items" "-gui" "-daemonize" "-preclean" - "-clean-rerun" + "-rerun-clean" ;; misc "-repl" "-lock" "-unlock" @@ -1148,17 +1148,17 @@ ;; process deferred tasks per above steps ;; run all tests are are Not COMPLETED and PASS or CHECK (if (or (args:get-arg "-runall") (args:get-arg "-run") - (args:get-arg "-clean-rerun") + (args:get-arg "-rerun-clean") (args:get-arg "-runtests")) (general-run-call "-runall" "run all tests" (lambda (target runname keys keyvals) - (if (args:get-arg "-clean-rerun") ;; first set states/statuses correct + (if (args:get-arg "-rerun-clean") ;; first set states/statuses correct (let ((states (or (configf:lookup *configdat* "validvalues" "cleanrerun-states") "KILLREQ,KILLED,UNKNOWN,INCOMPLETE,STUCK,NOT_STARTED")) (statuses (or (configf:lookup *configdat* "validvalues" "cleanrerun-statuses") "FAIL,INCOMPLETE,ABORT"))) (hash-table-set! args:arg-hash "-preclean" #t)