Overview
| Comment: | wip |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-fixes |
| Files: | files | file ages | folders |
| SHA1: |
10b5c34583538723b6fd28a85cc9a3ee |
| User & Date: | matt on 2020-03-01 14:47:50 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-03-01
| ||
| 15:12 | wip check-in: 4139c0e4e6 user: matt tags: v1.65-fixes | |
| 14:47 | wip check-in: 10b5c34583 user: matt tags: v1.65-fixes | |
| 14:37 | wip check-in: 8026e4e906 user: matt tags: v1.65-fixes | |
Changes
Modified dashboard.scm from [d1d33b9e46] to [7eca04ae95].
| ︙ | ︙ | |||
2659 2660 2661 2662 2663 2664 2665 | ;; NOTE: runnum is NOT the run-id, it is a pointer into the runsbynum vector ;; (define (dashboard:update-run-data runnum rdat) (let* ((curr-time (current-seconds)) (runrec (vector-ref (dboard:rdat-runsbynum rdat) runnum)) (run-id (simple-run-id runrec)) | | | | | | | 2659 2660 2661 2662 2663 2664 2665 2666 2667 2668 2669 2670 2671 2672 2673 2674 2675 2676 2677 2678 2679 2680 2681 2682 2683 2684 2685 2686 2687 2688 2689 2690 2691 2692 |
;; NOTE: runnum is NOT the run-id, it is a pointer into the runsbynum vector
;;
(define (dashboard:update-run-data runnum rdat)
(let* ((curr-time (current-seconds))
(runrec (vector-ref (dboard:rdat-runsbynum rdat) runnum))
(run-id (simple-run-id runrec))
(last-update (sparse-vector-ref (dboard:rdat-last-updates rdat) run-id))
;; filters
(testname-sql-filt (dboard:rdat-testname-sql-filt rdat))
;; (itempath-sql-filt (dboard:rdat-itempath-sql-filt rdat))
(test-state-sql-filt (dboard:rdat-test-state-sql-filt rdat)) ;; not used yet
(test-status-sql-filt (dboard:rdat-test-status-sql-filt rdat)) ;; not used yet
(tests (rmt:get-tests-for-run-state-status run-id
testname-sql-filt
last-update ;; last-update
)))
(debug:print 0 *default-log-port* "Got " (length tests) " tests")
(length tests)))
(define (new-runs-updater commondat rdat)
(let* ((runnum (dboard:rdat-runnum rdat)))
(if (eq? runnum 0)(dashboard:update-runs-data rdat))
(dashboard:update-run-data runnum rdat)
(dboard:rdat-runnum-set! rdat (if (>= runnum (vector-length (dboard:rdat-runsbynum rdat)))
0
(+ runnum 1)))
;; (dboard:rdat-last-update-set! rdat (- (current-seconds) 10))
;; (tree:add-node tb "Runs" (string-split full-targ-runname "/"))
|
| ︙ | ︙ |