Changes In Branch v1.6015_a_fixes Excluding Merge-Ins
This is equivalent to a diff from afd79081c2 to 6ad09270a9
|
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
| ||
| 10:13 | Backed off on using rmt calls in list-runs check-in: 76000215a2 user: mrwellan tags: v1.60 | |
| 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 | |
| 00:19 | Try using rmt in dashboard access check-in: ef10defee3 user: matt tags: v1.60 | |
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)))
|
| ︙ | ︙ |