Overview
| Comment: | Couple cleanups for tc integration |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 |
| Files: | files | file ages | folders |
| SHA1: |
f846facc3b76b9ec775e618e53f0a114 |
| User & Date: | mrwellan on 2017-06-05 18:13:34 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-06-06
| ||
| 23:16 | Put faux-locks into no-sync db. check-in: 6ec66c15e4 user: matt tags: v1.64 | |
|
2017-06-05
| ||
| 18:13 | Couple cleanups for tc integration check-in: f846facc3b user: mrwellan tags: v1.64 | |
| 18:01 | Added first pass implementation of teamcity inteface wrapper check-in: 0279fc7474 user: mrwellan tags: v1.64 | |
Changes
Modified tcmt.scm from [800b1b82c2] to [56d4e4b35a].
| ︙ | ︙ | |||
71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 |
status
"UNK"))))
;; (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)
((RUNNING) (print "##teamcity[testStarted name='" tctname "']"))
((PASS SKIP) (print "##teamcity[testFinished name='" tctname "' duration='" duration "']"))
(else
(print "##teamcity[testFailed name='" tctname "' message='" comment "' details='" logfile "']")))
(hash-table-set! data testn newstat)))))
tests)))
run-ids))
now))
(define (monitor pid)
(let ((run-ids #f)
| > > | 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 |
status
"UNK"))))
;; (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) (print "##teamcity[testFinished name='" tctname "' duration='" duration "']"))
(else
(print "##teamcity[testFailed name='" tctname "' message='" comment "' details='" logfile "']")))
(flush-output)
(hash-table-set! data testn newstat)))))
tests)))
run-ids))
now))
(define (monitor pid)
(let ((run-ids #f)
|
| ︙ | ︙ |