Megatest

Check-in [6d5aca6013]
Login
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: 6d5aca60138e9d66e639c96521c46c7e8b0f2609
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
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 'shortlist 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)))







|







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