Megatest

Check-in [ddf07290ee]
Login
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: ddf07290ee9859660d09df78f5c640d23ac0c3a7
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
214


215
216
217
218
219
220
221
222
    ;; 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)


	)))
  
;;  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}







|
>
>
|







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}