Overview
| Comment: | Fixed duration issue for tcmt |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 |
| Files: | files | file ages | folders |
| SHA1: |
6d5aca60138e9d66e639c96521c46c7e |
| User & Date: | mrwellan on 2017-06-07 14:53:18 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-06-07
| ||
| 22:28 | Added start up msg for teamcity support wrapper check-in: 3e673f0507 user: matt tags: v1.64 | |
| 14:53 | Fixed duration issue for tcmt check-in: 6d5aca6013 user: mrwellan tags: v1.64 | |
| 13:46 | Changed warning to INFO check-in: 179809b855 user: mrwellan tags: v1.64 | |
Changes
Modified tcmt.scm from [56d4e4b35a] to [9954f60e52].
| ︙ | ︙ | |||
47 48 49 50 51 52 53 |
(define (print-changes-since data run-ids last-update tsname target runname)
(let ((now (current-seconds)))
(handle-exceptions
exn
(begin (print-call-chain) (print "Error message: " ((condition-property-accessor 'exn 'message) exn)))
(for-each
(lambda (run-id)
| | | 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 |
(define (print-changes-since data run-ids last-update tsname target runname)
(let ((now (current-seconds)))
(handle-exceptions
exn
(begin (print-call-chain) (print "Error message: " ((condition-property-accessor 'exn 'message) exn)))
(for-each
(lambda (run-id)
(let* ((tests (rmt:get-tests-for-run run-id "%" '() '() #f #f #f #f #f #f last-update #f)))
;; (print "DEBUG: got tests=" tests)
(for-each
(lambda (testdat)
(let* ((testn (db:test-get-fullname testdat))
(testname (db:test-get-testname testdat))
(itempath (db:test-get-item-path testdat))
(tctname (if (string=? itempath "") testname (conc testname "." itempath)))
|
| ︙ | ︙ |