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 | 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)) |
︙ |