Overview
| Comment: | Deal better with malformed .final-status files |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80-revolution |
| Files: | files | file ages | folders |
| SHA1: |
ddf07290ee9859660d09df78f5c640d2 |
| User & Date: | mrwellan on 2024-01-26 09:43:00 |
| Other Links: | branch diff | manifest | tags |
Context
|
2024-01-26
| ||
| 09:44 | Put out useful message on bad timestring inputs from config files. check-in: 938ab5c99e user: mrwellan tags: v1.80-revolution | |
| 09:43 | Deal better with malformed .final-status files check-in: ddf07290ee user: mrwellan tags: v1.80-revolution | |
|
2024-01-23
| ||
| 18:57 | Changed get-cpu-load to commonmod:get-cpu-load in tests.scm check-in: 5939138243 user: mmgraham tags: v1.80-revolution | |
Changes
Modified rmtmod.scm from [052d2f8699] to [883a743d2f].
| ︙ | ︙ | |||
207 208 209 210 211 212 213 |
;; 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
)
| | > > | | 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
)
(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}
|
| ︙ | ︙ |