Overview
| Comment: | Removed debug noise. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.63 | v1.6302 |
| Files: | files | file ages | folders |
| SHA1: |
da4a953eadea57449ac8ec52a7710c03 |
| User & Date: | mrwellan on 2016-12-13 11:57:51 |
| Other Links: | branch diff | manifest | tags |
Context
|
2016-12-15
| ||
| 14:36 | replaced sqlite3 with dbi calls, merged with latest 1.63 check-in: 635131f7ac user: srehman tags: v1.63-gasket | |
|
2016-12-14
| ||
| 15:28 | merged work done on trunk accidentally check-in: 327a91c7af user: bjbarcla tags: v1.63 | |
| 09:03 | Automated merge of v1.63/da4a953ead/integ into integ-home check-in: b4fad76305 user: matt tags: integ-home | |
|
2016-12-13
| ||
| 11:57 | Removed debug noise. check-in: da4a953ead user: mrwellan tags: v1.63, v1.6302 | |
| 11:53 | Fixed the disks handling issue check-in: 6608d3fffa user: mrwellan tags: v1.63 | |
Changes
Modified launch.scm from [9cd18789a4] to [8f1718bc5f].
| ︙ | ︙ | |||
1133 1134 1135 1136 1137 1138 1139 |
(runs:remove-test-directory testinfo 'remove-data-only))) ;; remove data only, do not perturb the record
;; prevent overlapping actions - set to LAUNCHED as early as possible
;;
;; the following call handles waiver propogation. cannot yet condense into roll-up-pass-fail
(tests:test-set-status! run-id test-id "LAUNCHED" "n/a" #f #f) ;; (if launch-results launch-results "FAILED"))
(rmt:roll-up-pass-fail-counts run-id test-name item-path #f "LAUNCHED" #f)
| | | 1133 1134 1135 1136 1137 1138 1139 1140 1141 1142 1143 1144 1145 1146 1147 |
(runs:remove-test-directory testinfo 'remove-data-only))) ;; remove data only, do not perturb the record
;; prevent overlapping actions - set to LAUNCHED as early as possible
;;
;; the following call handles waiver propogation. cannot yet condense into roll-up-pass-fail
(tests:test-set-status! run-id test-id "LAUNCHED" "n/a" #f #f) ;; (if launch-results launch-results "FAILED"))
(rmt:roll-up-pass-fail-counts run-id test-name item-path #f "LAUNCHED" #f)
;; (pp (hash-table->alist tconfig))
(set! diskpath (get-best-disk *configdat* tconfig))
(if diskpath
(let ((dat (create-work-area run-id run-info keyvals test-id test-path diskpath test-name itemdat)))
(set! work-area (car dat))
(set! toptest-work-area (cadr dat))
(debug:print-info 2 *default-log-port* "Using work area " work-area))
(begin
|
| ︙ | ︙ |