Overview
| Comment: | Added syncback |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
08847d5384548e443f5111fdd9040459 |
| User & Date: | mrwellan on 2014-10-07 17:11:45 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-10-07
| ||
| 21:13 | Streamlined syncback and added more control for syncing to and from megatest.db and the new databases check-in: a1236d6bf9 user: matt tags: v1.60, v1.6002_beta4 | |
| 17:11 | Added syncback check-in: 08847d5384 user: mrwellan tags: v1.60 | |
| 09:30 | Fixed typo check-in: a162c72be6 user: mrwellan tags: v1.60 | |
Changes
Modified megatest.scm from [f929956576] to [6c2d2b8b1c].
| ︙ | ︙ | |||
1328 1329 1330 1331 1332 1333 1334 1335 1336 1337 1338 1339 1340 1341 |
(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)))
;;======================================================================
;; Exit and clean up
;;======================================================================
| > > > > > > | 1328 1329 1330 1331 1332 1333 1334 1335 1336 1337 1338 1339 1340 1341 1342 1343 1344 1345 1346 1347 |
(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)
;; now ensure all newdb data are synced to megatest.db
(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)
(set! *didsomething* #t)
(db:close-all dbstruct)))
;;======================================================================
;; Exit and clean up
;;======================================================================
|
| ︙ | ︙ |
Modified rmt.scm from [20d57b8c3b] to [49b2e10cd0].
| ︙ | ︙ | |||
119 120 121 122 123 124 125 | (let* ((cmds (hash-table-keys *db-stats*)) (res (if (null? cmds) (cons 'none 0) (let loop ((cmd (car cmds)) (tal (cdr cmds)) (max-cmd (car cmds)) (res 0)) | < < < < < | 119 120 121 122 123 124 125 126 127 128 129 130 131 132 | (let* ((cmds (hash-table-keys *db-stats*)) (res (if (null? cmds) (cons 'none 0) (let loop ((cmd (car cmds)) (tal (cdr cmds)) (max-cmd (car cmds)) (res 0)) (let* ((cmd-dat (hash-table-ref *db-stats* cmd)) (tot (vector-ref cmd-dat 0)) (curravg (/ (vector-ref cmd-dat 1) (vector-ref cmd-dat 0))) ;; count is never zero by construction (currmax (max res curravg)) (newmax-cmd (if (> curravg res) cmd max-cmd))) (if (null? tal) (if (> tot 10) |
| ︙ | ︙ |