Megatest

Diff
Login

Differences From Artifact [f4ec5dd5d1]:

To Artifact [a6d2c3a647]:


1214
1215
1216
1217
1218
1219
1220
1221
1222
1223
1224
1225
1226
1227
1228
1229
1214
1215
1216
1217
1218
1219
1220


1221
1222
1223
1224
1225
1226
1227







-
-







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

      

;;======================================================================
;; Exit and clean up
;;======================================================================

(if *runremote* (close-all-connections!))

(if (not *didsomething*)