Overview
| Comment: | fixed some unbalanced parens |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-telemetry |
| Files: | files | file ages | folders |
| SHA1: |
c13adaee88ff58d431583542ee5f52c4 |
| User & Date: | bjbarcla on 2019-02-27 18:15:49 |
| Other Links: | branch diff | manifest | tags |
Context
|
2019-02-27
| ||
| 18:58 | bugfixes check-in: 1a51a582df user: bjbarcla tags: v1.65-telemetry | |
| 18:15 | fixed some unbalanced parens check-in: c13adaee88 user: bjbarcla tags: v1.65-telemetry | |
| 18:09 | wip check-in: 074c8889ef user: bjbarcla tags: v1.65-telemetry | |
Changes
Modified launch.scm from [510de63cde] to [09bab695d5].
| ︙ | ︙ | |||
421 422 423 424 425 426 427 |
(debug:print 4 *default-log-port* "cpu: " new-cpu-load " disk: " new-disk-free " last-sync: " last-sync " do-sync: " do-sync)
(launch:handle-zombie-tests run-id)
(when do-sync
;;(with-output-to-file (conc (getenv "MT_TEST_RUN_DIR") "/last-loadinfo.log" #:append)
;; (lambda () (pp (list (current-seconds) new-cpu-load new-disk-free (calc-minutes)))))
(common:telemetry-log "zombie" (conc "launch:monitor-job - dosync started at "(current-seconds)))
(tests:update-central-meta-info run-id test-id new-cpu-load new-disk-free (calc-minutes) #f #f)
| | | 421 422 423 424 425 426 427 428 429 430 431 432 433 434 435 |
(debug:print 4 *default-log-port* "cpu: " new-cpu-load " disk: " new-disk-free " last-sync: " last-sync " do-sync: " do-sync)
(launch:handle-zombie-tests run-id)
(when do-sync
;;(with-output-to-file (conc (getenv "MT_TEST_RUN_DIR") "/last-loadinfo.log" #:append)
;; (lambda () (pp (list (current-seconds) new-cpu-load new-disk-free (calc-minutes)))))
(common:telemetry-log "zombie" (conc "launch:monitor-job - dosync started at "(current-seconds)))
(tests:update-central-meta-info run-id test-id new-cpu-load new-disk-free (calc-minutes) #f #f)
(common:telemetry-log "zombie" (conc "launch:monitor-job - dosync finished at "(current-seconds))))
(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
|
| ︙ | ︙ |
Modified runs.scm from [8403ca3ea3] to [ab73c632a8].
| ︙ | ︙ | |||
678 679 680 681 682 683 684 |
(begin
(debug:print-info 0 *default-log-port* "Calling Post Hook")
(debug:print-info 2 *default-log-port* " run-count " run-count)
(runs:run-post-hook run-id))
(debug:print-info 2 *default-log-port* "Not calling post hook runcount = " run-count ))
(rmt:tasks-set-state-given-param-key task-key "done")
;; (sqlite3:finalize! tasks-db)
| | | 678 679 680 681 682 683 684 685 686 687 688 689 690 691 692 |
(begin
(debug:print-info 0 *default-log-port* "Calling Post Hook")
(debug:print-info 2 *default-log-port* " run-count " run-count)
(runs:run-post-hook run-id))
(debug:print-info 2 *default-log-port* "Not calling post hook runcount = " run-count ))
(rmt:tasks-set-state-given-param-key task-key "done")
;; (sqlite3:finalize! tasks-db)
))
;; loop logic. These are used in runs:run-tests-queue to make it a bit more readable.
;;
;; If reg not full and have items in tal then loop with (car tal)(cdr tal) reg reruns
;; If reg is full (i.e. length >= n
;; loop with (car reg) tal (cdr reg) reruns
|
| ︙ | ︙ |