Overview
| Comment: | changed rmt:get-count-tests-running to get-count-tests-running-for-run-id |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80-revolution |
| Files: | files | file ages | folders |
| SHA1: |
6047a01091ad6920fa995bab13b1f31f |
| User & Date: | mmgraham on 2023-12-20 12:46:07 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-12-20
| ||
| 12:47 | Changed version to 1.8025 check-in: df9018e732 user: mmgraham tags: v1.80-revolution, v1.8025 | |
| 12:46 | changed rmt:get-count-tests-running to get-count-tests-running-for-run-id check-in: 6047a01091 user: mmgraham tags: v1.80-revolution | |
|
2023-12-19
| ||
| 14:15 | corrected args on calls to db:setup, added transport mode files check-in: 25d7080dba user: mmgraham tags: v1.80-revolution | |
Changes
Modified runs.scm from [a4e834ba4f] to [9aec93c445].
| ︙ | ︙ | |||
344 345 346 347 348 349 350 |
;; Take advantage of a good place to exit if running the one-pass methodology
(if (and (> (runs:dat-can-run-more-tests-count runsdat) 20)
(args:get-arg "-one-pass"))
(exit 0))
(if (runs:dat-load-mgmt-function runsdat)((runs:dat-load-mgmt-function runsdat)))
| | | 344 345 346 347 348 349 350 351 352 353 354 355 356 357 358 |
;; Take advantage of a good place to exit if running the one-pass methodology
(if (and (> (runs:dat-can-run-more-tests-count runsdat) 20)
(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-for-run-id run-id))
(num-running-in-jobgroup (rmt:get-count-tests-running-in-jobgroup run-id jobgroup))
(job-group-limit (let ((jobg-count (configf:lookup *configdat* "jobgroups" jobgroup)))
(if (string? jobg-count)
(string->number jobg-count)
jobg-count))))
(if (> (+ 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)))
|
| ︙ | ︙ |