Overview
| Comment: | fixed problem with subrun:set-state-status |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
441e299543e0f819da8d988de6f36e5f |
| User & Date: | bjbarcla on 2017-12-29 15:23:07 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-12-29
| ||
| 15:27 | typo check-in: 4432b3c8fa user: bjbarcla tags: v1.65 | |
| 15:23 | fixed problem with subrun:set-state-status check-in: 441e299543 user: bjbarcla tags: v1.65 | |
| 15:15 | fixed a few exception check-in: c8b69bc77f user: bjbarcla tags: v1.65 | |
Changes
Modified subrun.scm from [47342ae6dc] to [ba21e628d1].
| ︙ | ︙ | |||
83 84 85 86 87 88 89 |
(create-symbolic-link ra symlink-target)
(configf:write-alist testconfig "testconfig.subrun")))
(define (subrun:set-state-status test-run-dir state status new-state-status)
(if (and (not (subrun:subrun-removed? test-run-dir)) (subrun:subrun-test-initialized? test-run-dir))
| > > > > | | | | 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 |
(create-symbolic-link ra symlink-target)
(configf:write-alist testconfig "testconfig.subrun")))
(define (subrun:set-state-status test-run-dir state status new-state-status)
(if (and (not (subrun:subrun-removed? test-run-dir)) (subrun:subrun-test-initialized? test-run-dir))
(let* ((action-switches-str
(conc "set-state-status="new-state-status
(if state (conc " -state "state ""))
(if status (conc " -status "status) "")))
(log-prefix (subrun:sanitize-path
(conc "set-state-status="new-state-status
(if state (conc ":state="state ""))
(if status (conc "+status="status) ""))))
(submt-result
(subrun:exec-sub-megatest test-run-dir action-switches-str log-prefix)))
submt-result)))
(define (subrun:remove-subrun test-run-dir keep-records )
(if (and (not (subrun:subrun-removed? test-run-dir)) (subrun:subrun-test-initialized? test-run-dir))
(let* ((action-switches-str
|
| ︙ | ︙ |