Megatest

Check-in [acce517ea5]
Login
Overview
Comment:Remove call to release-dot-lock where it is no longer used. Added doc for tracking exception blocks
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.60
Files: files | file ages | folders
SHA1: acce517ea50e6d64c28c26ecd26d74eda2a5088a
User & Date: matt on 2015-06-03 00:29:42
Other Links: branch diff | manifest | tags
Context
2015-06-03
21:57
Changed scary error to the warning it should be, added ability to dump cmdinfo from a value passed in command line, added safety check on access to a testconfig dat in case it wasn't actually read successfully check-in: 50be72f3df user: mrwellan tags: v1.60
00:29
Remove call to release-dot-lock where it is no longer used. Added doc for tracking exception blocks check-in: acce517ea5 user: matt tags: v1.60
2015-06-01
17:30
Double add comment for the run check-in: de28fc4ce1 user: mrwellan tags: v1.60
Changes

Added all-exceptions.ods version [9f8aefbaf1].

cannot compute difference between binary files

Modified db.scm from [74bdf209e7] to [a883dc7ed4].

204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
		 (inmem        (if local #f (db:open-inmem-db)))
		 (refdb        (if local #f (db:open-inmem-db)))
		 (db           (db:lock-create-open dbpath ;; this is the database physically on disk
						    (lambda (db)
						      (handle-exceptions
						       exn
						       (begin
							 (release-dot-lock dbpath)
							 (if (> attemptnum 2)
							     (debug:print 0 "ERROR: tried twice, cannot create/initialize db for run-id " run-id ", at path " dbpath)
							     (db:open-rundb dbstruct run-id attemptnum (+ attemptnum 1))))
						       (db:initialize-run-id-db db)
						       (sqlite3:execute 
							db
							"INSERT OR IGNORE INTO tests (id,run_id,testname,event_time,item_path,state,status) VALUES (?,?,'bogustest',strftime('%s','now'),'nowherepath','DELETED','n/a');"







|







204
205
206
207
208
209
210
211
212
213
214
215
216
217
218
		 (inmem        (if local #f (db:open-inmem-db)))
		 (refdb        (if local #f (db:open-inmem-db)))
		 (db           (db:lock-create-open dbpath ;; this is the database physically on disk
						    (lambda (db)
						      (handle-exceptions
						       exn
						       (begin
							 ;; (release-dot-lock dbpath)
							 (if (> attemptnum 2)
							     (debug:print 0 "ERROR: tried twice, cannot create/initialize db for run-id " run-id ", at path " dbpath)
							     (db:open-rundb dbstruct run-id attemptnum (+ attemptnum 1))))
						       (db:initialize-run-id-db db)
						       (sqlite3:execute 
							db
							"INSERT OR IGNORE INTO tests (id,run_id,testname,event_time,item_path,state,status) VALUES (?,?,'bogustest',strftime('%s','now'),'nowherepath','DELETED','n/a');"