Overview
Comment: | wip |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | v1.65-telemetry |
Files: | files | file ages | folders |
SHA1: |
074c8889ef630000834d165545260b8b |
User & Date: | bjbarcla on 2019-02-27 18:09:09 |
Other Links: | branch diff | manifest | tags |
Context
2019-02-27
| ||
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 | |
17:17 | added (incomplete) docs/manual/devnotes.txt for telemetry usage check-in: ce9c3e41f2 user: bjbarcla tags: v1.65-telemetry | |
Changes
Modified runs.scm from [9ffac6688c] to [8403ca3ea3].
︙ | ︙ | |||
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 |
︙ | ︙ | |||
2256 2257 2258 2259 2260 2261 2262 2263 2264 2265 2266 2267 2268 2269 | (loop (car tal)(cdr tal))) ) ((member test-state (list "RUNNING" "LAUNCHED" "REMOTEHOSTSTART" "KILLREQ")) (debug:print 1 *default-log-port* "INFO: issuing killreq to test "test-fulln) (mt:test-set-state-status-by-id run-id (db:test-get-id test) "KILLREQ" "n/a" #f) (if (not (null? tal)) (loop (car tal)(cdr tal)))) (else (if (not (null? tal)) (loop (car tal)(cdr tal))) ))) ((set-state-status) (let* ((new-state (car state-status)) (new-status (cadr state-status)) | > > | 2256 2257 2258 2259 2260 2261 2262 2263 2264 2265 2266 2267 2268 2269 2270 2271 | (loop (car tal)(cdr tal))) ) ((member test-state (list "RUNNING" "LAUNCHED" "REMOTEHOSTSTART" "KILLREQ")) (debug:print 1 *default-log-port* "INFO: issuing killreq to test "test-fulln) (mt:test-set-state-status-by-id run-id (db:test-get-id test) "KILLREQ" "n/a" #f) (if (not (null? tal)) (loop (car tal)(cdr tal)))) ; ((and (member test-state (list "COMPLETED" "NOT_STARTED")) (member test-status "PREQ_FAIL" "PREQ_DISCARDED" "BLOCKED" "ZERO_ITEMS" "KEEP_TRYING" "TEN_STRIKES" "TIMED_OUT")) ; (mt:test-set-state-status-by-id run-id (db:test-get-id test) "NOT_STARTED" "n/a" #f)) (else (if (not (null? tal)) (loop (car tal)(cdr tal))) ))) ((set-state-status) (let* ((new-state (car state-status)) (new-status (cadr state-status)) |
︙ | ︙ |