Overview
| Comment: | Minor cleanup |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | v1.81-fixes |
| Files: | files | file ages | folders |
| SHA1: |
60706141c17744b615569ac8d65fef3f |
| User & Date: | mrwellan on 2024-07-18 05:41:12 |
| Other Links: | branch diff | manifest | tags |
Context
|
2024-07-18
| ||
| 05:41 | Minor cleanup Leaf check-in: 60706141c1 user: mrwellan tags: v1.81-fixes | |
|
2024-07-17
| ||
| 19:17 | Lower gating on test launch to 0.05 journal load. Add exception handler for file-modification-time on .servinfo files check-in: 7c315bd32d user: mrwellan tags: v1.81-fixes | |
Changes
Modified db.scm from [346b188c56] to [9fe915e0e1].
| ︙ | ︙ | |||
2449 2450 2451 2452 2453 2454 2455 |
dbstruct
run-id
#f
(lambda (dbdat db)
(let* ((stmth (db:get-cache-stmth dbdat db qry)))
(sqlite3:first-result stmth))))))
| < < < < < < < < < < < < < < < < | | 2449 2450 2451 2452 2453 2454 2455 2456 2457 2458 2459 2460 2461 2462 2463 2464 2465 2466 2467 2468 |
dbstruct
run-id
#f
(lambda (dbdat db)
(let* ((stmth (db:get-cache-stmth dbdat db qry)))
(sqlite3:first-result stmth))))))
;; NEW BEHAVIOR: Look only at single run with run-id
;;
;; (define (db:get-running-stats dbstruct run-id)
(define (db:get-count-tests-running-for-run-id dbstruct run-id) ;; fastmode)
(let* ((qry "SELECT count(id) FROM tests WHERE state in ('RUNNING','LAUNCHED','REMOTEHOSTSTART') AND run_id=?;"))
(db:with-db
dbstruct
run-id
#f
(lambda (dbdat db)
(let* ((stmth (db:get-cache-stmth dbdat db qry)))
(sqlite3:first-result stmth run-id))))))
|
| ︙ | ︙ |