Overview
| Comment: | Cut back growth rate on the can-run-more-tests-delay |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | development |
| Files: | files | file ages | folders |
| SHA1: |
ef113f8fda71ec517c408fe622816a8c |
| User & Date: | matt on 2013-04-16 22:34:35 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-04-17
| ||
| 00:00 | Trimmed more delays check-in: 5f418512e9 user: matt tags: development | |
|
2013-04-16
| ||
| 22:34 | Cut back growth rate on the can-run-more-tests-delay check-in: ef113f8fda user: matt tags: development | |
| 22:10 | Removed the delays sprinkled throughout the run launching process check-in: 7fcf89d8c7 user: matt tags: development | |
Changes
Modified runs.scm from [0b70ae9c19] to [f326c575c1].
| ︙ | ︙ | |||
136 137 138 139 140 141 142 |
(num-running-in-jobgroup (cdb:remote-run db:get-count-tests-running-in-jobgroup #f jobgroup))
(max-concurrent-jobs (let ((mcj (config-lookup *configdat* "setup" "max_concurrent_jobs")))
(if (and mcj (string->number mcj))
(string->number mcj)
1)))
(job-group-limit (config-lookup *configdat* "jobgroups" jobgroup)))
(if (and (> (+ num-running num-running-in-jobgroup) 0)
| | | | 136 137 138 139 140 141 142 143 144 145 146 147 148 149 150 151 152 |
(num-running-in-jobgroup (cdb:remote-run db:get-count-tests-running-in-jobgroup #f jobgroup))
(max-concurrent-jobs (let ((mcj (config-lookup *configdat* "setup" "max_concurrent_jobs")))
(if (and mcj (string->number mcj))
(string->number mcj)
1)))
(job-group-limit (config-lookup *configdat* "jobgroups" jobgroup)))
(if (and (> (+ num-running num-running-in-jobgroup) 0)
(< *runs:can-run-more-tests-delay* 2))
(begin
(set! *runs:can-run-more-tests-delay* (+ *runs:can-run-more-tests-delay* 0.01))
(debug:print-info 14 "can-run-more-tests-delay: " *runs:can-run-more-tests-delay*)))
(if (not (eq? *last-num-running-tests* num-running))
(begin
(debug:print 2 "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)
|
| ︙ | ︙ |
Modified tests/fdktestqa/testqa/tests/bigrun/step1.sh from [42820046f5] to [8c4fcc7255].
1 | #!/bin/sh | | | 1 2 3 | #!/bin/sh sleep 10 exit 0 |