Overview
| Comment: | provide defaults for state/status on rollup |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.62-no-rpc |
| Files: | files | file ages | folders |
| SHA1: |
0ea88adbf32cae9e5893802173388d5a |
| User & Date: | mrwellan on 2016-11-23 15:04:36 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-11-24
| ||
| 00:16 | Improvements to state/status handling check-in: 3e121725a6 user: matt tags: v1.62-no-rpc | |
|
2016-11-23
| ||
| 15:04 | provide defaults for state/status on rollup check-in: 0ea88adbf3 user: mrwellan tags: v1.62-no-rpc | |
| 13:19 | New method for rolling up itemized test state/status check-in: 016b1f3570 user: mrwellan tags: v1.62-no-rpc | |
Changes
Modified db.scm from [3d081643ad] to [f1fd1d7a39].
| ︙ | ︙ | |||
3188 3189 3190 3191 3192 3193 3194 |
*common:std-states* >))
(all-curr-statuses (common:special-sort
(let ((statuses (db:get-all-item-statuses db run-id test-name)))
(if (equal? state "COMPLETED")
(cons status statuses)
statuses))
*common:std-statuses* >))
| | | | 3188 3189 3190 3191 3192 3193 3194 3195 3196 3197 3198 3199 3200 3201 3202 3203 |
*common:std-states* >))
(all-curr-statuses (common:special-sort
(let ((statuses (db:get-all-item-statuses db run-id test-name)))
(if (equal? state "COMPLETED")
(cons status statuses)
statuses))
*common:std-statuses* >))
(newstate (if (null? all-curr-states) "NOT_STARTED" (car all-curr-states)))
(newstatus (if (null? all-curr-statuses) "n/a" (car all-curr-statuses))))
(db:test-set-state-status-by-id dbstruct run-id test-id newstate newstatus #f))))))
(define db:roll-up-pass-fail-counts db:roll-up-items-state-status)
;; call with state = #f to roll up with out accounting for state/status of this item
;;
;; (define (db:roll-up-pass-fail-counts dbstruct run-id test-name item-path state status)
|
| ︙ | ︙ |