Overview
Comment: | Tweaks to runs, added some delays, corrected logic on marking more tests as to be run |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | trunk |
Files: | files | file ages | folders |
SHA1: |
247a08ee49ee311e0a2e50840e2641a3 |
User & Date: | matt on 2012-11-21 00:01:14 |
Other Links: | manifest | tags |
Context
2012-11-21
| ||
01:14 | Added pulse check back to server check-in: 93a96170ab user: matt tags: trunk | |
00:01 | Tweaks to runs, added some delays, corrected logic on marking more tests as to be run check-in: 247a08ee49 user: matt tags: trunk | |
2012-11-20
| ||
22:01 | Merged in interleaved-queries branch check-in: 0d2cb51875 user: matt tags: trunk | |
Changes
Modified runs.scm from [33b2be809c] to [6923ee1d25].
︙ | |||
406 407 408 409 410 411 412 | 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 421 422 423 424 425 426 427 428 429 430 | + - - + + - + | ((not (tests:match test-patts (tests:testqueue-get-testname test-record) item-path)) ;; This test/itempath is not to be run ;; else the run is stuck, temporarily or permanently ;; but should check if it is due to lack of resources vs. prerequisites (debug:print-info 1 "Skipping " (tests:testqueue-get-testname test-record) " " item-path " as it doesn't match " test-patts) (thread-sleep! *global-delta*) (if (not (null? tal)) (loop (car tal)(cdr tal) reruns))) ( ;; (and |
︙ | |||
480 481 482 483 484 485 486 | 481 482 483 484 485 486 487 488 489 490 491 492 493 494 495 496 | + - + | (thread-sleep! (+ 0.01 *global-delta*)) (loop (car tal)(cdr tal) reruns)))) ;; if items is a proc then need to run items:get-items-from-config, get the list and loop ;; - but only do that if resources exist to kick off the job ((or (procedure? items)(eq? items 'have-procedure)) (let ((can-run-more (runs:can-run-more-tests test-record))) (if (and (list? can-run-more) |
︙ | |||
544 545 546 547 548 549 550 | 546 547 548 549 550 551 552 553 554 555 556 557 558 559 560 | - + | (debug:print 8 "ERROR: No handler for this condition.") (thread-sleep! (+ 1 *global-delta*)) (loop (car newtal)(cdr newtal) reruns)))) ;; END OF IF CAN RUN MORE ;; if can't run more just loop with next possible test (begin (debug:print-info 4 "processing the case with a lambda for items or 'have-procedure. Moving through the queue without dropping " hed) |
︙ |