Overview
| Comment: | Added missing check for legit SKIP status |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.5409 | support-for-skip |
| Files: | files | file ages | folders |
| SHA1: |
233e60104de044c588d89b530550646a |
| User & Date: | mrwellan on 2013-04-12 14:32:02 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-04-12
| ||
| 14:55 | Added SKIP handling to rollup of pass/fail counts Closed-Leaf check-in: 98f1cc9c66 user: mrwellan tags: v1.5411, support-for-skip | |
| 14:32 | Added missing check for legit SKIP status check-in: 233e60104d user: mrwellan tags: v1.5409, support-for-skip | |
| 09:39 | Added support for SKIP. check-in: 6c2fada4e9 user: mrwellan tags: support-for-skip | |
Changes
Modified db.scm from [0623ab4501] to [09909fb595].
| ︙ | ︙ | |||
1828 1829 1830 1831 1832 1833 1834 | (for-each (lambda (test) ;; (if (equal? waitontest-name (db:test-get-testname test)) ;; by defintion this had better be true ... (let* ((state (db:test-get-state test)) (status (db:test-get-status test)) (item-path (db:test-get-item-path test)) (is-completed (equal? state "COMPLETED")) | | | 1828 1829 1830 1831 1832 1833 1834 1835 1836 1837 1838 1839 1840 1841 1842 |
(for-each
(lambda (test)
;; (if (equal? waitontest-name (db:test-get-testname test)) ;; by defintion this had better be true ...
(let* ((state (db:test-get-state test))
(status (db:test-get-status test))
(item-path (db:test-get-item-path test))
(is-completed (equal? state "COMPLETED"))
(is-ok (member status '("PASS" "WARN" "CHECK" "WAIVED" "SKIP")))
(same-itempath (equal? ref-item-path item-path)))
(set! ever-seen #t)
(cond
;; case 1, non-item (parent test) is
((and (equal? item-path "") ;; this is the parent test
is-completed
(or is-ok (eq? mode 'toplevel)))
|
| ︙ | ︙ |