Overview
| Comment: | Merged minor change to v1.65 |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.65-side2 |
| Files: | files | file ages | folders |
| SHA1: |
60a665385abd1098d1131a64f916620c |
| User & Date: | mrwellan on 2020-10-12 16:58:36 |
| Other Links: | branch diff | manifest | tags |
Context
|
2020-10-13
| ||
| 15:52 | Added info on post-hook for runs. check-in: 5deb96c7f7 user: mrwellan tags: v1.65-side2 | |
|
2020-10-12
| ||
| 17:27 | Merged v1.65 changes to adjutant branch check-in: 2025674142 user: mrwellan tags: v1.65-adjutant-again | |
| 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 | |
| 13:06 | Added in the query-rest stuff. check-in: 0e1320be35 user: mrwellan tags: v1.65-side2 | |
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)
|
| ︙ | ︙ |