Overview
| Comment: | fixed call to tdb:test-data-rollup, removed db placeholder |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
a5ea19cd4a5d770b9009745e24c32e70 |
| User & Date: | matt on 2013-11-18 22:00:06 |
| Other Links: | manifest | tags |
Context
|
2013-11-18
| ||
| 23:28 | Partial transition to steps in main db check-in: e1eebd3848 user: matt tags: trunk | |
| 22:02 | Merged sucessful inmemdb work to v1.60 check-in: 45af7ab710 user: matt tags: v1.60 | |
| 22:00 | fixed call to tdb:test-data-rollup, removed db placeholder check-in: a5ea19cd4a user: matt tags: trunk | |
| 20:39 | Fixed handful of bugs due to inmemdb check-in: 540d5096fd user: matt tags: trunk | |
Changes
Modified tests.scm from [22a4da7218] to [988b292fea].
| ︙ | ︙ | |||
239 240 241 242 243 244 245 |
(begin
(rmt:test-set-status-state test-id real-status state (if waived waived comment))
(mt:process-triggers test-id state real-status)))
;; if status is "AUTO" then call rollup (note, this one modifies data in test
;; run area, it does remote calls under the hood.
(if (and test-id state status (equal? status "AUTO"))
| | | 239 240 241 242 243 244 245 246 247 248 249 250 251 252 253 |
(begin
(rmt:test-set-status-state test-id real-status state (if waived waived comment))
(mt:process-triggers test-id state real-status)))
;; if status is "AUTO" then call rollup (note, this one modifies data in test
;; run area, it does remote calls under the hood.
(if (and test-id state status (equal? status "AUTO"))
(tdb:test-data-rollup test-id status work-area: work-area))
;; add metadata (need to do this way to avoid SQL injection issues)
;; :first_err
;; (let ((val (hash-table-ref/default otherdat ":first_err" #f)))
;; (if val
;; (sqlite3:execute db "UPDATE tests SET first_err=? WHERE run_id=? AND testname=? AND item_path=?;" val run-id test-name item-path)))
|
| ︙ | ︙ |