Overview
| Comment: | Fixed logic bug in tests for server keep going |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
39f86ecb7a063a626cb943a58bd441a7 |
| User & Date: | matt on 2014-08-20 00:12:10 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-08-20
| ||
| 23:35 | Added basic data collection for publish to datashare check-in: c6b22c2e7a user: matt tags: v1.60 | |
| 00:12 | Fixed logic bug in tests for server keep going check-in: 39f86ecb7a user: matt tags: v1.60 | |
|
2014-08-19
| ||
| 23:59 | Servers will wait until no running tests before exiting check-in: fac1a3d1e7 user: matt tags: v1.60 | |
Changes
Modified http-transport.scm from [b22fd66de9] to [ef3af529b1].
| ︙ | ︙ | |||
395 396 397 398 399 400 401 |
;; (debug:print 11 "last-access=" last-access ", server-timeout=" server-timeout)
;;
;; no_traffic, no running tests, if server 0, no running servers
;;
(if (and *server-run*
(or (> (db:get-count-tests-running *inmemdb* run-id) 0)
(and (eq? run-id 0)
| | | | | 395 396 397 398 399 400 401 402 403 404 405 406 407 408 409 410 411 |
;; (debug:print 11 "last-access=" last-access ", server-timeout=" server-timeout)
;;
;; no_traffic, no running tests, if server 0, no running servers
;;
(if (and *server-run*
(or (> (db:get-count-tests-running *inmemdb* run-id) 0)
(and (eq? run-id 0)
(> (tasks:num-servers-non-zero-running tdb) 0))
(> (+ last-access server-timeout)
(current-seconds))))
(begin
(debug:print-info 0 "Server continuing, seconds since last db access: " (- (current-seconds) last-access))
;;
;; Consider implementing some smarts here to re-insert the record or kill self is
;; the db indicates so
;;
;; (if (tasks:server-am-i-the-server? tdb run-id)
|
| ︙ | ︙ |