522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
|
(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)))
;; now ensure all newdb data are synced to megatest.db
(if (member 'old2new options)
(for-each
(lambda (run-id)
(let ((fromdb (if toppath (make-dbr:dbstruct path: toppath local: #t) #f)))
(db:sync-tables db:sync-tests-only (db:get-db fromdb run-id) mtdb)))
run-ids))
(db:close-all dbstruct)
(sqlite3:finalize! mdb)))
;; keeping it around for debugging purposes only
(define (open-run-close-no-exception-handling proc idb . params)
|
|
>
>
|
|
522
523
524
525
526
527
528
529
530
531
532
533
534
535
536
537
538
539
540
541
542
|
(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)))
;; now ensure all newdb data are synced to megatest.db
(if (member 'new2old options)
(for-each
(lambda (run-id)
(let ((fromdb (if toppath (make-dbr:dbstruct path: toppath local: #t) #f)))
(if (eq? run-id 0)
(db:sync-tables (db:sync-main-list dbstruct)(db:get-db fromdb run-id) mtdb)
(db:sync-tables db:sync-tests-only (db:get-db fromdb run-id) mtdb))))
run-ids))
(db:close-all dbstruct)
(sqlite3:finalize! mdb)))
;; keeping it around for debugging purposes only
(define (open-run-close-no-exception-handling proc idb . params)
|