Overview
| Comment: | Try using rmt in dashboard access |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
ef10defee32e0b24fe49f662bd929278 |
| User & Date: | matt on 2015-06-05 00:19:52 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-06-05
| ||
| 09:56 | Set default fields for -list-runs to all in tests and runs. check-in: afd79081c2 user: mrwellan tags: v1.60, v1.6014_a | |
| 00:19 | Try using rmt in dashboard access check-in: ef10defee3 user: matt tags: v1.60 | |
|
2015-06-04
| ||
| 22:56 | Merged db fix in check-in: e65b212f1d user: matt tags: v1.60 | |
Changes
Modified dashboard.scm from [a2d381ad1b] to [ef506ce127].
| ︙ | ︙ | |||
207 208 209 210 211 212 213 |
(c2 (map string->number (string-split color2)))
(delta (map (lambda (a b)(abs (- a b))) c1 c2)))
(null? (filter (lambda (x)(> x 3)) delta))))
;; keypatts: ( (KEY1 "abc%def")(KEY2 "%") )
(define (update-rundat runnamepatt numruns testnamepatt keypatts)
(let* ((referenced-run-ids '())
| | > | > | 207 208 209 210 211 212 213 214 215 216 217 218 219 220 221 222 223 224 225 226 227 228 229 230 231 232 233 234 235 236 237 238 239 240 241 242 |
(c2 (map string->number (string-split color2)))
(delta (map (lambda (a b)(abs (- a b))) c1 c2)))
(null? (filter (lambda (x)(> x 3)) delta))))
;; keypatts: ( (KEY1 "abc%def")(KEY2 "%") )
(define (update-rundat runnamepatt numruns testnamepatt keypatts)
(let* ((referenced-run-ids '())
;; (allruns (db:get-runs *dbstruct-local* runnamepatt numruns ;; (+ numruns 1) ;; (/ numruns 2))
(allruns (rmt:get-runs runnamepatt numruns ;; (+ numruns 1) ;; (/ numruns 2))
*start-run-offset* keypatts))
(header (db:get-header allruns))
(runs (db:get-rows allruns))
(result '())
(maxtests 0)
(states (hash-table-keys *state-ignore-hash*))
(statuses (hash-table-keys *status-ignore-hash*))
(sort-info (get-curr-sort))
(sort-by (vector-ref sort-info 1))
(sort-order (vector-ref sort-info 2))
(bubble-type (if (member sort-order '(testname))
'testname
'itempath)))
;;
;; trim runs to only those that are changing often here
;;
(for-each (lambda (run)
(let* ((run-id (db:get-value-by-header run header "id"))
;; (tests (db:get-tests-for-run *dbstruct-local* run-id testnamepatt states statuses
(tests (rmt:get-tests-for-run run-id testnamepatt states statuses
#f #f
*hide-not-hide*
sort-by
sort-order
'shortlist))
;; NOTE: bubble-up also sets the global *all-item-test-names*
;; (tests (bubble-up tmptests priority: bubble-type))
|
| ︙ | ︙ |