Overview
| Comment: | For max_concurrent_jobs if there are trailing spaces the string->number fails. Added quotes to make this occurance more obvious |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | trunk |
| Files: | files | file ages | folders |
| SHA1: |
194bedd45ca09c6362143450a877f76e |
| User & Date: | mrwellan on 2011-06-15 18:31:36 |
| Other Links: | manifest | tags |
Context
|
2011-06-16
| ||
| 00:17 | Fixed job killing on remote hosts check-in: 5cefaba81b user: mrwellan tags: trunk, v1.12 | |
|
2011-06-15
| ||
| 18:31 | For max_concurrent_jobs if there are trailing spaces the string->number fails. Added quotes to make this occurance more obvious check-in: 194bedd45c user: mrwellan tags: trunk | |
| 18:11 | Added -keepgoing, removed the calls to run-queue, fixes to job limits, -runstep, and killreq (now will do signal/kill after first trying signal/term) check-in: c075ebd51b user: mrwellan tags: trunk | |
Changes
Modified runs.scm from [4be3851e9e] to [980eb376cd].
| ︙ | ︙ | |||
260 261 262 263 264 265 266 | (print "max-concurrent-jobs: " max-concurrent-jobs ", num-running: " num-running) (if (or (not max-concurrent-jobs) (and max-concurrent-jobs (string->number max-concurrent-jobs) (not (>= num-running (string->number max-concurrent-jobs))))) (run-one-test db run-id test-name keyvallst) (print "WARNING: Max running jobs exceeded, current number running: " num-running | | | 260 261 262 263 264 265 266 267 268 269 270 271 272 273 274 |
(print "max-concurrent-jobs: " max-concurrent-jobs ", num-running: " num-running)
(if (or (not max-concurrent-jobs)
(and max-concurrent-jobs
(string->number max-concurrent-jobs)
(not (>= num-running (string->number max-concurrent-jobs)))))
(run-one-test db run-id test-name keyvallst)
(print "WARNING: Max running jobs exceeded, current number running: " num-running
", max_concurrent_jobs: \"" max-concurrent-jobs "\""))))
test-names)
(if (args:get-arg "-keepgoing")
(let ((estrem (db:estimated-tests-remaining db run-id)))
(if (> estrem 0)
(begin
(print "Keep going, estimated " estrem " tests remaining to run, will continue in 10 seconds ...")
(sleep 10)
|
| ︙ | ︙ |