Megatest

Check-in [8e842616c4]
Login
Overview
Comment:Use new dbstruct for each run in import-megatest.db
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.60
Files: files | file ages | folders
SHA1: 8e842616c43694d321e51319983a41327411ac3e
User & Date: mrwellan on 2014-03-20 21:39:02
Other Links: branch diff | manifest | tags
Context
2014-03-23
13:13
Merged binary handling from v1.55 check-in: b095d6d09c user: matt tags: v1.60
2014-03-20
21:39
Use new dbstruct for each run in import-megatest.db check-in: 8e842616c4 user: mrwellan tags: v1.60
01:28
Got merge of records back to megatest.db working check-in: d5f4d74640 user: matt tags: v1.60
Changes

Modified megatest.scm from [2b64fdb8ba] to [f4ec5dd5d1].

1206
1207
1208
1209
1210
1211
1212
1213


1214
1215
1216
1217
1218
1219
1220
1206
1207
1208
1209
1210
1211
1212

1213
1214
1215
1216
1217
1218
1219
1220
1221







-
+
+







	   (dbstruct (if toppath (make-dbr:dbstruct path: toppath) #f))
	   (mtdb     (if toppath (db:open-megatest-db)))
	   (run-ids  (if toppath (db:get-all-run-ids mtdb))))
      ;; 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)))
	 (let ((testrecs (db:get-all-tests-info-by-run-id mtdb run-id))
	       (dbstruct (if toppath (make-dbr:dbstruct path: toppath) #f)))
	   (debug:print 0 "INFO: Updating " (length testrecs) " records for run-id=" run-id)
	   (db:replace-test-records dbstruct run-id testrecs)))
       run-ids)
      (set! *didsomething* #t)
      (db:close-all dbstruct)))