1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
|
(set! *didsomething* #t)))
(if (args:get-arg "-import-megatest.db")
(let* ((toppath (setup-for-run))
(dbstruct (if toppath (make-dbr:dbstruct path: toppath) #f))
(mtdb (if toppath (db:open-megatest-db)))
(run-ids (if toppath (db:get-run-ids mtdb))))
(for-each
(lambda (run-id)
(let ((testrecs (db:get-all-tests-info-by-run-id mtdb run-id)))
(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)
|
>
>
|
1189
1190
1191
1192
1193
1194
1195
1196
1197
1198
1199
1200
1201
1202
1203
1204
|
(set! *didsomething* #t)))
(if (args:get-arg "-import-megatest.db")
(let* ((toppath (setup-for-run))
(dbstruct (if toppath (make-dbr:dbstruct path: toppath) #f))
(mtdb (if toppath (db:open-megatest-db)))
(run-ids (if toppath (db:get-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)))
(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)
|