Changes In Branch item_calc-queued Excluding Merge-Ins
This is equivalent to a diff from eb760222b4 to f12afe92f6
2015-03-15
| ||
22:44 | Merged in json output for -list-runs. Bumped version to 1.6009. check-in: b63a26d1e6 user: matt tags: v1.60 | |
2015-03-12
| ||
16:04 | Started adding json support for list runs Closed-Leaf check-in: 326c8c2840 user: mrwellan tags: list-runs-json | |
2015-03-11
| ||
23:49 | Attempt to add ITEM_CALC and QUEUED statuses. Caused problems Closed-Leaf check-in: f12afe92f6 user: matt tags: item_calc-queued | |
23:31 | Moved loading of format module later to avoid strange crashes in read-only areas check-in: eb760222b4 user: matt tags: v1.60 | |
2015-03-09
| ||
05:20 | Bumping version check-in: 41f22e34be user: matt tags: v1.60 | |
Modified runs.scm from [61baf1971a] to [401141b3cc].
︙ | ︙ | |||
512 513 514 515 516 517 518 | (and (member 'toplevel testmode) (null? non-completed))) (debug:print-info 4 "runs:expand-items: (or (null? prereqs-not-met) (and (member 'toplevel testmode)(null? non-completed)))") (let ((test-name (tests:testqueue-get-testname test-record))) (setenv "MT_TEST_NAME" test-name) ;; (setenv "MT_RUNNAME" runname) (runs:set-megatest-env-vars run-id inrunname: runname) ;; these may be needed by the launching process | > | > > | | > | 512 513 514 515 516 517 518 519 520 521 522 523 524 525 526 527 528 529 530 531 532 533 534 535 536 | (and (member 'toplevel testmode) (null? non-completed))) (debug:print-info 4 "runs:expand-items: (or (null? prereqs-not-met) (and (member 'toplevel testmode)(null? non-completed)))") (let ((test-name (tests:testqueue-get-testname test-record))) (setenv "MT_TEST_NAME" test-name) ;; (setenv "MT_RUNNAME" runname) (runs:set-megatest-env-vars run-id inrunname: runname) ;; these may be needed by the launching process (let ((items-list (items:get-items-from-config tconfig)) (test-id (rmt:get-test-id run-id test-name ""))) (mt:test-set-state-status-by-id run-id test-id "NOT_STARTED" "ITEM_CALC" "") (if (list? items-list) (begin (if (null? items-list) ;; (let ((test-id (rmt:get-test-id run-id test-name ""))) (if test-id (mt:test-set-state-status-by-id run-id test-id "NOT_STARTED" "ZERO_ITEMS" "Failed to run due to failed prerequisites")));; ) (tests:testqueue-set-items! test-record items-list) (mt:test-set-state-status-by-id run-id test-id "NOT_STARTED" "QUEUED" "") (list hed tal reg reruns)) (begin (debug:print 0 "ERROR: The proc from reading the items table did not yield a list - please report this") (exit 1)))))) ((and (null? fails) (null? prereq-fails) |
︙ | ︙ |