Overview
| Comment: | Clarified help on show in mtutils. Adjusted targets in gentargets.sh to match what is in ext-tests. Fixed endless loop in runs.scm when there is a subrun that cannot be removed or fails to remove. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 |
| Files: | files | file ages | folders |
| SHA1: |
e669693ecfde3d8f65b6f79da4c0a527 |
| User & Date: | matt on 2018-08-12 17:54:44 |
| Other Links: | branch diff | manifest | tags |
Context
|
2018-08-13
| ||
| 18:41 | fixed issue in tests/fdktestqa/testqa/tests/bigrun/step1.sh check-in: 6733bbf4a7 user: bb tags: v1.65 | |
|
2018-08-12
| ||
| 17:54 | Clarified help on show in mtutils. Adjusted targets in gentargets.sh to match what is in ext-tests. Fixed endless loop in runs.scm when there is a subrun that cannot be removed or fails to remove. check-in: e669693ecf user: matt tags: v1.65 | |
|
2018-08-10
| ||
| 17:13 | removed debug comment check-in: 0a8c497528 user: pjhatwal tags: v1.65 | |
Changes
Modified gentargets.sh from [1dc041d14f] to [42e51b7b59].
| ︙ | ︙ | |||
13 14 15 16 17 18 19 | # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with Megatest. If not, see <http://www.gnu.org/licenses/>. | | | | 13 14 15 16 17 18 19 20 21 22 23 | # but WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the # GNU General Public License for more details. # # You should have received a copy of the GNU General Public License # along with Megatest. If not, see <http://www.gnu.org/licenses/>. echo '[all/v1.65/tip/dev]' echo 'x 1' echo '[all/v1.64/tip/dev]' echo 'x 1' |
Modified mtut.scm from [0953539a62] to [0abdc2577a].
| ︙ | ︙ | |||
145 146 147 148 149 150 151 | remove : remove runs set-ss : set state/status archive : compress and move test data to archive disk kill : stop tests or entire runs db : database utilities Queries: | | | 145 146 147 148 149 150 151 152 153 154 155 156 157 158 159 | remove : remove runs set-ss : set state/status archive : compress and move test data to archive disk kill : stop tests or entire runs db : database utilities Queries: show [areas|contours... ] : show areas, contours or other section from megatest.config gendot : generate a graphviz dot file from pkts. Contour actions: process : runs import, rungen and dispatch Trigger propagation actions: tsend a=b,c=d... : send trigger info to all recpients in the [listeners] section |
| ︙ | ︙ |
Modified runs.scm from [672152f618] to [18e897116f].
| ︙ | ︙ | |||
2180 2181 2182 2183 2184 2185 2186 |
((done)
;; drop this one; if remaining, loop, else finish
(hash-table-set! backgrounded-remove-last-visit test-fulln (current-seconds))
(let ((subrun-remove-succeeded (hash-table-ref/default backgrounded-remove-result test-fulln 'exception)))
(cond
((eq? subrun-remove-succeeded 'exception)
(let* ((logfile (subrun:get-log-path run-dir "remove")))
| | > > | > | > | | | < < < < | 2180 2181 2182 2183 2184 2185 2186 2187 2188 2189 2190 2191 2192 2193 2194 2195 2196 2197 2198 2199 2200 2201 2202 2203 2204 2205 2206 2207 2208 |
((done)
;; drop this one; if remaining, loop, else finish
(hash-table-set! backgrounded-remove-last-visit test-fulln (current-seconds))
(let ((subrun-remove-succeeded (hash-table-ref/default backgrounded-remove-result test-fulln 'exception)))
(cond
((eq? subrun-remove-succeeded 'exception)
(let* ((logfile (subrun:get-log-path run-dir "remove")))
(debug:print 0 *default-log-port* "ERROR: removing subrun of of " test-fulln " with run-id " run-id " ; see logfile @ "logfile))
(if (not (null? tal))
(loop (car tal)(cdr tal))))
(subrun-remove-succeeded
(debug:print 0 *default-log-port* "Now removing of " test-fulln " with run-id " run-id " since subrun was removed.")
;;(runs:remove-test-directory new-test-dat mode) ;; let normal case handle this. it will go thru loop again as non-subrun
(let ((newtal (append tal (list test))))
(loop (car newtal)(cdr newtal))))
(else
(let* ((logfile (subrun:get-log-path run-dir "remove")))
(debug:print 0 *default-log-port* "WARNING: removal of subrun failed. Please check "logfile" for details."))
;; send to back of line, loop (will not match has-subrun next time through)
(if (not (null? tal))
(loop (car tal)(cdr tal))))))
)
) ; end case rem-status
) ; end let
); end cond has-subrun
(else
;; BB - TODO - consider backgrounding to threads to delete tests (work below)
(debug:print-info 0 *default-log-port* "test: " test-name " itest-state: " test-state)
|
| ︙ | ︙ |