Overview
| Comment: | Use new dbstruct for each run in import-megatest.db |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
8e842616c43694d321e51319983a4132 |
| User & Date: | mrwellan on 2014-03-20 21:39:02 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-03-23
| ||
| 13:13 | Merged binary handling from v1.55 check-in: b095d6d09c user: matt tags: v1.60 | |
|
2014-03-20
| ||
| 21:39 | Use new dbstruct for each run in import-megatest.db check-in: 8e842616c4 user: mrwellan tags: v1.60 | |
| 01:28 | Got merge of records back to megatest.db working check-in: d5f4d74640 user: matt tags: v1.60 | |
Changes
Modified megatest.scm from [2b64fdb8ba] to [f4ec5dd5d1].
| ︙ | ︙ | |||
1206 1207 1208 1209 1210 1211 1212 |
(dbstruct (if toppath (make-dbr:dbstruct path: toppath) #f))
(mtdb (if toppath (db:open-megatest-db)))
(run-ids (if toppath (db:get-all-run-ids mtdb))))
;; sync runs, test_meta etc.
(db:sync-tables (db:sync-main-list mtdb) mtdb (db:get-db dbstruct #f))
(for-each
(lambda (run-id)
| | > | 1206 1207 1208 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 1221 |
(dbstruct (if toppath (make-dbr:dbstruct path: toppath) #f))
(mtdb (if toppath (db:open-megatest-db)))
(run-ids (if toppath (db:get-all-run-ids mtdb))))
;; sync runs, test_meta etc.
(db:sync-tables (db:sync-main-list mtdb) mtdb (db:get-db dbstruct #f))
(for-each
(lambda (run-id)
(let ((testrecs (db:get-all-tests-info-by-run-id mtdb run-id))
(dbstruct (if toppath (make-dbr:dbstruct path: toppath) #f)))
(debug:print 0 "INFO: Updating " (length testrecs) " records for run-id=" run-id)
(db:replace-test-records dbstruct run-id testrecs)))
run-ids)
(set! *didsomething* #t)
(db:close-all dbstruct)))
|
| ︙ | ︙ |