Overview
| Comment: | Fixed teamcity output generator script - it was running before the run record was created and never detecting when it did finally get created. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 | v1.6418 |
| Files: | files | file ages | folders |
| SHA1: |
6129574e1588a0cf30d5d0762a8cf49a |
| User & Date: | matt on 2017-06-08 00:16:49 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-06-08
| ||
| 17:27 | Added common: to all file-exists? queries as files-exists? would (rightfully) raise an exception if the file is a symlink to a non-existant file. check-in: ac4a8aeb9f user: mrwellan tags: v1.64 | |
| 13:54 | Merged in changes from v1.64 check-in: 3a9471a6ea user: mrwellan tags: v1.65 | |
| 00:16 | Fixed teamcity output generator script - it was running before the run record was created and never detecting when it did finally get created. check-in: 6129574e15 user: matt tags: v1.64, v1.6418 | |
| 00:09 | Improved faux locking. Cleaned up launch:setup a bit. check-in: 9d5fdd4dfc user: matt tags: v1.64 | |
Changes
Modified tcmt.scm from [9a347b1c11] to [587c80baf1].
| ︙ | ︙ | |||
96 97 98 99 100 101 102 |
(runname (args:get-arg "-runname"))
(tsname #f))
(if (and target runname)
(begin
(launch:setup)
(set! keys (rmt:get-keys))))
(set! tsname (common:get-testsuite-name))
| | | > | 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 |
(runname (args:get-arg "-runname"))
(tsname #f))
(if (and target runname)
(begin
(launch:setup)
(set! keys (rmt:get-keys))))
(set! tsname (common:get-testsuite-name))
(print "TCMT: for testsuite=" tsname " found runname=" runname ", target=" target ", keys=" keys " and successfully ran launch:setup.")
(let loop ()
(handle-exceptions
exn
;; (print "Process done.")
(begin (print-call-chain) (print "Error message: " ((condition-property-accessor 'exn 'message) exn)))
(let-values (((pidres exittype exitstatus)
(process-wait pid #t)))
(if (and keys
(or (not run-ids)
(null? run-ids)))
(let* ((runs (rmt:get-runs-by-patt keys
runname
target
#f ;; offset
#f ;; limit
#f ;; fields
0 ;; last-update
|
| ︙ | ︙ |