Megatest

Check-in [fbfdc4b6a2]
Login
Overview
Comment:new2old needed to handle main.db correctly
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.60
Files: files | file ages | folders
SHA1: fbfdc4b6a2b6848b9b63b49302d37346ca791b02
User & Date: mrwellan on 2014-10-08 12:45:45
Other Links: branch diff | manifest | tags
Context
2014-10-08
12:54
new2old needed to handle sync in rmt correctly check-in: 6ad4f305ae user: mrwellan tags: v1.60
12:45
new2old needed to handle main.db correctly check-in: fbfdc4b6a2 user: mrwellan tags: v1.60
12:11
Fixed sync bug (I think) check-in: 18f70c2641 user: mrwellan tags: v1.60
Changes

Modified db.scm from [aeeb4a3176] to [725bc305cb].

526
527
528
529
530
531
532


533

534
535
536
537
538
539
540
526
527
528
529
530
531
532
533
534

535
536
537
538
539
540
541
542







+
+
-
+







	   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)))
		 (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)