Overview
| Comment: | force zmq mode |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | v1.5x-nanomsg |
| Files: | files | file ages | folders |
| SHA1: |
a8e7a6a99276578079ff9dd4c41ae3f9 |
| 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 | ;;====================================================================== ;; 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") | > | | 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 |
;; (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
| | | | 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.")
|
| ︙ | ︙ |