485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
|
(lambda (entry)
(let* ((key (car entry))
(val (cadr entry)))
(case (string->symbol key)
((waiton) (print "waiton " (obfuscate val)))
(else (print key " " val)))))
(configf:get-section testconfig "requirements")))
(print "WARNING: No testconfig data for " testname ", " item-path))
(print "\n[items]")
(print "THE_ITEM [refdb getrow #{getenv MT_RUN_AREA_HOME}/miscinfo itemsinfo " (obfuscate testname)" | awk '{print $1}']")
)))
;; fill the stepsrdb
(for-each
|
|
|
485
486
487
488
489
490
491
492
493
494
495
496
497
498
499
|
(lambda (entry)
(let* ((key (car entry))
(val (cadr entry)))
(case (string->symbol key)
((waiton) (print "waiton " (obfuscate val)))
(else (print key " " val)))))
(configf:get-section testconfig "requirements")))
#;(print "WARNING: No testconfig data for " testname ", " item-path))
(print "\n[items]")
(print "THE_ITEM [refdb getrow #{getenv MT_RUN_AREA_HOME}/miscinfo itemsinfo " (obfuscate testname)" | awk '{print $1}']")
)))
;; fill the stepsrdb
(for-each
|