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