Overview
| Comment: | Added missing WARN and WAIVED to teamcity testFinished status. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 | v1.6424 |
| Files: | files | file ages | folders |
| SHA1: |
9da9d38cfc753791666d468e02463b7e |
| User & Date: | mrwellan on 2017-07-11 15:23:29 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-07-11
| ||
| 15:54 | Fixed rollup of DEAD. check-in: 44fee9274f user: mrwellan tags: v1.64 | |
| 15:23 | Added missing WARN and WAIVED to teamcity testFinished status. check-in: 9da9d38cfc user: mrwellan tags: v1.64, v1.6424 | |
|
2017-07-10
| ||
| 18:08 | Added lock between test launch and removing test data check-in: 2bb0d5f0ff user: mrwellan tags: v1.64 | |
Changes
Modified tcmt.scm from [22014ba117] to [06a53b1301].
| ︙ | ︙ | |||
80 81 82 83 84 85 86 | ;; (print "DEBUG: testn=" testn " state=" state " status=" status " prevstat=" prevstat " newstat=" newstat) (if (or (not prevstat) (not (equal? prevstat newstat))) (begin (case (string->symbol newstat) ((UNK) ) ;; do nothing ((RUNNING) (print "##teamcity[testStarted name='" tctname "']")) | | | 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 |
;; (print "DEBUG: testn=" testn " state=" state " status=" status " prevstat=" prevstat " newstat=" newstat)
(if (or (not prevstat)
(not (equal? prevstat newstat)))
(begin
(case (string->symbol newstat)
((UNK) ) ;; do nothing
((RUNNING) (print "##teamcity[testStarted name='" tctname "']"))
((PASS SKIP WARN WAIVED) (print "##teamcity[testFinished name='" tctname "' duration='" (* 1e3 duration) "'" cmtstr details " ]"))
(else
(print "##teamcity[testFailed name='" tctname "' " cmtstr details " ]")))
(flush-output)
(hash-table-set! data testn newstat)))))
tests)))
run-ids))
now))
|
| ︙ | ︙ |