@@ -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