Overview
| Comment: | Added start up msg for teamcity support wrapper |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 |
| Files: | files | file ages | folders |
| SHA1: |
3e673f0507a89438930047095ebbb030 |
| User & Date: | matt on 2017-06-07 22:28:44 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-06-08
| ||
| 00:09 | Improved faux locking. Cleaned up launch:setup a bit. check-in: 9d5fdd4dfc user: matt tags: v1.64 | |
|
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 | |
Changes
cgisetup/cgi-bin/models became a symlink with target [39c07627cc].
cgisetup/cgi-bin/pages became a symlink with target [e2b5ed002d].
Modified tcmt.scm from [9954f60e52] to [524aac4380].
| ︙ | ︙ | |||
95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 |
(args:get-arg "-reqtarg")))
(runname (args:get-arg "-runname"))
(tsname (common:get-testsuite-name)))
(if (and target runname)
(begin
(launch:setup)
(set! keys (rmt:get-keys))))
(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
(not run-ids))
(let* ((runs (rmt:get-runs-by-patt keys
| > | | | 95 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 121 |
(args:get-arg "-reqtarg")))
(runname (args:get-arg "-runname"))
(tsname (common:get-testsuite-name)))
(if (and target runname)
(begin
(launch:setup)
(set! keys (rmt:get-keys))))
(print "TCMT: for testsuite=" tsname " found runname=" runname " and target=" target " 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
(not run-ids))
(let* ((runs (rmt:get-runs-by-patt keys
runname
target
#f ;; offset
#f ;; limit
#f ;; fields
0 ;; last-update
))
(header (db:get-header runs))
(rows (db:get-rows runs))
|
| ︙ | ︙ |