Overview
| Comment: | Attempt to add ITEM_CALC and QUEUED statuses. Caused problems |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | item_calc-queued |
| Files: | files | file ages | folders |
| SHA1: |
f12afe92f6798b6fc993d231ba42b038 |
| User & Date: | matt on 2015-03-11 23:49:51 |
| Other Links: | branch diff | manifest | tags |
Context
|
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 | |
Changes
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)
|
| ︙ | ︙ |