Overview
| Comment: | Merged fork |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
ae9052fa69ebeb03ef7a891716d20a0d |
| User & Date: | mrwellan on 2016-01-27 10:35:54 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-01-31
| ||
| 23:33 | Cleaned up dependencies on sretrieve check-in: 9355c8264d user: matt tags: v1.60 | |
|
2016-01-27
| ||
| 10:35 | Merged fork check-in: ae9052fa69 user: mrwellan tags: v1.60 | |
|
2016-01-26
| ||
| 16:07 | merged fork check-in: b2a12dd18c user: pjhatwal tags: v1.60 | |
| 16:06 | Merged fork check-in: b3697b5f12 user: mrwellan tags: v1.60 | |
Changes
Modified db.scm from [725b61e04a] to [d4d9059231].
| ︙ | ︙ | |||
2080 2081 2082 2083 2084 2085 2086 |
(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 (current-error-port))
'())
(let* ((qryvalstr (case qryvals
| | | 2080 2081 2082 2083 2084 2085 2086 2087 2088 2089 2090 2091 2092 2093 2094 |
(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 (current-error-port))
'())
(let* ((qryvalstr (case qryvals
((shortlist) "id,run_id,testname,state,status,item_path")
((#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
(states-qry (if (null? states)
#f
(conc " state "
|
| ︙ | ︙ | |||
2424 2425 2426 2427 2428 2429 2430 |
(lambda (db)
(db:first-result-default
db
"SELECT attemptnum FROM tests WHERE id=?;"
#f
test-id))))
| | | 2424 2425 2426 2427 2428 2429 2430 2431 2432 2433 2434 2435 2436 2437 2438 |
(lambda (db)
(db:first-result-default
db
"SELECT attemptnum FROM tests WHERE id=?;"
#f
test-id))))
(define db:test-record-fields '("id" "run_id" "testname" "item_path" "state" "status" "event_time"
"host" "cpuload" "diskfree" "uname" "rundir" "item_path"
"run_duration" "final_logf" "comment" "shortdir" "attemptnum" "archived"))
;; fields *must* be a non-empty list
;;
(define (db:field->number fieldname fields)
(if (null? fields)
|
| ︙ | ︙ |