Overview
| Comment: | Backed off on using rmt calls in list-runs |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
76000215a2ea66900e5f9f8682a548ec |
| User & Date: | mrwellan on 2015-06-05 10:13:15 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-06-05
| ||
| 23:27 | Reverted dashboard to direct file access. Enabled dynamic server starting based on query time (settable in megatest.config). check-in: 42eb0d6807 user: matt tags: v1.60 | |
| 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 | |
Changes
Modified megatest.scm from [8e7fb89484] to [28db6031ae].
| ︙ | ︙ | |||
924 925 926 927 928 929 930 | (let* ((dbstruct (make-dbr:dbstruct path: *toppath* local: #t)) (runpatt (args:get-arg "-list-runs")) (testpatt (if (args:get-arg "-testpatt") (args:get-arg "-testpatt") "%")) (keys (db:get-keys dbstruct)) ;; (runsda t (db:get-runs dbstruct runpatt #f #f '())) | | | 924 925 926 927 928 929 930 931 932 933 934 935 936 937 938 |
(let* ((dbstruct (make-dbr:dbstruct path: *toppath* local: #t))
(runpatt (args:get-arg "-list-runs"))
(testpatt (if (args:get-arg "-testpatt")
(args:get-arg "-testpatt")
"%"))
(keys (db:get-keys dbstruct))
;; (runsda t (db:get-runs dbstruct runpatt #f #f '()))
(runsdat (db:get-runs-by-patt dbstruct keys (or runpatt "%") (common:args-get-target)
#f #f '("id" "runname" "state" "status" "owner" "event_time" "comment")))
(runstmp (db:get-rows runsdat))
(header (db:get-header runsdat))
(runs (if (and (not (null? runstmp))
(args:get-arg "-since"))
(let ((changed-ids (db:get-changed-run-ids (string->number (args:get-arg "-since")))))
(let loop ((hed (car runstmp))
|
| ︙ | ︙ | |||
988 989 990 991 992 993 994 | (begin (hash-table-set! seen targetstr #t) ;; (print "[" targetstr "]")))) (if (not dmode)(print targetstr)))) (let* ((run-id (db:get-value-by-header run header "id")) (runname (db:get-value-by-header run header "runname")) (tests (if tests-spec | | | 988 989 990 991 992 993 994 995 996 997 998 999 1000 1001 1002 | (begin (hash-table-set! seen targetstr #t) ;; (print "[" targetstr "]")))) (if (not dmode)(print targetstr)))) (let* ((run-id (db:get-value-by-header run header "id")) (runname (db:get-value-by-header run header "runname")) (tests (if tests-spec (db:get-tests-for-run dbstruct run-id testpatt '() '() #f #f #f 'testname 'asc ;; use qryvals if test-spec provided (if tests-spec (string-intersperse adj-tests-spec ",") ;; db:test-record-fields #f)) '()))) (case dmode |
| ︙ | ︙ |