Overview
| Comment: | Replaced with-output-to-file with an explicit open/close due to posible file handles being left open. Fixed bug in runner time sharing. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65 | v1.6561 |
| Files: | files | file ages | folders |
| SHA1: |
a1963bd5a9667ef19ef77b551419c928 |
| User & Date: | mrwellan on 2020-08-17 14:17:16 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-08-17
| ||
| 18:58 | Added support for profiling, moved inter-test-delay to better location so initial registration is faster. check-in: f5657ea556 user: matt tags: v1.65 | |
| 14:17 | Replaced with-output-to-file with an explicit open/close due to posible file handles being left open. Fixed bug in runner time sharing. check-in: a1963bd5a9 user: mrwellan tags: v1.65, v1.6561 | |
| 06:20 | Short circuit calculation of number tests running. check-in: 6f1893ddd7 user: matt tags: v1.65 | |
Changes
Modified megatest-version.scm from [18b07b6776] to [9815d60fe5].
| ︙ | ︙ | |||
16 17 18 19 20 21 22 | ;; along with Megatest. If not, see <http://www.gnu.org/licenses/>. ;; Always use two or four digit decimal ;; 1.01, 1.02...1.10,1.11,1.1101 ... 1.99,2.00.. (declare (unit megatest-version)) | | | 16 17 18 19 20 21 22 23 | ;; along with Megatest. If not, see <http://www.gnu.org/licenses/>. ;; Always use two or four digit decimal ;; 1.01, 1.02...1.10,1.11,1.1101 ... 1.99,2.00.. (declare (unit megatest-version)) (define megatest-version 1.6561) |
Modified runs.scm from [dbcca8ed98] to [54e6c40a87].
| ︙ | ︙ | |||
97 98 99 100 101 102 103 | (if (not (file-exists? softlocks-dir)) (create-directory softlocks-dir #t)) (let* ((my-lock-file (conc softlocks-dir "/" key "-" (get-host-name) "-" (current-process-id) ".softlock")) (lock-files (filter (lambda (x) (not (equal? x my-lock-file))) (glob (conc softlocks-dir "/" key "*.softlock")))) (fresh-locks (any (lambda (x) ;; do we have any locks younger than 10 seconds | | > | | > | < | > | 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118 119 120 121 122 123 124 125 126 127 128 129 130 | (if (not (file-exists? softlocks-dir)) (create-directory softlocks-dir #t)) (let* ((my-lock-file (conc softlocks-dir "/" key "-" (get-host-name) "-" (current-process-id) ".softlock")) (lock-files (filter (lambda (x) (not (equal? x my-lock-file))) (glob (conc softlocks-dir "/" key "*.softlock")))) (fresh-locks (any (lambda (x) ;; do we have any locks younger than 10 seconds (let* ((mod-time (file-modification-time x)) (age (- (current-seconds) mod-time))) (cond ((> age 3600) ;; too old to keep, remove it (delete-file* x) #f) ((< age 10) #t) (else #f)))) lock-files))) (if fresh-locks (begin (if (runs:lownoise "runners-softlock-wait" 360) (debug:print-info 0 *default-log-port* "Other runners in flight, giving up some time...")) (thread-sleep! 10)) (begin (if (runs:lownoise "runners-softlock-nowait" 360) (debug:print-info 0 *default-log-port* "No runners in flight, updating softlock")) (let* ((ouf (open-output-file my-lock-file))) (with-output-to-port ouf (lambda ()(print (current-seconds)))) (close-output-port ouf)))) (runs:dat-last-fuel-check-set! rdat (current-seconds)))))) ;; Fourth try, do accounting through time ;; (define (runs:parallel-runners-mgmt rdat) (let ((time-to-check 10) ;; 28 (time-to-wait 12) |
| ︙ | ︙ |