Overview
| Comment: | decrease inter-test-delay to 0.1 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.64 | v1.6433 |
| Files: | files | file ages | folders |
| SHA1: |
a073c69b4f5450bf0cdf2b4532a931c8 |
| User & Date: | mrwellan on 2017-10-10 13:50:55 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-10-10
| ||
| 14:01 | Merged install file check-in: e62995eb4e user: jmoon18 tags: v1.64 | |
| 13:50 | decrease inter-test-delay to 0.1 check-in: a073c69b4f user: mrwellan tags: v1.64, v1.6433 | |
| 13:27 | Merged in itemflow2 branch and bumped version check-in: a43f4c88f9 user: mrwellan tags: v1.64, v1.6433 | |
Changes
Modified runs.scm from [8abd893735] to [5a4ac7b383].
| ︙ | ︙ | |||
190 191 192 193 194 195 196 |
;; 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))
(thread-sleep! (cond
((> (runs:dat-can-run-more-tests-count runsdat) 20)
(if (runs:lownoise "waiting on tasks" 60)(debug:print-info 2 *default-log-port* "waiting for tasks to complete, sleeping briefly ..."))
| | | 190 191 192 193 194 195 196 197 198 199 200 201 202 203 204 |
;; 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))
(thread-sleep! (cond
((> (runs:dat-can-run-more-tests-count runsdat) 20)
(if (runs:lownoise "waiting on tasks" 60)(debug:print-info 2 *default-log-port* "waiting for tasks to complete, sleeping briefly ..."))
(configf:lookup-number *configdat* "setup" "inter-test-delay" default: 0.1) ;; was 2
);; obviously haven't had any work to do for a while
(else 0)))
(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 (let ((jobg-count (config-lookup *configdat* "jobgroups" jobgroup)))
(if (string? jobg-count)
(string->number jobg-count)
|
| ︙ | ︙ |