Overview
| Comment: | Couple more missed needed changes for last-update based query for dashboard updates |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
1bc14325eceaab3eb172cf87d2e2ee88 |
| User & Date: | matt on 2016-02-22 00:21:30 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-02-22
| ||
| 00:33 | couple more spots needing attention ... check-in: 717f166998 user: matt tags: v1.60 | |
| 00:21 | Couple more missed needed changes for last-update based query for dashboard updates check-in: 1bc14325ec user: matt tags: v1.60 | |
| 00:13 | Get only changed tests check-in: ea93d9f377 user: matt tags: v1.60 | |
Changes
Modified dashboard.scm from [475c9731aa] to [03d2a504d5].
| ︙ | ︙ | |||
260 261 262 263 264 265 266 |
;; 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"))
(key-vals (if *useserver*
(rmt:get-key-vals run-id)
(db:get-key-vals *dbstruct-local* run-id)))
| | | > > > | | | | 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 290 291 292 293 294 295 296 297 298 |
;; 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"))
(key-vals (if *useserver*
(rmt:get-key-vals run-id)
(db:get-key-vals *dbstruct-local* run-id)))
(prev-dat (let ((rec (hash-table-ref/default *allruns-by-id* run-id #f)))
(if rec rec (vector run '() key-vals -100)))) ;; -100 is before time began
(prev-tests (vector-ref prev-dat 1))
(last-update (vector-ref prev-dat 3))
(tmptests (if *useserver*
(rmt:get-tests-for-run run-id testnamepatt states statuses
#f #f
*hide-not-hide*
sort-by
sort-order
'shortlist
last-update)
(db:get-tests-for-run *dbstruct-local* run-id testnamepatt states statuses
#f #f
*hide-not-hide*
sort-by
sort-order
'shortlist
last-update)))
(tests (let ((newdat (filter
(lambda (x)
(not (equal? (db:test-get-state x) "DELETED"))) ;; remove deleted tests but do it after merging
(delete-duplicates (append tmptests prev-tests)
(lambda (a b)
(eq? (db:test-get-id a)(db:test-get-id b)))))))
(if (eq? *tests-sort-reverse* 3) ;; +event_time
(sort newdat compare-tests)
newdat))))
;; NOTE: bubble-up also sets the global *all-item-test-names*
;; (tests (bubble-up tmptests priority: bubble-type))
;; NOTE: 11/01/2013 This routine is *NOT* getting called excessively.
;; (debug:print 0 "Getting data for run " run-id " with key-vals=" key-vals)
|
| ︙ | ︙ |
Modified mt.scm from [d7eb2f40fc] to [847cfd364c].
| ︙ | ︙ | |||
64 65 66 67 68 69 70 | limit)) (vector header full-list))))) ;;====================================================================== ;; T E S T S ;;====================================================================== | | | | | 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 |
limit))
(vector header full-list)))))
;;======================================================================
;; T E S T S
;;======================================================================
(define (mt:get-tests-for-run run-id testpatt states status #!key (not-in #t) (sort-by 'event_time) (sort-order "ASC") (qryvals #f)(last-update #f))
(let loop ((testsdat (rmt:get-tests-for-run run-id testpatt states status 0 500 not-in sort-by sort-order qryvals last-update))
(res '())
(offset 0)
(limit 500))
(let* ((full-list (append res testsdat))
(have-more (eq? (length testsdat) limit)))
(if have-more
(let ((new-offset (+ offset limit)))
(debug:print-info 4 "More than " limit " tests, have " (length full-list) " tests so far.")
(loop (rmt:get-tests-for-run run-id testpatt states status new-offset limit not-in sort-by sort-order qryvals last-update)
full-list
new-offset
limit))
full-list))))
(define (mt:lazy-get-prereqs-not-met run-id waitons ref-item-path #!key (mode '(normal))(itemmaps #f) )
(let* ((key (list run-id waitons ref-item-path mode))
|
| ︙ | ︙ |