Overview
| Comment: | corrected call to db:test-status to db:test-get-status |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.81-fix-extract-scripts |
| Files: | files | file ages | folders |
| SHA1: |
d0fcd353e12c640f468343a33292332b |
| User & Date: | mmgraham on 2024-08-19 10:58:15 |
| Other Links: | branch diff | manifest | tags |
Context
|
2024-08-19
| ||
| 11:42 | CI/CD: Automated commit after successful test, build, and deploy for v1.81-fix-extract-scripts check-in: 29155bc147 user: fdiskadm tags: v1.81 | |
| 10:58 | corrected call to db:test-status to db:test-get-status Closed-Leaf check-in: d0fcd353e1 user: mmgraham tags: v1.81-fix-extract-scripts | |
|
2024-08-18
| ||
| 23:21 | CI/CD: Automated commit after successful test, build, and deploy for v1.81-adjutant check-in: b939ba890d user: ramartin tags: v1.81-fix-extract-scripts | |
Changes
Modified runs.scm from [2d4118afd2] to [75a548efe8].
| ︙ | ︙ | |||
1390 1391 1392 1393 1394 1395 1396 |
#f ;; yes, really
(list (car tal)(cdr tal) reg reruns))
(begin
(if (runs:lownoise (conc "FAILED prerequisites or other issue" hed) 60)
(debug:print 0 *default-log-port* "WARNING: test " hed " has FAILED prerequisites (" (runs:pretty-string fails)") or other issue. Internal state >" nth-try "< will be overridden and we'll retry."))
(let* ((test-id (rmt:get-test-id run-id hed item-path))
(test-info (rmt:get-testinfo-state-status run-id test-id)) ;; we need *current* info
| | | 1390 1391 1392 1393 1394 1395 1396 1397 1398 1399 1400 1401 1402 1403 1404 |
#f ;; yes, really
(list (car tal)(cdr tal) reg reruns))
(begin
(if (runs:lownoise (conc "FAILED prerequisites or other issue" hed) 60)
(debug:print 0 *default-log-port* "WARNING: test " hed " has FAILED prerequisites (" (runs:pretty-string fails)") or other issue. Internal state >" nth-try "< will be overridden and we'll retry."))
(let* ((test-id (rmt:get-test-id run-id hed item-path))
(test-info (rmt:get-testinfo-state-status run-id test-id)) ;; we need *current* info
(status (db:test-get-status test-info)))
(if (equal? status "KEEP_TRYING")
(mt:test-set-state-status-by-testname-unless-completed run-id test-name item-path "COMPLETED" "PREQ_FAIL" #f)
(mt:test-set-state-status-by-testname run-id test-name item-path "NOT_STARTED" "KEEP_TRYING" #f)))
(hash-table-set! test-registry hed 'removed) ;; was 0
(if (not (and (null? reg) (null? tal)))
(runs:loop-values tal reg reglen regfull reruns)
#f))))
|
| ︙ | ︙ |