Megatest

Check-in [62ccd43251]
Login
Overview
Comment:Fixed typo
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | v1.60-broken-test1
Files: files | file ages | folders
SHA1: 62ccd432511228438f51fd4d5766c9dabdb724fb
User & Date: matt on 2014-12-09 23:43:10
Other Links: branch diff | manifest | tags
Context
2014-12-09
23:43
Fixed typo Closed-Leaf check-in: 62ccd43251 user: matt tags: v1.60-broken-test1
23:00
Tweak dashboard updates check-in: 1b36724a57 user: matt tags: v1.60-broken-test1
Changes

Modified client.scm from [e12d06ffcd] to [fc43f1ccf0].

201
202
203
204
205
206
207
208

209
210
211
212
213
214
215
201
202
203
204
205
206
207

208
209
210
211
212
213
214
215







-
+







		      (client:setup run-id remaining-tries: (- remaining-tries 1))
		      )))
	      (begin    ;; no server registered
		;; (let ((num-available (tasks:num-in-available-state (db:dbdat-get-db tdbdat) run-id)))
		;;   (debug:print-info 0 "client:setup, no server registered, remaining-tries=" remaining-tries " num-available=" num-available)
		;;   (if (< num-available 2)
		;;       (server:try-running run-id))
		(tasks:start-and-wait-for-server tdbdat run-id delay-max-tries)
		(tasks:start-and-wait-for-server tdbdat run-id 10)
		;; (thread-sleep! (+ 2 (random (- 20 remaining-tries))))  ;; give server a little time to start up, randomize a little to avoid start storms.
		(client:setup run-id remaining-tries: (- remaining-tries 1))))))))

;; keep this as a function to ease future 
(define (client:start run-id server-info)
  (http-transport:client-connect (tasks:hostinfo-get-interface server-info)
				 (tasks:hostinfo-get-port server-info)))