185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
200
|
(string-match (regexp "\\S+") comment))
waived)
(rdb:test-set-comment db run-id test-name item-path (if waived waived comment)))
))
(define (test-set-log! db run-id test-name itemdat logf)
(let ((item-path (item-list->path itemdat)))
(sqlite3:execute db "UPDATE tests SET final_logf=? WHERE run_id=? AND testname=? AND item_path=?;"
logf run-id test-name item-path)))
|
<
|
|
185
186
187
188
189
190
191
192
193
194
195
196
197
198
199
|
(string-match (regexp "\\S+") comment))
waived)
(rdb:test-set-comment db run-id test-name item-path (if waived waived comment)))
))
(define (test-set-log! db run-id test-name itemdat logf)
(let ((item-path (item-list->path itemdat)))
(rdb:test-set-log! db run-id test-name item-path logf)))
(define (test-set-toplog! db run-id test-name logf)
(sqlite3:execute db "UPDATE tests SET final_logf=? WHERE run_id=? AND testname=? AND item_path='';"
logf run-id test-name))
(define (tests:summarize-items db run-id test-name force)
;; if not force then only update the record if one of these is true:
|