Megatest

Check-in [e3ac63c415]
Login
Overview
Comment:Fix for version-as-string issue
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.64
Files: files | file ages | folders
SHA1: e3ac63c41558de4a164d367876099e9d7408777c
User & Date: mrwellan on 2017-06-07 12:22:28
Other Links: branch diff | manifest | tags
Context
2017-06-07
13:46
Changed warning to INFO check-in: 179809b855 user: mrwellan tags: v1.64
12:22
Fix for version-as-string issue check-in: e3ac63c415 user: mrwellan tags: v1.64
10:55
Always create the alist files whether or not a lock was received. Bump version check-in: 5aa69feecf user: mrwellan tags: v1.64
Changes

Modified common.scm from [7f1f825291] to [f2d9dfe4a2].

239
240
241
242
243
244
245
246
247
248
249
250
251
252
253

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

(define (common:api-changed?)
  (not (equal? (substring (->string megatest-version) 0 4)
               (substring (common:get-last-run-version) 0 4))))
  
;; Move me elsewhere ...
;; RADT => Why do we meed the version check here, this is called only if version misma
;;
(define (common:cleanup-db dbstruct)
  (db:multi-db-sync 
   dbstruct







|







239
240
241
242
243
244
245
246
247
248
249
250
251
252
253

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

(define (common:api-changed?)
  (not (equal? (substring (->string megatest-version) 0 4)
               (substring (conc (common:get-last-run-version)) 0 4))))
  
;; Move me elsewhere ...
;; RADT => Why do we meed the version check here, this is called only if version misma
;;
(define (common:cleanup-db dbstruct)
  (db:multi-db-sync 
   dbstruct