Megatest

Check-in [0a8c497528]
Login
Overview
Comment:removed debug comment
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65
Files: files | file ages | folders
SHA1: 0a8c497528261aa173658da4e2b416b3a58071f8
User & Date: pjhatwal on 2018-08-10 17:13:59
Other Links: branch diff | manifest | tags
Context
2018-08-12
17:54
Clarified help on show in mtutils. Adjusted targets in gentargets.sh to match what is in ext-tests. Fixed endless loop in runs.scm when there is a subrun that cannot be removed or fails to remove. check-in: e669693ecf user: matt tags: v1.65
15:55
A different try at modularization Leaf check-in: 186af26419 user: matt tags: 1.65-modularization
2018-08-10
17:13
removed debug comment check-in: 0a8c497528 user: pjhatwal tags: v1.65
16:31
Merged mtutil changes into main 1.65 branch check-in: 058bef1510 user: jmoon18 tags: v1.65
Changes

Modified db.scm from [36e4111f28] to [f030aee63b].

330
331
332
333
334
335
336
337

338
339
340
341
342
343
344
330
331
332
333
334
335
336

337
338
339
340
341
342
343
344







-
+







               (write-access (file-write-access? mtdbpath))
	       ;(mtdbmodtime  (if mtdbexists (common:lazy-sqlite-db-modification-time mtdbpath)   #f)) ; moving this before db:open-megatest-db is called. if wal mode is on -WAL and -shm file get created with causing the  tmpdbmodtime timestamp always greater than mtdbmodtime
	       ;(tmpdbmodtime (if dbfexists  (common:lazy-sqlite-db-modification-time tmpdbfname) #f)) 
					;if wal mode is on -WAL and -shm file get created when db:open-megatest-db is called. modtimedelta will always be < 10 so db in tmp not get synced
          ;(tmpdbmodtime (if dbfexists (db:get-last-update-time (car tmpdb)) #f))    
          ;(fmt (file-modification-time tmpdbfname))
	       (modtimedelta (and mtdbmodtime tmpdbmodtime (- mtdbmodtime tmpdbmodtime))))
         (print "mtdbmodtime " mtdbmodtime " tmpdbmodtime " tmpdbmodtime " mtdbpath " mtdbpath " " (conc *toppath* "/megatest.db"))
         ;(print "mtdbmodtime " mtdbmodtime " tmpdbmodtime " tmpdbmodtime " mtdbpath " mtdbpath " " (conc *toppath* "/megatest.db"))
	        ;;(debug:print-info 13 *default-log-port* "db:open-db>> mtdbpath="mtdbpath" mtdbexists="mtdbexists" and write-access="write-access)
          (if (and dbexists (not write-access))
              (begin
                (set! *db-write-access* #f)
                (dbr:dbstruct-read-only-set! dbstruct #t)))
          (dbr:dbstruct-mtdb-set!   dbstruct mtdb)
          (dbr:dbstruct-tmpdb-set!  dbstruct tmpdb)