Megatest

Check-in [dc561cf357]
Login
Overview
Comment:Fixed an unbound variable and made it handle 1.81.
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.81-fix-api-changed
Files: files | file ages | folders
SHA1: dc561cf3576b83c3a2c2c3ff38fd9307d7498d2d
User & Date: mmgraham on 2024-07-03 12:50:53
Original Comment: Fixed an unbound variable and made it handle 1.81. Enter a commit message for this check-in. Lines beginning with # are ignored.
Other Links: branch diff | manifest | tags
Context
2024-07-08
12:55
CI/CD: Automated commit after successful test, build, and deploy for v1.81-fix-api-changed check-in: 0249193b68 user: ramartin tags: v1.81
2024-07-03
12:50
Fixed an unbound variable and made it handle 1.81. Leaf check-in: dc561cf357 user: mmgraham tags: v1.81-fix-api-changed
2024-07-01
17:27
Changed version to v1.8101 check-in: 6b8bacba76 user: mmgraham tags: v1.81, v1.8101
Changes

Modified common.scm from [1039cd02f7] to [436f5e3d6d].

398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
  (- megatest-version (common:get-last-run-version-number)))

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


;; From 1.70 to 1.80, db's are compatible.

(define (common:api-changed?)
  (let* (
    (megatest-major-version (substring (->string megatest-version) 0 4))
    (run-major-version (substring (conc (common:get-last-run-version)) 0 4))
   )
   (and (not (equal? megatest-major-version "1.80"))
     (not (equal? megatest-major-version megatest-run-version)))
  )
)

;;======================================================================
;; Move me elsewhere ...
;; RADT => Why do we meed the version check here, this is called only if version misma
;;







|






|
|







398
399
400
401
402
403
404
405
406
407
408
409
410
411
412
413
414
415
416
417
418
419
420
  (- megatest-version (common:get-last-run-version-number)))

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


;; From 1.70 to 1.81, db's are compatible.

(define (common:api-changed?)
  (let* (
    (megatest-major-version (substring (->string megatest-version) 0 4))
    (run-major-version (substring (conc (common:get-last-run-version)) 0 4))
   )
   (and (not (or (equal? megatest-major-version "1.80") (equal? megatest-major-version "1.81")))
     (not (equal? megatest-major-version run-major-version)))
  )
)

;;======================================================================
;; Move me elsewhere ...
;; RADT => Why do we meed the version check here, this is called only if version misma
;;