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 |
︙ | ︙ |