Overview
| Comment: | Missed some cases where testFinished was needed. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 | v1.6428 |
| Files: | files | file ages | folders |
| SHA1: |
d68a09622db505a34ebc36a467cc69a0 |
| User & Date: | mrwellan on 2017-08-15 09:55:04 |
| Original Comment: | Missed some cases where testFinished was missed. |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-08-15
| ||
| 16:33 | added get-config-settings.sh to query what tweakable global config settings exist check-in: f77b04e570 user: bjbarcla tags: v1.64 | |
| 09:55 | Missed some cases where testFinished was needed. check-in: d68a09622d user: mrwellan tags: v1.64, v1.6428 | |
|
2017-08-14
| ||
| 16:36 | For teamcity it is necessary to emit a testFinished message even when the test is marked testFailed. check-in: 99afad6671 user: mrwellan tags: v1.64 | |
Changes
Modified tcmt.scm from [f9e002254b] to [75ab8b7c92].
| ︙ | ︙ | |||
107 108 109 110 111 112 113 114 115 116 117 118 119 120 |
(if (not startp)
(begin
(print "##teamcity[testStarted " tcname flowid tstmp "]")
(testdat-start-printed-set! tdat #t)))
(if (not endp)
(begin
(print "##teamcity[testFailed " tcname flowid comment details "]")
(testdat-end-printed-set! tdat #t)))))))
;; (print "ERROR: tc-type \"" (testdat-tc-type tdat) "\" not recognised for " tcname)))
(flush-output)))
;; ;; returns values: flag newlst
;; (define (remove-duplicate-completed tdats)
;; (let* ((flag #f)
| > | 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 |
(if (not startp)
(begin
(print "##teamcity[testStarted " tcname flowid tstmp "]")
(testdat-start-printed-set! tdat #t)))
(if (not endp)
(begin
(print "##teamcity[testFailed " tcname flowid comment details "]")
(print "##teamcity[testFinished" tcname flowid comment details duration "]")
(testdat-end-printed-set! tdat #t)))))))
;; (print "ERROR: tc-type \"" (testdat-tc-type tdat) "\" not recognised for " tcname)))
(flush-output)))
;; ;; returns values: flag newlst
;; (define (remove-duplicate-completed tdats)
;; (let* ((flag #f)
|
| ︙ | ︙ |