Index: genexample.scm ================================================================== --- genexample.scm +++ genexample.scm @@ -452,16 +452,19 @@ (let* ((step-name (vector-ref teststep 0))) (print step-name " sleep [refdb lookup #{getenv MT_RUN_AREA_HOME}/" stepsrdb " " testname " $MT_ITEM_PATH " step-name "]"))) test-steps) ;; now the requirements section - (print "\n[requirements]") - (for-each - (lambda (entry) - (print (car entry) " " (cadr entry))) ;; it is not an alist - (configf:get-section testconfig "requirements")) - + (if testconfig + (begin + (print "\n[requirements]") + (for-each + (lambda (entry) + (print (car entry) " " (cadr entry))) ;; it is not an alist + (configf:get-section testconfig "requirements"))) + (print "WARNING: No testconfig data for " testname ", " item-path)) + (print "[items]") (print "THE_ITEM [refdb getrow #{getenv MT_RUN_AREA_HOME}/miscinfo itemsinfo #{getenv MT_TESTNAME}| awk '{print $1}'") ))) ;; fill the stepsrdb Index: runs.scm ================================================================== --- runs.scm +++ runs.scm @@ -102,12 +102,12 @@ (runs:dat-last-fuel-check-set! rdat (current-seconds)))))) ;; Fourth try, do accounting through time ;; (define (runs:parallel-runners-mgmt rdat) - (let ((time-to-check 10) ;; 28 - (time-to-wait 30) + (let ((time-to-check (configf:lookup-number *configdat* "runners" "time-to-check" default: 10)) ;; 28 + (time-to-wait (configf:lookup-number *configdat* "runners" "time-to-wait" default: 30)) (now-time (current-seconds))) (if (> (- now-time (runs:dat-last-fuel-check rdat)) time-to-check) ;; time to check (runs:wait-on-softlock rdat "runners")))) ;; To test parallel-runners management start a repl: