Overview
| Comment: | Minor tweaks to v1.6015, fixed -get-run-status bug |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.6015_a_fixes |
| Files: | files | file ages | folders |
| SHA1: |
6ad09270a9b76aeb495a47110c18768d |
| User & Date: | mrwellan on 2015-06-08 16:08:41 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-06-08
| ||
| 16:10 | Merged in side fix v1.6015_a_fixes check-in: 59a866ffc0 user: mrwellan tags: v1.60 | |
| 16:08 | Minor tweaks to v1.6015, fixed -get-run-status bug Closed-Leaf check-in: 6ad09270a9 user: mrwellan tags: v1.6015_a_fixes | |
|
2015-06-05
| ||
| 09:56 | Set default fields for -list-runs to all in tests and runs. check-in: afd79081c2 user: mrwellan tags: v1.60, v1.6014_a | |
Changes
Modified megatest.scm from [8e7fb89484] to [8765fbbc00].
| ︙ | ︙ | |||
870 871 872 873 874 875 876 |
(args:get-arg "-get-run-status"))
(general-run-call
"-set-run-status"
"set run status"
(lambda (target runname keys keyvals)
(let* ((runsdat (rmt:get-runs-by-patt keys runname
(common:args-get-target)
| | | 870 871 872 873 874 875 876 877 878 879 880 881 882 883 884 |
(args:get-arg "-get-run-status"))
(general-run-call
"-set-run-status"
"set run status"
(lambda (target runname keys keyvals)
(let* ((runsdat (rmt:get-runs-by-patt keys runname
(common:args-get-target)
#f #f #f))
(header (vector-ref runsdat 0))
(rows (vector-ref runsdat 1)))
(if (null? rows)
(begin
(debug:print-info 0 "No matching run found.")
(exit 1))
(let* ((row (car (vector-ref runsdat 1)))
|
| ︙ | ︙ |