Overview
| Comment: | Added minor defence against situation where http transport returned bad data (good candidate for reversal) |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
8618fbca954a2b8ed8f889d8994608ab |
| User & Date: | mrwellan on 2020-11-25 20:11:26 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-12-06
| ||
| 15:22 | added -rerun to megatest calls from mtut, added archival of rerun data check-in: 5adcfa3594 user: mmgraham tags: v1.65 | |
|
2020-11-25
| ||
| 20:11 | Added minor defence against situation where http transport returned bad data (good candidate for reversal) check-in: 8618fbca95 user: mrwellan tags: v1.65 | |
| 14:12 | Merged the reload configs feature for Robert check-in: 3436dd042e user: mrwellan tags: v1.65 | |
Changes
Modified runs.scm from [1c3d05010f] to [6b543e5097].
| ︙ | ︙ | |||
348 349 350 351 352 353 354 |
(args:get-arg "-one-pass"))
(exit 0))
(if (runs:dat-load-mgmt-function runsdat)((runs:dat-load-mgmt-function runsdat)))
(let* ((num-running (rmt:get-count-tests-running run-id))
(num-running-in-jobgroup (rmt:get-count-tests-running-in-jobgroup run-id jobgroup))
| | | | < | | 348 349 350 351 352 353 354 355 356 357 358 359 360 361 362 363 364 365 |
(args:get-arg "-one-pass"))
(exit 0))
(if (runs:dat-load-mgmt-function runsdat)((runs:dat-load-mgmt-function runsdat)))
(let* ((num-running (rmt:get-count-tests-running run-id))
(num-running-in-jobgroup (rmt:get-count-tests-running-in-jobgroup run-id jobgroup))
(job-group-limit (configf:lookup-number *configdat* "jobgroups" jobgroup)))
(if (and (number? num-running) ;; checking for number - had a crash where a non-number was returned. Not sure why.
(number? num-running-in-jobgroup) ;; probably can remove this when rmt switches away from http.
(> (+ num-running num-running-in-jobgroup) 0))
(runs:inc-can-run-more-tests-count runsdat)) ;; (set! *runs:can-run-more-tests-count* (+ *runs:can-run-more-tests-count* 1)))
(if (not (eq? *last-num-running-tests* num-running))
(begin
(debug:print 2 *default-log-port* "max-concurrent-jobs: " max-concurrent-jobs ", num-running: " num-running)
(set! *last-num-running-tests* num-running)))
(if (not (eq? 0 *globalexitstatus*))
(list #f num-running num-running-in-jobgroup max-concurrent-jobs job-group-limit)
|
| ︙ | ︙ |