Overview
| Comment: | Minor cleanup |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-newview |
| Files: | files | file ages | folders |
| SHA1: |
156279118f7b88026768cec53312a037 |
| User & Date: | matt on 2020-04-06 05:36:52 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-05-26
| ||
| 17:49 | Pushed build related changes 23a58, 68152, 3d4fba to separate branch check-in: 7115833fe9 user: mrwellan tags: v1.65-newbuild | |
|
2020-04-06
| ||
| 06:18 | Pulled external modules that are not offical eggs into Megatest to make building easier check-in: 23a58a862f user: matt tags: v1.65-newview | |
| 05:36 | Minor cleanup check-in: 156279118f user: matt tags: v1.65-newview | |
|
2020-03-03
| ||
| 05:43 | fixed get-tests-for-run-state-status check-in: 8b3c7571c1 user: matt tags: v1.65-newview | |
Changes
Modified dashboard.scm from [4ce2a6eac9] to [f69a7b566e].
| ︙ | ︙ | |||
2668 2669 2670 2671 2672 2673 2674 | ;; 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 | | | > | 2668 2669 2670 2671 2672 2673 2674 2675 2676 2677 2678 2679 2680 2681 2682 2683 2684 2685 2686 |
;; 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
)))
(sparse-vector-set! (dboard:rdat-last-updates rdat) run-id (- curr-time 1))
(debug:print 0 *default-log-port* "Got " (length tests) " tests for run-id "
run-id " testname-sql-filt " testname-sql-filt " and last-update " last-update)
(length tests)))
(define (new-runs-updater commondat rdat)
(let* ((runnum (dboard:rdat-runnum rdat))
(start-time (current-milliseconds))
(tot-runs #f))
(if (eq? runnum 0)(dashboard:update-runs-data rdat))
|
| ︙ | ︙ |