Overview
| Comment: | wip |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.81-dechatter | v1.81-fix-extract-scripts |
| Files: | files | file ages | folders |
| SHA1: |
5a118f1a5175c8346fed5d1f6c94b08d |
| User & Date: | matt on 2024-08-23 01:25:48 |
| Other Links: | branch diff | manifest | tags |
Context
|
2024-08-23
| ||
| 01:26 | Added simple run for testing server chatter check-in: ad27901967 user: matt tags: v1.81-dechatter, v1.81-fix-extract-scripts | |
| 01:25 | wip check-in: 5a118f1a51 user: matt tags: v1.81-dechatter, v1.81-fix-extract-scripts | |
|
2024-08-19
| ||
| 20:17 | dechatter steps check-in: 545878c107 user: matt tags: v1.81-dechatter, v1.81-fix-extract-scripts | |
Changes
Modified launch.scm from [aa2fedc7f8] to [ea946b9c71].
| ︙ | ︙ | |||
284 285 286 287 288 289 290 |
;;
(if (common:low-noise-print 600 "run zombie") ;; every five minutes is plenty
(launch:handle-zombie-tests run-id))
(when do-sync
;; (tests:update-central-meta-info run-id test-id new-cpu-load new-disk-free (calc-minutes) #f #f)
| | > > | | < | 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 299 300 301 302 303 304 |
;;
(if (common:low-noise-print 600 "run zombie") ;; every five minutes is plenty
(launch:handle-zombie-tests run-id))
(when do-sync
;; (tests:update-central-meta-info run-id test-id new-cpu-load new-disk-free (calc-minutes) #f #f)
(let ((oup (open-output-file (conc work-area"/.run-logging-stats.csv") :append))
(csv (conc run-id","test-id","new-cpu-load","new-disk-free","(calc-minutes))))
(debug:print 0 *default-log-port* "Updating run log, csv="csv)
(with-output-to-port oup
(lambda ()
(print csv)))
(close-output-port oup)))
(if kill-job?
(begin
(debug:print-info 0 *default-log-port* "proceeding to kill test: "kill-reason)
(mutex-lock! m)
;; NOTE: The pid can change as different steps are run. Do we need handshaking between this
;; section and the runit section? Or add a loop that tries three times with a 1/4 second
|
| ︙ | ︙ |