@@ -517,13 +517,14 @@ ;; time the and condition above is true (which ;; seems like always)? ((> (runs:dat-can-run-more-tests-count runsdat) 20) ;; original intent was - save cycles, wait a long time (if (runs:lownoise "waiting on tasks" 60)(debug:print-info 2 *default-log-port* "waiting for tasks to complete, sleeping briefly ...")) 10) ;; obviously haven't had any work to do for a while - (else - ;; if have a number for inter-test-delay, use it, else don't delay much, maybe even zero? - (configf:lookup-number *configdat* "setup" "inter-test-delay" default: 0.01)))) + (else 0))) +;; ;; if have a number for inter-test-delay, use it, else don't delay much, maybe even zero? +;; (configf:lookup-number *configdat* "setup" "inter-test-delay" default: 0.01) +;; ))) (let* ((num-running (rmt:get-count-tests-running run-id #f)) ;; fastmode=no (num-running-in-jobgroup (rmt:get-count-tests-running-in-jobgroup run-id jobgroup)) (job-group-limit (let ((jobg-count (configf:lookup *configdat* "jobgroups" jobgroup))) (if (string? jobg-count)