Overview
| Comment: | couple more spots needing attention ... |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
717f166998bca5ba71b9a42a86b04217 |
| User & Date: | matt on 2016-02-22 00:33:29 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-02-22
| ||
| 09:00 | Use last_update to filter updates to dashboard - working correcty now check-in: 0efd800017 user: mrwellan tags: v1.60 | |
| 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 | |
Changes
Modified dashboard.scm from [03d2a504d5] to [396e49e672].
| ︙ | ︙ | |||
84 85 86 87 88 89 90 |
(exit)))
(if (not (launch:setup-for-run))
(begin
(print "Failed to find megatest.config, exiting")
(exit 1)))
| | > | > > > | 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 |
(exit)))
(if (not (launch:setup-for-run))
(begin
(print "Failed to find megatest.config, exiting")
(exit 1)))
(define *useserver* (cond
((args:get-arg "-use-local") #f)
((configf:lookup *configdat* "dashboard" "use-server")
(let ((ans (config:lookup *configdat* "dashboard" "use-server")))
(if (equal? ans "yes") #t #f)))
(else #t)))
(define *dbdir* (db:dbfile-path #f)) ;; (conc (configf:lookup *configdat* "setup" "linktree") "/.db"))
(define *dbstruct-local* (make-dbr:dbstruct path: *dbdir*
local: #t))
(define *db-file-path* (db:dbfile-path 0))
;; HACK ALERT: this is a hack, please fix.
|
| ︙ | ︙ |
Modified rmt.scm from [ff6a18b147] to [3ef7b27b00].
| ︙ | ︙ | |||
602 603 604 605 606 607 608 | (let ((prev-run-ids (rmt:get-prev-run-ids run-id))) ;; for each run starting with the most recent look to see if there is a matching test ;; if found then return that matching test record (debug:print 4 "selstr: " selstr ", qrystr: " qrystr ", keyvals: " keyvals ", previous run ids found: " prev-run-ids) (if (null? prev-run-ids) #f (let loop ((hed (car prev-run-ids)) (tal (cdr prev-run-ids))) | | | 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 | (let ((prev-run-ids (rmt:get-prev-run-ids run-id))) ;; for each run starting with the most recent look to see if there is a matching test ;; if found then return that matching test record (debug:print 4 "selstr: " selstr ", qrystr: " qrystr ", keyvals: " keyvals ", previous run ids found: " prev-run-ids) (if (null? prev-run-ids) #f (let loop ((hed (car prev-run-ids)) (tal (cdr prev-run-ids))) (let ((results (rmt:get-tests-for-run hed (conc test-name "/" item-path) '() '() #f #f #f #f #f #f #f))) (debug:print 4 "Got tests for run-id " run-id ", test-name " test-name ", item-path " item-path ": " results) (if (and (null? results) (not (null? tal))) (loop (car tal)(cdr tal)) (if (null? results) #f (car results)))))))))) |
| ︙ | ︙ |