Overview
| Comment: | Missed change |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.80 |
| Files: | files | file ages | folders |
| SHA1: |
63f66b41453b285aee4b99a870f69f24 |
| User & Date: | matt on 2023-05-22 17:21:42 |
| Other Links: | branch diff | manifest | tags |
Context
|
2023-05-22
| ||
| 17:50 | Cherry pick ab049 check-in: 64f486e05b user: matt tags: v1.80 | |
| 17:21 | Missed change check-in: 63f66b4145 user: matt tags: v1.80 | |
| 16:52 | Added server parameter debug-parameter (set to -:p to profile for example). check-in: d15b736af8 user: matt tags: v1.80 | |
Changes
Modified launch.scm from [4f5a6f2f65] to [bf5571fa93].
| ︙ | ︙ | |||
739 740 741 742 743 744 745 |
;; NO NEED TO CALL set-state-status-and-roll-up-items HERE, THIS IS DONE IN set-state-status-and-roll-up-items called by tests:test-set-status!
)
)
;; for automated creation of the rollup html file this is a good place...
(if (not (equal? item-path ""))
| | > | 739 740 741 742 743 744 745 746 747 748 749 750 751 752 753 754 |
;; NO NEED TO CALL set-state-status-and-roll-up-items HERE, THIS IS DONE IN set-state-status-and-roll-up-items called by tests:test-set-status!
)
)
;; for automated creation of the rollup html file this is a good place...
(if (not (equal? item-path ""))
(tests:summarize-items run-id test-id test-name #f))
;; BUG was this meant to be the antecnt of the if above?
;; BUG was this meant to be the antecnt of the if above?
(tests:summarize-test run-id test-id) ;; don't force - just update if no
;; Leave a .final-status file for the top level test
(tests:save-final-status run-id test-id)
(rmt:update-run-stats run-id (rmt:get-raw-run-stats run-id))) ;; end of let*
(mutex-unlock! m)
|
| ︙ | ︙ |
Modified tcp-transportmod.scm from [c0357a953a] to [f1225d6f57].
| ︙ | ︙ | |||
106 107 108 109 110 111 112 113 114 115 116 117 118 119 | (servinf-file #f) (last-serv-start 0) ) ;; parameters ;; (define tt-server-timeout-param (make-parameter 600)) ;; make ttdat visible (define *server-info* #f) (define (tt:make-remote areapath) (make-tt areapath: areapath)) | > | 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 | (servinf-file #f) (last-serv-start 0) ) ;; parameters ;; (define tt-server-timeout-param (make-parameter 600)) (define tt-server-profile-string (make-parameter "")) ;; make ttdat visible (define *server-info* #f) (define (tt:make-remote areapath) (make-tt areapath: areapath)) |
| ︙ | ︙ |