Overview
| Comment: | Fixed broken query |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
a09b4531f61fd5c437f94448954e52a2 |
| User & Date: | matt on 2014-08-28 00:47:18 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-08-28
| ||
| 12:27 | Fixed mysterious crashing on SLES11 bug, just a typo check-in: 8b114d33a7 user: mrwellan tags: v1.60 | |
| 00:47 | Fixed broken query check-in: a09b4531f6 user: matt tags: v1.60 | |
| 00:37 | Fixed typo, added hander for scenaio where can receive bad data check-in: 660a006630 user: matt tags: v1.60 | |
Changes
Modified db.scm from [02c1e91472] to [75e84ce1bd].
| ︙ | ︙ | |||
2132 2133 2134 2135 2136 2137 2138 |
;; (db:delay-if-busy)
;; (apply sqlite3:execute db query params)))
;; (db:delay-if-busy)
(define (db:test-get-records-for-index-file dbstruct run-id test-name)
(let ((res '()))
(sqlite3:for-each-row
| | < < | | 2132 2133 2134 2135 2136 2137 2138 2139 2140 2141 2142 2143 2144 2145 2146 2147 2148 2149 2150 2151 |
;; (db:delay-if-busy)
;; (apply sqlite3:execute db query params)))
;; (db:delay-if-busy)
(define (db:test-get-records-for-index-file dbstruct run-id test-name)
(let ((res '()))
(sqlite3:for-each-row
(lambda (id itempath state status run_duration logf comment)
(set! res (cons (vector id itempath state status run_duration logf comment) res)))
(db:get-db dbstruct run-id)
"SELECT id,item_path,state,status,run_duration,final_logf,comment FROM tests WHERE testname=? AND item_path != '';"
test-name)
res))
;;======================================================================
;; Tests meta data
;;======================================================================
;; read the record given a testname
(define (db:testmeta-get-record dbstruct testname)
|
| ︙ | ︙ |