Megatest

Check-in [6129574e15]
Login
☰Home Timeline Files Branches Tags Tickets Wiki Login
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: 6129574e1588a0cf30d5d0762a8cf49a9ebb5585
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
Hide Diffs Side-by-Side Diffs Ignore Whitespace Patch

Modified tcmt.scm from [9a347b1c11] to [587c80baf1].

︙
96
97
98
99
100
101
102
103

104
105
106
107
108
109
110
111
112


113
114
115
116
117
118
119

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 " and target=" target " and successfully ran launch:setup")
    (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
		  (not run-ids))
		  (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
︙

This page was generated in about 0.116s by Fossil 2.24 [452f8e1ffc] 2024-03-26 15:36:00