1303
1304
1305
1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
1316
1317
|
;; 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 local: #t) #f)))
(debug:print 0 "INFO: Updating " (length testrecs) " records for run-id=" run-id)
(db:replace-test-records dbstruct run-id testrecs)
(sqlite3:finalize! (dbr:dbstruct-get-rundb dbstruct))))
run-ids)
(set! *didsomething* #t)
(db:close-all dbstruct)))
;;======================================================================
|
|
|
1303
1304
1305
1306
1307
1308
1309
1310
1311
1312
1313
1314
1315
1316
1317
|
;; 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 local: #t) #f)))
(debug:print 0 "INFO: Propagating " (length testrecs) " records for run-id=" run-id " to run specific db")
(db:replace-test-records dbstruct run-id testrecs)
(sqlite3:finalize! (dbr:dbstruct-get-rundb dbstruct))))
run-ids)
(set! *didsomething* #t)
(db:close-all dbstruct)))
;;======================================================================
|