Overview
| Comment: | Switched when queued items get run. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | experimental |
| Files: | files | file ages | folders |
| SHA1: |
5c521cf269bd329f4fa9e0c37bcae96c |
| User & Date: | mrwellan on 2011-06-20 14:42:37 |
| Other Links: | branch diff | manifest | tags |
Context
|
2011-06-22
| ||
| 23:14 | Added checking for exceeding max runs to the run-later queue check-in: e953469a27 user: mrwellan tags: experimental | |
|
2011-06-20
| ||
| 14:42 | Switched when queued items get run. check-in: 5c521cf269 user: mrwellan tags: experimental | |
|
2011-06-19
| ||
| 12:03 | Added some additional tests to the example run check-in: a6f2ac3f35 user: mrwellan tags: experimental | |
Changes
Modified megatest.scm from [eedc08b57c] to [7f265d3900].
| ︙ | ︙ | |||
646 647 648 649 650 651 652 |
;; (megatest-gui)
(set! *didsomething* #t)))
(if (not *didsomething*)
(print help))
(if (not (eq? *globalexitstatus* 0))
| > > > > | > > > > | 646 647 648 649 650 651 652 653 654 655 656 657 658 659 660 661 |
;; (megatest-gui)
(set! *didsomething* #t)))
(if (not *didsomething*)
(print help))
(if (not (eq? *globalexitstatus* 0))
(if (or (args:get-arg "-runtests")(args:get-arg "-runall"))
(begin
(print "NOTE: Subprocesses with non-zero exit code detected: " *globalexitstatus*)
(exit 0))
(case *globalexitstatus*
((0)(exit 0))
((1)(exit 1))
((2)(exit 2))
(else (exit 3)))))
|
Modified runs.scm from [515d5f8026] to [a0270270a3].
| ︙ | ︙ | |||
268 269 270 271 272 273 274 |
(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)
| | | | 268 269 270 271 272 273 274 275 276 277 278 279 280 281 282 283 284 285 286 287 288 289 |
(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)
;; (run-waiting-tests db)
(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)
(run-waiting-tests db)
(loop (+ numtimes 1)))))))))
;; VERY INEFFICIENT! Move stuff that should be done once up to calling proc
(define (run-one-test db run-id test-name keyvallst)
(print "Launching test " test-name)
;; All these vars might be referenced by the testconfig file reader
(setenv "MT_TEST_NAME" test-name) ;;
|
| ︙ | ︙ |