Overview
Comment: | Refactored nested cond in run queue processing into proc runs:process-expanded-tests |
---|---|
Downloads: | Tarball | ZIP archive | SQL archive |
Timelines: | family | ancestors | descendants | both | dev |
Files: | files | file ages | folders |
SHA1: |
0f3b47c2b4587f27a5b80fa3096fccf8 |
User & Date: | matt on 2013-06-26 01:18:47 |
Other Links: | branch diff | manifest | tags |
Context
2013-06-26
| ||
09:46 | Cleaned up runs:expand-items check-in: d3dab825b6 user: mrwellan tags: dev | |
01:18 | Refactored nested cond in run queue processing into proc runs:process-expanded-tests check-in: 0f3b47c2b4 user: matt tags: dev | |
01:03 | Refactored nested cond in run:tests to a proc runs:expand-items check-in: 6f312dd5f5 user: matt tags: dev | |
Changes
Modified dashboard.scm from [130b7aaa06] to [bcb9c3f528].
︙ | |||
602 603 604 605 606 607 608 | 602 603 604 605 606 607 608 609 610 611 612 613 614 615 616 617 618 | - - - + + + | #:size "150x150" #:expand "YES" #:scrollbar "YES" #:posx "0.5" #:posy "0.5"))))))) |
︙ |
Modified runs.scm from [5cf026b1f8] to [3077567ff2].
︙ | |||
406 407 408 409 410 411 412 | 406 407 408 409 410 411 412 413 414 415 416 417 418 419 420 | - + | (cons hed reruns)))))) (else (debug:print 4 "ERROR: No handler for this condition.") ;; TRY (thread-sleep! (+ 1 *global-delta*)) (set! loop-list (list (car newtal)(cdr newtal) reg reruns)))) ;; END OF IF CAN RUN MORE loop-list)) |
︙ | |||
645 646 647 648 649 650 651 | 645 646 647 648 649 650 651 652 653 654 655 656 657 658 659 | - + | ;; items is #f then the test is ok to be handed off to launch (but not before) ;; ((not items) (debug:print-info 4 "OUTER COND: (not items)") (if (and (not (tests:match test-patts (tests:testqueue-get-testname test-record) item-path required: required-tests)) (not (null? tal))) (loop (car tal)(cdr tal) reg reruns)) |
︙ |