Megatest

Diff
Login

Differences From Artifact [d7b3aac795]:

To Artifact [7b00f2e8ef]:


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
345
346
347







+
+
+
-
+







;; Do NOT check if not on homehost!
;;
(define (common:exit-on-version-changed)
  (if (common:on-homehost?)
      (if (common:api-changed?)
	  (let* ((mtconf (conc (get-environment-variable "MT_RUN_AREA_HOME") "/megatest.config"))
                (dbfile (conc (get-environment-variable "MT_RUN_AREA_HOME") "/megatest.db"))
                (read-only (or
                            (get-environment-variable "MT_FORCE_READONLY")
                            (not (file-write-access? (get-environment-variable "MT_RUN_AREA_HOME")))
                (read-only (not (file-write-access? dbfile)))
                            (not (file-write-access? dbfile))))
                (dbstruct (db:setup #t)))
	    (debug:print 0 *default-log-port*
			 "WARNING: Version mismatch!\n"
			 "   expected: " (common:version-signature) "\n"
			 "   got:      " (common:get-last-run-version))
            (cond
             ((get-environment-variable "MT_SKIP_DB_MIGRATE") #t)