Overview
| Comment: | Minor refactor on get-tests |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | filters-fix |
| Files: | files | file ages | folders |
| SHA1: |
9996ef57134eecc2bb21a1fa9dbf3b49 |
| User & Date: | mrwellan on 2016-06-17 09:05:33 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-06-17
| ||
| 17:40 | Auto compile for correct readline version check-in: b71c8dd554 user: mrwellan tags: filters-fix | |
| 09:05 | Minor refactor on get-tests check-in: 9996ef5713 user: mrwellan tags: filters-fix | |
|
2016-06-15
| ||
| 10:17 | Added example of shell handling to sretrieve check-in: a70e62a60b user: mrwellan tags: filters-fix | |
Changes
Modified db.scm from [c032b66b26] to [62ae9e6cf9].
| ︙ | ︙ | |||
2195 2196 2197 2198 2199 2200 2201 2202 2203 2204 2205 |
(if (eq? mode 'dashboard)
" IN ('"
(if not-in
" NOT IN ('"
" IN ('") )
(string-intersperse statuses "','")
"')")))
(states-statuses-qry
(cond
((and states-qry statuses-qry)
(case mode
| > > > > | | 2195 2196 2197 2198 2199 2200 2201 2202 2203 2204 2205 2206 2207 2208 2209 2210 2211 2212 2213 2214 2215 2216 2217 |
(if (eq? mode 'dashboard)
" IN ('"
(if not-in
" NOT IN ('"
" IN ('") )
(string-intersperse statuses "','")
"')")))
(interim-qry (conc " AND " (if not-in "NOT " "") "( ( state='COMPLETED' AND " statuses-qry " ) "
(if states-qry
(conc (if not-in " AND " " OR ") states-qry " ) ")
"")))
(states-statuses-qry
(cond
((and states-qry statuses-qry)
(case mode
((dashboard) interim-qry)
(else (conc " AND ( " states-qry " AND " statuses-qry " ) "))))
(states-qry
(conc " AND " states-qry))
(statuses-qry
(conc " AND " statuses-qry))
(else "")))
(tests-match-qry (tests:match->sqlqry testpatt))
|
| ︙ | ︙ | |||
2285 2286 2287 2288 2289 2290 2291 |
db
"SELECT run_id,testname,item_path,state,status FROM tests WHERE id=?;"
test-id)))
res))
;; get a useful subset of the tests data (used in dashboard
;; use db:mintest-get-{id ,run_id,testname ...}
| < < < < < < < | 2289 2290 2291 2292 2293 2294 2295 2296 2297 2298 2299 2300 2301 2302 |
db
"SELECT run_id,testname,item_path,state,status FROM tests WHERE id=?;"
test-id)))
res))
;; get a useful subset of the tests data (used in dashboard
;; use db:mintest-get-{id ,run_id,testname ...}
;;
(define (db:get-tests-for-run-mindata dbstruct run-id testpatt states statuses not-in)
(db:get-tests-for-run dbstruct run-id testpatt states statuses #f #f not-in #f #f "id,run_id,testname,state,status,event_time,item_path" #f))
;; do not use.
;;
(define (db:get-tests-for-runs dbstruct run-ids testpatt states statuses #!key (not-in #f)(qryvals #f))
|
| ︙ | ︙ |