207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
|
207
208
209
210
211
212
213
214
215
216
217
218
219
220
221
222
223
224
|
-
-
+
+
+
+
|
;; first verify we are able to write the output file
(if (not (file-read-access? infile))
(begin
(debug:print 2 *default-log-port* "ERROR: cannot read " infile)
(debug:print 2 *default-log-port* "ERROR: run-dir is " run-dir)
#f
)
(with-input-from-file infile read-lines)
)))
(let ((res (with-input-from-file infile read-lines)))
(if (null? res)
#f
(string-split (car res)))))))
;; select end_time-now from
;; (select testname,item_path,event_time+run_duration as
;; end_time,strftime('%s','now') as now from tests where state in
;; ('RUNNING','REMOTEHOSTSTART','LAUNCHED'));
;;
;; NOT EASY TO MIGRATE TO db{file,mod}
|