Megatest

Check-in [a8e7a6a992]
Login
Overview
Comment:force zmq mode
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | v1.5x-nanomsg
Files: files | file ages | folders
SHA1: a8e7a6a99276578079ff9dd4c41ae3f9bff100cf
User & Date: matt on 2015-09-15 23:57:47
Other Links: branch diff | manifest | tags
Context
2015-09-15
23:57
force zmq mode Leaf check-in: a8e7a6a992 user: matt tags: v1.5x-nanomsg
23:15
Reviving v1.5x with working zmq transport as reference for nanomsg check-in: d1678e692f user: matt tags: v1.5x-nanomsg
Changes

Modified megatest.scm from [d537c8381c] to [75a4e3507c].

266
267
268
269
270
271
272

273
274
275
276
277
278
279
280

;;======================================================================
;; Start the server - can be done in conjunction with -runall or -runtests (one day...)
;;   we start the server if not running else start the client thread
;;======================================================================

(if (args:get-arg "-server")

    (let ((transport (args:get-arg "-transport" "http")))
      (debug:print 2 "Launching server using transport " transport)
      (server:launch (string->symbol transport))))

(if (args:get-arg "-list-servers")
	;; (args:get-arg "-kill-server"))
    (let ((tl (setup-for-run)))
      (if tl 







>
|







266
267
268
269
270
271
272
273
274
275
276
277
278
279
280
281

;;======================================================================
;; Start the server - can be done in conjunction with -runall or -runtests (one day...)
;;   we start the server if not running else start the client thread
;;======================================================================

(if (args:get-arg "-server")
    (let ((transport (or "zmq" ;; (config-lookup *configdat* "server" "transport")
			 (args:get-arg "-transport" "http"))))
      (debug:print 2 "Launching server using transport " transport)
      (server:launch (string->symbol transport))))

(if (args:get-arg "-list-servers")
	;; (args:get-arg "-kill-server"))
    (let ((tl (setup-for-run)))
      (if tl 

Modified tests/fullrun/megatest.config from [cbb7677af1] to [f739ef4e83].

14
15
16
17
18
19
20


21
22
23
24
25
26
27
# FULL or 2, NORMAL or 1, OFF or 0
synchronous OFF
# Throttle roughly scales the db access milliseconds to seconds delay
throttle 0.2
# Max retries allows megatest to re-check that a tests status has changed
# as tests can have transient FAIL status occasionally
maxretries 20


transport zmq

[validvalues]
state start end 0 1 - 2
status pass fail n/a 0 1 running - 2

# These are set before all tests, override them 







>
>







14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
# FULL or 2, NORMAL or 1, OFF or 0
synchronous OFF
# Throttle roughly scales the db access milliseconds to seconds delay
throttle 0.2
# Max retries allows megatest to re-check that a tests status has changed
# as tests can have transient FAIL status occasionally
maxretries 20

[server]
transport zmq

[validvalues]
state start end 0 1 - 2
status pass fail n/a 0 1 running - 2

# These are set before all tests, override them 

Modified zmq-transport.scm from [e1f3152a02] to [a7687193d6].

338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
      
        ;; (if ;; (or (> numrunning 0) ;; stay alive for two days after last access
        (mutex-lock! *heartbeat-mutex*)
        (set! last-access *last-db-access*)
        (mutex-unlock! *heartbeat-mutex*)
        (if (> (+ last-access
                  ;; (* 50 60 60)    ;; 48 hrs
                  ;; 60              ;; one minute
                  ;; (* 60 60)       ;; one hour
                  (* 45 60)          ;; 45 minutes, until the db deletion bug is fixed.
                  )
               (current-seconds))
            (begin
              (debug:print-info 2 "Server continuing, seconds since last db access: " (- (current-seconds) last-access))
              (loop 0))
            (begin
              (debug:print-info 0 "Starting to shutdown the server.")







|

|







338
339
340
341
342
343
344
345
346
347
348
349
350
351
352
353
354
      
        ;; (if ;; (or (> numrunning 0) ;; stay alive for two days after last access
        (mutex-lock! *heartbeat-mutex*)
        (set! last-access *last-db-access*)
        (mutex-unlock! *heartbeat-mutex*)
        (if (> (+ last-access
                  ;; (* 50 60 60)    ;; 48 hrs
                  60              ;; one minute
                  ;; (* 60 60)       ;; one hour
                  ;; (* 45 60)           ;; 45 minutes, until the db deletion bug is fixed.
                  )
               (current-seconds))
            (begin
              (debug:print-info 2 "Server continuing, seconds since last db access: " (- (current-seconds) last-access))
              (loop 0))
            (begin
              (debug:print-info 0 "Starting to shutdown the server.")