Overview
| Comment: | Another typo |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.60 |
| Files: | files | file ages | folders |
| SHA1: |
967167dabd32a029a6cf4002e9f70253 |
| User & Date: | mrwellan on 2014-07-24 23:21:19 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-07-25
| ||
| 08:00 | Merged in run-wait changes check-in: d2a718227d user: matt tags: v1.60 | |
|
2014-07-24
| ||
| 23:21 | Another typo check-in: 967167dabd user: mrwellan tags: v1.60 | |
| 23:07 | Fixed typo check-in: 539477fb97 user: mrwellan tags: v1.60 | |
Changes
Modified runs.scm from [e1c3bce35c] to [5d25209c46].
| ︙ | ︙ | |||
1034 1035 1036 1037 1038 1039 1040 | ((not (null? reg)) ;; could we get here with leftovers? (debug:print-info 0 "Have leftovers!") (loop (car reg)(cdr reg) '() reruns)) (else (debug:print-info 4 "Exiting loop with...\n hed=" hed "\n tal=" tal "\n reruns=" reruns)) )) ;; now *if* -run-wait we wait for all tests to be done | | | | 1034 1035 1036 1037 1038 1039 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 |
((not (null? reg)) ;; could we get here with leftovers?
(debug:print-info 0 "Have leftovers!")
(loop (car reg)(cdr reg) '() reruns))
(else
(debug:print-info 4 "Exiting loop with...\n hed=" hed "\n tal=" tal "\n reruns=" reruns))
))
;; now *if* -run-wait we wait for all tests to be done
(let loop ((num-running (rmt:get-count-tests-running-for-run-id run-id)))
(if (and (args:get-arg "-run-wait")
(> num-running 0))
(begin
(debug:print-info 0 "-run-wait specified, waiting on " num-running " tests in RUNNING, REMOTEHOSTSTART or LAUNCHED state.")
(thread-sleep! 15)
(loop (rmt:get-count-tests-running-for-run-id run-id)))))
) ;; LET* ((test-record
;; we get here on "drop through". All done!
(debug:print-info 1 "All tests launched")))
(define (runs:calc-fails prereqs-not-met)
(filter (lambda (test)
(and (vector? test) ;; not (string? test))
|
| ︙ | ︙ |