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