Overview
| Comment: | updateded db:get-tests-for-run method with defstruct |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | defstruct-srehman |
| Files: | files | file ages | folders |
| SHA1: |
d5c885ef2916fdac38a73bd18b834036 |
| User & Date: | srehman on 2016-09-20 13:25:43 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-09-20
| ||
| 14:56 | typed-records for tests working check-in: 43cb38feb6 user: srehman tags: defstruct-srehman | |
| 13:25 | updateded db:get-tests-for-run method with defstruct check-in: d5c885ef29 user: srehman tags: defstruct-srehman | |
|
2016-09-19
| ||
| 17:49 | fixed error with db.scm check-in: f5247f6684 user: srehman tags: defstruct-srehman | |
Changes
Modified db.scm from [a28e3b57c0] to [b1e1e5f065].
| ︙ | ︙ | |||
2251 2252 2253 2254 2255 2256 2257 | (debug:print-info 8 *default-log-port* "db:get-tests-for-run run-id=" run-id ", qry=" qry) (db:with-db dbstruct run-id #f (lambda (db) (sqlite3:for-each-row (lambda (a . b) ;; id run-id testname state status event-time host cpuload diskfree uname rundir item-path run-duration final-logf comment) ;;(set! res (cons (apply vector a b) res))) ;; id run-id testname state status event-time host cpuload diskfree uname rundir item-path run-duration final-logf comment) res))) ;;(print (cons a b)) | | | < < < | 2251 2252 2253 2254 2255 2256 2257 2258 2259 2260 2261 2262 2263 2264 2265 2266 | (debug:print-info 8 *default-log-port* "db:get-tests-for-run run-id=" run-id ", qry=" qry) (db:with-db dbstruct run-id #f (lambda (db) (sqlite3:for-each-row (lambda (a . b) ;; id run-id testname state status event-time host cpuload diskfree uname rundir item-path run-duration final-logf comment) ;;(set! res (cons (apply vector a b) res))) ;; id run-id testname state status event-time host cpuload diskfree uname rundir item-path run-duration final-logf comment) res))) ;;(print (cons a b)) (set! res (alist->db:test-rec (db:qry-gen-alist qryvalstr (cons a b))))) db qry run-id ))) (case qryvals ((shortlist)(map db:test-short-record->norm res)) ((#f) res) |
| ︙ | ︙ |