Megatest

Check-in [c16914fba9]
Login
Overview
Comment:fixed bug where server start storm appears in envqa
Downloads: Tarball | ZIP archive | SQL archive
Timelines: family | ancestors | descendants | both | v1.63
Files: files | file ages | folders
SHA1: c16914fba97ea287054c16a7b7eb96fbad0dd79d
User & Date: bjbarcla on 2016-12-15 12:01:18
Other Links: branch diff | manifest | tags
Context
2016-12-15
19:33
enhanced common:get-least-loaded-host to better distribute work check-in: aa5b5f0d4b user: bjbarcla tags: v1.63
12:40
Automated merge of v1.63/c16914fba9/integ into integ-home check-in: 7afe215e9b user: matt tags: integ-home
12:01
fixed bug where server start storm appears in envqa check-in: c16914fba9 user: bjbarcla tags: v1.63
09:48
Added mutex to sections where testconfig is being processed in launch. check-in: 5f543006c5 user: mrwellan tags: v1.63
Changes

Modified tasks.scm from [b8a3c2af2e] to [f1c7a9fde2].

321
322
323
324
325
326
327
328

329

330
331
332
333
334
335
336
321
322
323
324
325
326
327

328

329
330
331
332
333
334
335
336







-
+
-
+







   (let* ((header (list "id" "hostname" "pid" "interface" "port" "pubport" "state" "run_id" "priority" "start_time"))
	  (selstr (string-intersperse header ","))
	  (res    '()))
    (sqlite3:for-each-row
     (lambda (a . b)
       (set! res (cons (apply vector a b) res)))
     mdb
     (conc "SELECT " selstr " FROM servers WHERE run_id=? AND state in ('available','running','dbprep') ORDER BY start_time DESC;")
     (conc "SELECT " selstr " FROM servers WHERE state in ('available','running','dbprep') ORDER BY start_time DESC;")
     run-id)
     )
    (vector header res)))

(define (tasks:get-server mdb run-id #!key (retries 10))
  (let ((res  #f)
	(best #f))
    (handle-exceptions
     exn