Megatest

Check-in [1911dc98ed]
Login
Overview
Comment:Fixed typo
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | megatest.db-sync
Files: files | file ages | folders
SHA1: 1911dc98ed33e4f61428aea57dc5e1589f144376
User & Date: mrwellan on 2014-03-18 17:31:51
Other Links: branch diff | manifest | tags
Context
2014-03-18
23:57
Removed unneeded opening of main.db in each server. Reworked run stats Closed-Leaf check-in: b055e5fd1b user: matt tags: megatest.db-sync
17:31
Fixed typo check-in: 1911dc98ed user: mrwellan tags: megatest.db-sync
02:14
Start of code to sync to megatest.db check-in: 07907018df user: matt tags: megatest.db-sync
Changes

Modified db.scm from [8946983652] to [5f0bb87ad0].

254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
	(inmem (dbr:dbstruct-get-inmem dbstruct))
	(refdb (dbr:dbstruct-get-refdb dbstruct))
	(olddb (dbr:dbstruct-get-olddb dbstruct)))
    (if (or (not (number? mtime))
	    (not (number? stime))
	    (> mtime stime)
	    force-sync)
	(let ((num-synced (db:sync-tables db:sync-tests-only inmem refdb rundb slavedb olddb)))
	  (dbr:dbstruct-set-stime! dbstruct (current-milliseconds))
	  num-synced)
	0)))

;; close all opened run-id dbs
(define (db:close-all dbstruct)
  ;; finalize main.db







|







254
255
256
257
258
259
260
261
262
263
264
265
266
267
268
	(inmem (dbr:dbstruct-get-inmem dbstruct))
	(refdb (dbr:dbstruct-get-refdb dbstruct))
	(olddb (dbr:dbstruct-get-olddb dbstruct)))
    (if (or (not (number? mtime))
	    (not (number? stime))
	    (> mtime stime)
	    force-sync)
	(let ((num-synced (db:sync-tables db:sync-tests-only inmem refdb rundb olddb)))
	  (dbr:dbstruct-set-stime! dbstruct (current-milliseconds))
	  num-synced)
	0)))

;; close all opened run-id dbs
(define (db:close-all dbstruct)
  ;; finalize main.db