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