Overview
| Comment: | If on homehost, skip waiting for localhost |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-cleanup |
| Files: | files | file ages | folders |
| SHA1: |
78e3f9e388c37ce7dbcb1ccb4b648435 |
| User & Date: | mrwellan on 2020-08-27 08:18:35 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-08-27
| ||
| 12:25 | dunno ==/3.76/0.7/PASS/1201/orion/== ==/ext-tests all PASS except kill-rerun/== check-in: 9306ad82ee user: mrwellan tags: v1.65-cleanup | |
| 08:18 | If on homehost, skip waiting for localhost check-in: 78e3f9e388 user: mrwellan tags: v1.65-cleanup | |
| 07:56 | Comment out a telemetry call check-in: def8386816 user: matt tags: v1.65-cleanup | |
Changes
Modified runs.scm from [8c57f1f1ad] to [96e1d237d4].
| ︙ | ︙ | |||
1214 1215 1216 1217 1218 1219 1220 |
;; this means they will increment only when nothing can be run
(set! *max-tries-hash* (make-hash-table))
;; well, first lets see if cpu load throttling is enabled. If so wait around until the
;; average cpu load is under the threshold before continuing
;; jobtools maxload is useful for where the full Megatest run is done on one machine
| > | > | 1214 1215 1216 1217 1218 1219 1220 1221 1222 1223 1224 1225 1226 1227 1228 1229 1230 1231 1232 |
;; this means they will increment only when nothing can be run
(set! *max-tries-hash* (make-hash-table))
;; well, first lets see if cpu load throttling is enabled. If so wait around until the
;; average cpu load is under the threshold before continuing
;; jobtools maxload is useful for where the full Megatest run is done on one machine
(if (and (not (common:on-homehost?))
maxload) ;; only gate if maxload is specified, NOTE: maxload is normalized, i.e. load=1 means all cpus fully utilized
(common:wait-for-normalized-load maxload "Waiting for load to drop before starting more tests" #f))
;; jobtools maxhomehostload is intended to prevent overloading on the homehost which can cause database corruption issues
(if maxhomehostload
(common:wait-for-homehost-load maxhomehostload
(conc "Waiting for homehost load to drop below normalized value of " maxhomehostload)))
(run:test run-id run-info keyvals runname test-record flags #f test-registry all-tests-registry)
(runs:incremental-print-results run-id)
|
| ︙ | ︙ |
Modified server.scm from [985438be06] to [47c70c913e].
| ︙ | ︙ | |||
322 323 324 325 326 327 328 |
;; wait for server=start-last to be three seconds old
;;
(define (server:wait-for-server-start-last-flag areapath)
(let* ((start-flag (conc areapath "/logs/server-start-last")))
(if (file-exists? start-flag)
(let* ((fmodtime (file-modification-time start-flag))
| | | 322 323 324 325 326 327 328 329 330 331 332 333 334 335 336 |
;; wait for server=start-last to be three seconds old
;;
(define (server:wait-for-server-start-last-flag areapath)
(let* ((start-flag (conc areapath "/logs/server-start-last")))
(if (file-exists? start-flag)
(let* ((fmodtime (file-modification-time start-flag))
(reftime 3) ;; (+ 2 (random 3))) ;;; THIS INTERACTS WITH [server] timeout. Suggest using 0.1 or above
(delta (- (current-seconds) fmodtime))
(all-go (> delta reftime)))
(if all-go
#t ;; (system (conc "touch " start-flag)) ;; lazy but safe
(begin
(debug:print-info 0 *default-log-port* "Gating server start, last start: "
fmodtime ", delta: " delta ", reftime: " reftime ", all-go=" all-go)
|
| ︙ | ︙ |