99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
|
(if (and (file-exists? test-rundir)
(directory? test-rundir))
(begin
(push-directory test-rundir)
(set! tconfig (mt:lazy-read-test-config test-dat))
(pop-directory)
(for-each (lambda (trigger)
(let ((cmd (configf:lookup tconfig "triggers" trigger)))
(if cmd
(system (conc cmd " " test-id " " test-rundir " " trigger " 2&>1 " test-rundir "/last-trigger.log")))))
(list
(conc newstate "/" newstatus)
(conc newstate "/")
(conc "/" newstatus)))))))
;;======================================================================
;; S T A T E A N D S T A T U S F O R T E S T S
|
|
>
|
|
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
|
(if (and (file-exists? test-rundir)
(directory? test-rundir))
(begin
(push-directory test-rundir)
(set! tconfig (mt:lazy-read-test-config test-dat))
(pop-directory)
(for-each (lambda (trigger)
(let ((cmd (configf:lookup tconfig "triggers" trigger))
(logf (conc test-rundir "/last-trigger.log")))
(if cmd
(system (conc "(" cmd " " test-id " " test-rundir " " trigger ") >> " logf " 2>&1")))))
(list
(conc newstate "/" newstatus)
(conc newstate "/")
(conc "/" newstatus)))))))
;;======================================================================
;; S T A T E A N D S T A T U S F O R T E S T S
|