Megatest

Check-in [4cfc6e3ba2]
Login
Overview
Comment:missed a variable change in a almost never used routine - only to trigger the use of said routine.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.60
Files: files | file ages | folders
SHA1: 4cfc6e3ba27155e2ece517f47caaba24863b93d7
User & Date: matt on 2014-11-16 20:51:42
Other Links: branch diff | manifest | tags
Context
2014-11-16
21:50
fixed logic in test registration. More agressive starting of a server when sync takes a long time check-in: 333191162a user: matt tags: v1.60
20:51
missed a variable change in a almost never used routine - only to trigger the use of said routine. check-in: 4cfc6e3ba2 user: matt tags: v1.60
20:40
Use required mode by default in QA - for now check-in: 91923e2ee5 user: matt tags: v1.60
Changes

Modified rmt.scm from [045a714be1] to [7c6d8ceacc].

215
216
217
218
219
220
221
222
223


224
225
226
227
228
229
230
215
216
217
218
219
220
221


222
223
224
225
226
227
228
229
230







-
-
+
+







(define (rmt:send-receive-no-auto-client-setup connection-info cmd run-id params)
  (let* ((run-id   (if run-id run-id 0))
	 (jparams  (db:obj->string params)) ;; (rmt:dat->json-str params))
	 (dat      (http-transport:client-api-send-receive run-id connection-info cmd jparams)))
    (if (and dat (vector-ref dat 0))
	(db:string->obj (vector-ref dat 1))
	(begin
	  (debug:print 0 "ERROR: rmt:send-receive-no-auto-client-setup failed, attempting to continue. Got " res)
	  res))))
	  (debug:print 0 "ERROR: rmt:send-receive-no-auto-client-setup failed, attempting to continue. Got " dat)
	  dat))))

;; Wrap json library for strings (why the ports crap in the first place?)
(define (rmt:dat->json-str dat)
  (with-output-to-string 
    (lambda ()
      (json-write dat))))