Overview
| Comment: | Fixed -update-meta |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 | v1.5513 |
| Files: | files | file ages | folders |
| SHA1: |
2057d3d2394cd9c08411f06108f8b9e8 |
| User & Date: | mrwellan on 2013-10-24 18:10:53 |
| Other Links: | branch diff | manifest | tags |
Context
|
2013-10-25
| ||
| 14:02 | do a complete update of tests_meta at the start of each run check-in: beab5c0392 user: mrwellan tags: v1.55, v1.5513 | |
|
2013-10-24
| ||
| 21:51 | Merged v1.55 to refactor-db check-in: 2842a76bf8 user: matt tags: refactor-db | |
| 18:10 | Fixed -update-meta check-in: 2057d3d239 user: mrwellan tags: v1.55, v1.5513 | |
| 17:51 | Speculative fix for partial updates of test_meta check-in: 53eb2bad17 user: mrwellan tags: v1.55 | |
Changes
Modified runs.scm from [160be09387] to [fe131639e3].
| ︙ | ︙ | |||
1425 1426 1427 1428 1429 1430 1431 |
(define (runs:update-all-test_meta db)
(let ((test-names (tests:get-all))) ;; (tests:get-valid-tests)))
(for-each
(lambda (test-name)
(let* ((test-conf (mt:lazy-read-test-config test-name)))
;; use the cdb:remote-run instead of passing in db
(if test-conf (runs:update-test_meta test-name test-conf))))
| | | 1425 1426 1427 1428 1429 1430 1431 1432 1433 1434 1435 1436 1437 1438 1439 |
(define (runs:update-all-test_meta db)
(let ((test-names (tests:get-all))) ;; (tests:get-valid-tests)))
(for-each
(lambda (test-name)
(let* ((test-conf (mt:lazy-read-test-config test-name)))
;; use the cdb:remote-run instead of passing in db
(if test-conf (runs:update-test_meta test-name test-conf))))
(hash-table-keys test-names))))
;; This could probably be refactored into one complex query ...
(define (runs:rollup-run keys runname user keyvals)
(debug:print 4 "runs:rollup-run, keys: " keys " :runname " runname " user: " user)
(let* ((db #f)
(new-run-id (cdb:remote-run db:register-run #f keyvals runname "new" "n/a" user))
(prev-tests (cdb:remote-run test:get-matching-previous-test-run-records db new-run-id "%" "%"))
|
| ︙ | ︙ |