Overview
| Comment: | Increase to max of 5 secs random wait for server start |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
6961246ad7afecc990d346b9d2f543b6 |
| User & Date: | mrwellan on 2018-02-05 12:42:30 |
| Other Links: | branch diff | manifest | tags |
Context
|
2018-02-05
| ||
| 17:02 | Updated megatest-version check-in: ab7e6db80c user: jmoon18 tags: v1.65, v1.6508 | |
| 12:42 | Increase to max of 5 secs random wait for server start check-in: 6961246ad7 user: mrwellan tags: v1.65 | |
| 09:25 | Increased allowed age on cached load info to 5 seconds. Increased random server start delay to 0-2 seconds. check-in: 97727e82b8 user: mrwellan tags: v1.65 | |
Changes
Modified server.scm from [1169c1e8ae] to [5a88149733].
| ︙ | ︙ | |||
139 140 141 142 143 144 145 |
(not (string-match (conc "("curr-host "|" curr-host"\\..*)") target-host))
(not (equal? curr-ip target-host)))
(begin
(debug:print-info 0 *default-log-port* "Starting server on " target-host ", logfile is " logfile)
(setenv "TARGETHOST" target-host)))
(setenv "TARGETHOST_LOGF" logfile)
| | | 139 140 141 142 143 144 145 146 147 148 149 150 151 152 153 |
(not (string-match (conc "("curr-host "|" curr-host"\\..*)") target-host))
(not (equal? curr-ip target-host)))
(begin
(debug:print-info 0 *default-log-port* "Starting server on " target-host ", logfile is " logfile)
(setenv "TARGETHOST" target-host)))
(setenv "TARGETHOST_LOGF" logfile)
(thread-sleep! (/ (random 5000) 1000)) ;; add about a random (up to 5 seconds) initial delay. It seems pretty common that many running tests request a server at the same time
(common:wait-for-normalized-load load-limit " delaying server start due to load" target-host) ;; do not try starting servers on an already overloaded machine, just wait forever
(system (conc "nbfake " cmdln))
(unsetenv "TARGETHOST_LOGF")
(if (get-environment-variable "TARGETHOST")(unsetenv "TARGETHOST"))
(thread-join! log-rotate)
(pop-directory)))
|
| ︙ | ︙ |