Overview
| Comment: | typo |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
a630d7090cea3b1b4eb0b760d16b1150 |
| User & Date: | bjbarcla on 2017-12-29 15:33:23 |
| Other Links: | branch diff | manifest | tags |
Context
|
2017-12-29
| ||
| 15:58 | we need to wait longer for state-status to settle for run wait check-in: 8b52109594 user: bjbarcla tags: v1.65 | |
| 15:33 | typo check-in: a630d7090c user: bjbarcla tags: v1.65 | |
| 15:27 | typo check-in: 4432b3c8fa user: bjbarcla tags: v1.65 | |
Changes
Modified common.scm from [7529d3d14d] to [e4bb5f7870].
| ︙ | ︙ | |||
1786 1787 1788 1789 1790 1791 1792 |
(define (common:get-param-mapping #!key (flavor #f))
"returns alist mapping string keys in testconfig/subrun to megatest command line switches; if flavor is switch-symbol, maps tcmt symbolic switches to megatest switches"
(let ((default '(("tag-expr" . "-tagexpr")
("mode-patt" . "-modepatt")
("run-name" . "-runname")
("contour" . "-contour")
| < | 1786 1787 1788 1789 1790 1791 1792 1793 1794 1795 1796 1797 1798 1799 |
(define (common:get-param-mapping #!key (flavor #f))
"returns alist mapping string keys in testconfig/subrun to megatest command line switches; if flavor is switch-symbol, maps tcmt symbolic switches to megatest switches"
(let ((default '(("tag-expr" . "-tagexpr")
("mode-patt" . "-modepatt")
("run-name" . "-runname")
("contour" . "-contour")
("target" . "-target")
("test-patt" . "-testpatt")
("msg" . "-m")
("log" . "-log")
("start-dir" . "-start-dir")
("new" . "-set-state-status"))))
(if (eq? flavor 'switch-symbol)
|
| ︙ | ︙ |
Modified subrun.scm from [910881faf1] to [011e42f3f6].
| ︙ | ︙ | |||
84 85 86 87 88 89 90 |
(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
| | | 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 |
(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
|
| ︙ | ︙ |