Overview
| Comment: | Reduced message from failed to info. Reverted a delay which seems to help pass full stack ext-tests. |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-minor-patch |
| Files: | files | file ages | folders |
| SHA1: |
9e35b1252ceeda03932cfc8fae7432b8 |
| User & Date: | mrwellan on 2020-10-12 16:49:17 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-10-12
| ||
| 16:58 | Merged minor change to v1.65 check-in: 60a665385a user: mrwellan tags: v1.65-side2 | |
| 16:49 | Reduced message from failed to info. Reverted a delay which seems to help pass full stack ext-tests. Leaf check-in: 9e35b1252c user: mrwellan tags: v1.65-minor-patch | |
|
2020-09-18
| ||
| 17:30 | added check for file existence before file delete ==/14/1.9/WARN/orion,mars/== NOTE: This is the last v1.65 before the split off. I.e code from before this point IS in the far future v1.65 branch. Code from this point to that branch might NOT be in the branch. check-in: 2769e4b7c9 user: mmgraham tags: v1.65, v1.6569 | |
Changes
Modified configf.scm from [b115fef76f] to [83ecc5b24c].
| ︙ | ︙ | |||
779 780 781 782 783 784 785 |
ht))
;; if
(define (configf:read-alist fname)
(handle-exceptions
exn
(begin
| | | 779 780 781 782 783 784 785 786 787 788 789 790 791 792 793 |
ht))
;; if
(define (configf:read-alist fname)
(handle-exceptions
exn
(begin
(debug:print-info 0 *default-log-port* "unable to read alist " fname ". exn=" exn)
#f)
(configf:alist->config
(with-input-from-file fname read))))
(define (configf:write-alist cdat fname)
(if (not (common:faux-lock fname))
(debug:print 0 *default-log-port* "INFO: Could not get lock on " fname))
|
| ︙ | ︙ |
Modified runs.scm from [030b929939] to [f99424cdf8].
| ︙ | ︙ | |||
1209 1210 1211 1212 1213 1214 1215 |
;; If no resources are available just kill time and loop again
;;
((not have-resources) ;; simply try again after waiting a second
(if (runs:lownoise "no resources" 60)
(debug:print-info 1 *default-log-port* "no resources to run new tests, waiting ..."))
;; Have gone back and forth on this but db starvation is an issue.
;; wait one second before looking again to run jobs.
| | | 1209 1210 1211 1212 1213 1214 1215 1216 1217 1218 1219 1220 1221 1222 1223 |
;; If no resources are available just kill time and loop again
;;
((not have-resources) ;; simply try again after waiting a second
(if (runs:lownoise "no resources" 60)
(debug:print-info 1 *default-log-port* "no resources to run new tests, waiting ..."))
;; Have gone back and forth on this but db starvation is an issue.
;; wait one second before looking again to run jobs.
(thread-sleep! 1) ;; changed back to 1 from 0.25
;; could have done hed tal here but doing car/cdr of newtal to rotate tests
(list (car newtal)(cdr newtal) reg reruns))
;; This is the final stage, everything is in place so launch the test
;;
((and have-resources
(or (null? prereqs-not-met)
|
| ︙ | ︙ |