Megatest

Check-in [c2ba631f76]
Login
Overview
Comment:Forced cleanup db on changing versions
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.61
Files: files | file ages | folders
SHA1: c2ba631f768711d61544e9392c16e58a61a450ff
User & Date: ritikaag on 2016-05-18 11:21:07
Other Links: branch diff | manifest | tags
Context
2016-06-21
04:06
Merging first phase of redir-logs into v1.61 check-in: 1f31d511c0 user: matt tags: v1.61
2016-06-16
03:19
Added param for overriding port to debug:print and debug:print-info check-in: 7b4d2dba0e user: matt tags: redir-logs
2016-05-18
15:51
Merged with the latest 1.61/02 changes check-in: 3f21429f4f user: ritikaag tags: mtdboard
11:21
Forced cleanup db on changing versions check-in: c2ba631f76 user: ritikaag tags: v1.61
2016-05-16
17:13
Split show/hide to two buttons check-in: cf1f6d704a user: mrwellan tags: v1.61
Changes

Modified common.scm from [49cb5d370b] to [421424f2aa].

153
154
155
156
157
158
159
160

161
162
163
164









165
166
167
168
169
170
171
153
154
155
156
157
158
159

160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180







-
+




+
+
+
+
+
+
+
+
+







(define (common:version-changed?)
  (not (equal? (common:get-last-run-version)
	       (common:version-signature))))

(define (common:exit-on-version-changed)
  (if (common:version-changed?)
      (begin
	(debug:print 0
        (debug:print 0
		     "ERROR: Version mismatch!\n"
		     "   expected: " (common:version-signature) "\n"
		     "   got:      " (common:get-last-run-version) "\n"
		     " to switch versions you can run: \"megatest -cleanup-db\"")
        ;; megatest -cleanup-db IS NOT correcting the dbver.  Let's force it for now.
        ;; Matt: please review this!
        (db:multi-db-sync
         #f 
         'killservers
         'dejunk
         'new2old)
        (rmt:set-var "MEGATEST_VERSION" (common:version-signature))

	(exit 1))))

;;======================================================================
;; S P A R S E   A R R A Y S
;;======================================================================

(define (make-sparse-array)