Overview
| Comment: | Removed error message on calling get-runs with run-id=#f, it is harmless |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
48f04e9bffdb85129e7b6dafd4263476 |
| User & Date: | matt on 2014-08-24 23:55:45 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-08-25
| ||
| 23:27 | Read-only calls can bypass the server if it isn't already running. check-in: 9509385707 user: matt tags: v1.60 | |
|
2014-08-24
| ||
| 23:55 | Removed error message on calling get-runs with run-id=#f, it is harmless check-in: 48f04e9bff user: matt tags: v1.60 | |
| 23:43 | Got newdashboard to build, updated Makefile. Next is synchash - how to replace? check-in: eacc08c870 user: matt tags: v1.60 | |
Changes
Modified db.scm from [bf63eca3b8] to [d8f685dae7].
| ︙ | ︙ | |||
1303 1304 1305 1306 1307 1308 1309 |
;; states and statuses are lists, turn them into ("PASS","FAIL"...) and use NOT IN
;; i.e. these lists define what to NOT show.
;; states and statuses are required to be lists, empty is ok
;; not-in #t = above behaviour, #f = must match
(define (db:get-tests-for-run dbstruct run-id testpatt states statuses offset limit not-in sort-by sort-order qryvals)
(if (not (number? run-id))
| | | | | 1303 1304 1305 1306 1307 1308 1309 1310 1311 1312 1313 1314 1315 1316 1317 1318 1319 |
;; states and statuses are lists, turn them into ("PASS","FAIL"...) and use NOT IN
;; i.e. these lists define what to NOT show.
;; states and statuses are required to be lists, empty is ok
;; not-in #t = above behaviour, #f = must match
(define (db:get-tests-for-run dbstruct run-id testpatt states statuses offset limit not-in sort-by sort-order qryvals)
(if (not (number? run-id))
(begin ;; no need to treat this as an error by default
(debug:print 4 "WARNING: call to db:get-tests-for-run with bad run-id=" run-id)
;; (print-call-chain)
'())
(let* ((qryvalstr (case qryvals
((shortlist) "id,run_id,testname,item_path,state,status")
((#f) db:test-record-qry-selector) ;; "id,run_id,testname,state,status,event_time,host,cpuload,diskfree,uname,rundir,item_path,run_duration,final_logf,comment")
(else qryvals)))
(res '())
;; if states or statuses are null then assume match all when not-in is false
|
| ︙ | ︙ |