Overview
| Comment: | Set default fields for -list-runs to all in tests and runs. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 | v1.6014_a |
| Files: | files | file ages | folders |
| SHA1: |
afd79081c23ca7b7031503037bfa3dd2 |
| User & Date: | mrwellan on 2015-06-05 09:56:37 |
| Other Links: | branch diff | manifest | tags |
Context
|
2015-06-08
| ||
| 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 | |
Changes
Modified megatest.scm from [c1a7cb4489] to [8e7fb89484].
| ︙ | ︙ | |||
948 949 950 951 952 953 954 | (db-targets (args:get-arg "-list-db-targets")) (seen (make-hash-table)) (dmode (let ((d (args:get-arg "-dumpmode"))) (if d (string->symbol d) #f))) (data (make-hash-table)) (fields-spec (if (args:get-arg "-fields") (extract-fields-constraints (args:get-arg "-fields")) | | | | | 948 949 950 951 952 953 954 955 956 957 958 959 960 961 962 963 964 965 966 |
(db-targets (args:get-arg "-list-db-targets"))
(seen (make-hash-table))
(dmode (let ((d (args:get-arg "-dumpmode")))
(if d (string->symbol d) #f)))
(data (make-hash-table))
(fields-spec (if (args:get-arg "-fields")
(extract-fields-constraints (args:get-arg "-fields"))
(list (cons "runs" (append keys (list "id" "runname" "state" "status" "owner" "event_time" "comment" "fail_count" "pass_count")))
(cons "tests" db:test-record-fields) ;; "id" "testname" "test_path")
(list "steps" "id" "stepname"))))
(runs-spec (let ((r (alist-ref "runs" fields-spec equal?))) ;; the check is now unnecessary
(if (and r (not (null? r))) r (list "id" ))))
(tests-spec (let ((t (alist-ref "tests" fields-spec equal?)))
(if (and t (null? t)) ;; all fields
db:test-record-fields
t)))
(adj-tests-spec (delete-duplicates (if tests-spec (cons "id" tests-spec) db:test-record-fields))) ;; '("id"))))
(steps-spec (alist-ref "steps" fields-spec equal?))
(test-field-index (make-hash-table)))
|
| ︙ | ︙ |