Changes In Branch v1.81-fix-api-changed Excluding Merge-Ins
This is equivalent to a diff from 6b8bacba76 to dc561cf357
|
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-02
| ||
| 13:55 | Start on increasing allowed number of servers for a db file check-in: 66e4d2383a user: mrwellan tags: v1.81-multi-server | |
|
2024-07-01
| ||
| 17:27 | Changed version to v1.8101 check-in: 6b8bacba76 user: mmgraham tags: v1.81, v1.8101 | |
| 16:57 | v1.81-test-control-panel branch into 1.81 check-in: a6b2094831 user: ramartin tags: v1.81 | |
Modified common.scm from [1039cd02f7] to [436f5e3d6d].
| ︙ | ︙ | |||
398 399 400 401 402 403 404 |
(- megatest-version (common:get-last-run-version-number)))
(define (common:version-changed?)
(not (equal? (common:get-last-run-version)
(common:version-signature))))
| | | | | 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
;;
|
| ︙ | ︙ |