Overview
| Comment: | Fixed -list-runs to work with -target filter |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 | v1.5514 |
| Files: | files | file ages | folders |
| SHA1: |
21925e0dcb802b574e82805e84ebd76c |
| User & Date: | mrwellan on 2013-11-25 13:59:22 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-12-09
| ||
| 16:53 | Some fixes for jobgroups: check-in: 1d7583b4f0 user: mrwellan tags: v1.55 | |
|
2013-11-25
| ||
| 23:02 | Merged in fix for -list-runs not respecting -target, minor edits to dbstruct handling check-in: f2108ba85f user: matt tags: inmem-per-run-db | |
| 13:59 | Fixed -list-runs to work with -target filter check-in: 21925e0dcb user: mrwellan tags: v1.55, v1.5514 | |
|
2013-11-21
| ||
| 12:35 | Added exception handling to cdb:remote run to better support remote access to regression directories check-in: c98c7b6bd9 user: mrwellan tags: v1.55, v1.5514 | |
Changes
Modified megatest.scm from [dc048f2b48] to [e73e5b09eb].
| ︙ | ︙ | |||
577 578 579 580 581 582 583 |
(args:get-arg "-list-db-targets"))
(if (setup-for-run)
(let* ((db #f)
(runpatt (args:get-arg "-list-runs"))
(testpatt (if (args:get-arg "-testpatt")
(args:get-arg "-testpatt")
"%"))
| > > > | < | 577 578 579 580 581 582 583 584 585 586 587 588 589 590 591 592 593 594 595 596 |
(args:get-arg "-list-db-targets"))
(if (setup-for-run)
(let* ((db #f)
(runpatt (args:get-arg "-list-runs"))
(testpatt (if (args:get-arg "-testpatt")
(args:get-arg "-testpatt")
"%"))
(keys (cdb:remote-run db:get-keys #f))
(runsdat (cdb:remote-run db:get-runs-by-patt #f keys runpatt (or (args:get-arg "-target")
(args:get-arg "-reqtarg")) #f #f))
;; (cdb:remote-run db:get-runs #f runpatt #f #f '()))
(runs (db:get-rows runsdat))
(header (db:get-header runsdat))
(db-targets (args:get-arg "-list-db-targets"))
(seen (make-hash-table)))
;; Each run
(for-each
(lambda (run)
(let ((targetstr (string-intersperse (map (lambda (x)
(db:get-value-by-header run header x))
|
| ︙ | ︙ |