Overview
| Comment: | Added check for stuck tests and tidied up output when waiting |
|---|---|
| Downloads: | Tarball | ZIP archive | SQL archive |
| Timelines: | family | ancestors | descendants | both | v1.55 |
| Files: | files | file ages | folders |
| SHA1: |
c8a9698e79e3bb2a728e3a01c23ca70b |
| User & Date: | mrwellan on 2014-07-24 11:05:50 |
| Other Links: | branch diff | manifest | tags |
Context
|
2014-07-24
| ||
| 11:42 | Backed out the treatment of INCOMPLETE as NOT_STARTED. It must be treated as COMPLETED: check-in: ed97e023ae user: mrwellan tags: v1.55 | |
| 11:05 | Added check for stuck tests and tidied up output when waiting check-in: c8a9698e79 user: mrwellan tags: v1.55 | |
| 08:52 | Added hs to installer check-in: fde7404cb5 user: mrwellan tags: v1.55 | |
Changes
Modified runs.scm from [cd8c6d3d5e] to [9fd3c3ad12].
| ︙ | ︙ | |||
1040 1041 1042 1043 1044 1045 1046 | ((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 | | > > > > > > > > | | | 1040 1041 1042 1043 1044 1045 1046 1047 1048 1049 1050 1051 1052 1053 1054 1055 1056 1057 1058 1059 1060 1061 1062 1063 1064 1065 1066 1067 1068 |
((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 (cdb:remote-run db:get-count-tests-running-for-run-id #f run-id #f))
(prev-num-running 0))
(if (and (args:get-arg "-run-wait")
(> num-running 0))
(begin
;; Here we mark any old defunct tests as incomplete. Do this every fifteen minutes
(if (> (current-seconds)(+ last-time-incomplete 900))
(begin
(debug:print-info 0 "Marking stuck tests as INCOMPLETE while waiting for run " run-id ". Running as pid " (current-process-id) " on " (get-host-name))
(set! last-time-incomplete (current-seconds))
(cdb:remote-run db:find-and-mark-incomplete #f)))
(if (not (eq? num-running prev-num-running))
(debug:print-info 0 "run-wait specified, waiting on " num-running " tests in RUNNING, REMOTEHOSTSTART or LAUNCHED state at " (time->string (seconds->local-time (current-seconds)))))
(thread-sleep! 15)
(loop (cdb:remote-run db:get-count-tests-running-for-run-id #f run-id #f) num-running))))
) ;; 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))
|
| ︙ | ︙ |
Modified utils/Makefile_latest.installall from [32d6bee7e4] to [2749919870].
| ︙ | ︙ | |||
48 49 50 51 52 53 54 |
srfi-19 refdb
#
# Derived variables
#
ifeq ($(PROXY),)
| | | | | 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 |
srfi-19 refdb
#
# Derived variables
#
ifeq ($(PROXY),)
PROX:=
else
http_proxy:=http://$(PROXY)
PROX:=-proxy $(PROXY)
endif
BUILDHOME=$(PWD)
PATH:=$(PREFIX)/bin:$(PATH)
LIBPATH=$(PREFIX)/lib$(ADDITIONAL_LIBPATH)
LD_LIBRARY_PATH=$(LIBPATH)
CHICKEN_INSTALL=$(PREFIX)/bin/chicken-install
|
| ︙ | ︙ |