Overview
| Comment: | Fixed missing run-id in call to mt:test-set-state-status-by-id |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
a2f15ed758e49b9e2c80a0b49468a1bf |
| User & Date: | matt on 2015-05-06 20:47:50 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-05-06
| ||
| 23:20 | Fixed couple issues with archiving check-in: ef73591efd user: matt tags: v1.60 | |
| 20:51 | Merged latest fixes from v1.60 to multi-area check-in: 2d67113627 user: matt tags: multi-area | |
| 20:47 | Fixed missing run-id in call to mt:test-set-state-status-by-id check-in: a2f15ed758 user: matt tags: v1.60 | |
|
2015-05-05
| ||
| 23:59 | Add settings to configfile for triming spaces. Fixed regression on stderr not captured in ezsteps check-in: f2925d4335 user: matt tags: v1.60 | |
Changes
Modified mt.scm from [c221837872] to [82ea79d650].
| ︙ | ︙ | |||
183 184 185 186 187 188 189 | (if newstatus (rmt:general-call 'set-test-status run-id newstatus test-id)) (if newcomment (rmt:general-call 'set-test-comment run-id newcomment test-id)))) (mt:process-triggers run-id test-id newstate newstatus) #t))) (define (mt:test-set-state-status-by-testname run-id test-name item-path new-state new-status new-comment) (let ((test-id (rmt:get-test-id run-id test-name item-path))) | | | 183 184 185 186 187 188 189 190 191 192 193 194 195 196 197 |
(if newstatus (rmt:general-call 'set-test-status run-id newstatus test-id))
(if newcomment (rmt:general-call 'set-test-comment run-id newcomment test-id))))
(mt:process-triggers run-id test-id newstate newstatus)
#t)))
(define (mt:test-set-state-status-by-testname run-id test-name item-path new-state new-status new-comment)
(let ((test-id (rmt:get-test-id run-id test-name item-path)))
(mt:test-set-state-status-by-id run-id test-id new-state new-status new-comment)))
(define (mt:lazy-read-test-config test-name)
(let ((tconf (hash-table-ref/default *testconfigs* test-name #f)))
(if tconf
tconf
(let ((test-dirs (tests:get-tests-search-path *configdat*)))
(let loop ((hed (car test-dirs))
|
| ︙ | ︙ |