Megatest

Check-in [d3caf011b4]
Login
Overview
Comment:in dejunk cleanup, call db:clean-up on megatest.db only if it's writable
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.65
Files: files | file ages | folders
SHA1: d3caf011b4c7ec0b40cadc97bd5d619654e5d03b
User & Date: mmgraham on 2019-07-17 11:49:06
Other Links: branch diff | manifest | tags
Context
2019-07-22
15:05
Merged in inodes fixes, fixed typos, and updated makefile to help with make clean check-in: 059415e777 user: jmoon18 tags: v1.65
2019-07-17
11:49
in dejunk cleanup, call db:clean-up on megatest.db only if it's writable check-in: d3caf011b4 user: mmgraham tags: v1.65
2019-07-10
12:10
Updated megatest-version for 1.6531 check-in: 2c08c1f7c0 user: jmoon18 tags: v1.65, v1.6531
Changes

Modified db.scm from [7f98787659] to [33585b817b].

1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
          (delete-file* (common:get-sync-lock-filepath))
          )
	 
	 ;; clear out junk records
	 ;;
	 ((dejunk)
	  (db:delay-if-busy mtdb) ;; ok to delay on mtdb
	  (db:clean-up mtdb)
	  (db:clean-up tmpdb)
	  (db:clean-up refndb))

	 ;; sync runs, test_meta etc.
	 ;;
	 ((old2new)
	  (set! data-synced







|







1027
1028
1029
1030
1031
1032
1033
1034
1035
1036
1037
1038
1039
1040
1041
          (delete-file* (common:get-sync-lock-filepath))
          )
	 
	 ;; clear out junk records
	 ;;
	 ((dejunk)
	  (db:delay-if-busy mtdb) ;; ok to delay on mtdb
	  (when (file-write-access? (db:dbdat-get-path mtdb)) (db:clean-up mtdb))
	  (db:clean-up tmpdb)
	  (db:clean-up refndb))

	 ;; sync runs, test_meta etc.
	 ;;
	 ((old2new)
	  (set! data-synced