Megatest

Diff
Login

Differences From Artifact [a8ea540d36]:

To Artifact [8b5799fea8]:


227
228
229
230
231
232
233





234

235
236
237
238
239
240
241
227
228
229
230
231
232
233
234
235
236
237
238

239
240
241
242
243
244
245
246







+
+
+
+
+
-
+







			 (cadddr serverdat) ;; this is the uri for /api
			 (begin
			   (debug:print 0 "FATAL ERROR: http-transport:client-api-send-receive called with no server info")
			   (exit 1))))
	 (res        #f))
    (handle-exceptions
     exn
     (if (> numretries 0)
	 (begin
	   (mutex-unlock! *http-mutex*)
	   (thread-sleep! 10)
	   (http-transport:client-api-send-receive run-id serverdat cmd params (- numretries 1)))
     #f
	 #f)
     (begin
       (debug:print-info 11 "fullurl=" fullurl ", cmd=" cmd ", params=" params ", run-id=" run-id "\n")
       ;; set up the http-client here
       (max-retry-attempts 5)
       ;; consider all requests indempotent
       (retry-request? (lambda (request)
			 #t))